2000-05-14 15:38:19 +00:00
|
|
|
;;; autoarg.el --- make digit keys supply prefix args
|
|
|
|
|
2012-01-05 09:46:05 +00:00
|
|
|
;; Copyright (C) 1998, 2000-2012 Free Software Foundation, Inc.
|
2000-05-14 15:38:19 +00:00
|
|
|
|
|
|
|
;; Author: Dave Love <fx@gnu.org>
|
|
|
|
;; Created: 1998-09-04
|
|
|
|
;; Keywords: abbrev, emulations
|
|
|
|
|
2000-05-22 19:00:13 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
2008-05-06 08:06:51 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2000-05-14 15:38:19 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 08:06:51 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
2000-05-14 15:38:19 +00:00
|
|
|
|
2000-05-22 19:00:13 +00:00
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
2000-05-14 15:38:19 +00:00
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 08:06:51 +00:00
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2000-05-14 15:38:19 +00:00
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
;; This provides `autoarg-mode', a global minor mode meant to emulate
|
|
|
|
;; a facility reported from Twenex Emacs whereby digit keys supplied
|
|
|
|
;; prefix args rather than self inserting, with a digit sequence
|
|
|
|
;; terminated by space acting to insert the digits.
|
|
|
|
|
|
|
|
;; The bindings of DIGIT and C-DIGIT are swapped and a command bound
|
|
|
|
;; to SPC deals with a numeric prefix arg or acts normally without
|
|
|
|
;; such an arg. (In the absence of a suitable terminal, you'd
|
|
|
|
;; probably want to swap DIGIT and M-DIGIT.) See the mode doc.
|
|
|
|
|
|
|
|
;; You probably don't really want to use this.
|
|
|
|
|
2000-06-02 13:07:26 +00:00
|
|
|
;; Also provides `autoarg-kp-mode' which is similar, but leaves the
|
|
|
|
;; digit keys alone and redefines the `keypad' keys, `kp-1' &c as
|
|
|
|
;; digit arguments. (Use `NumLock' if necessary to generate kp-N.)
|
|
|
|
;; You're more likely to want to use this.
|
|
|
|
|
2000-05-14 15:38:19 +00:00
|
|
|
;;; Code:
|
|
|
|
|
2000-06-02 13:07:26 +00:00
|
|
|
(defvar autoarg-mode-map
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
;; Loop over digit characters to set up keymap.
|
|
|
|
(dotimes (i 10)
|
|
|
|
(define-key map `[,(+ ?0 i)] 'digit-argument)
|
|
|
|
(define-key map `[(control ,(+ ?0 i))] 'self-insert-command))
|
|
|
|
(define-key map " " 'autoarg-terminate)
|
|
|
|
map)
|
|
|
|
"Keymap for Autoarg mode.")
|
|
|
|
|
2000-05-14 15:38:19 +00:00
|
|
|
;; Logical additions:
|
|
|
|
;; (define-key autoarg-mode-map [?-] 'negative-argument)
|
|
|
|
;; (define-key autoarg-mode-map [(control ?-)] 'self-insert-command)
|
|
|
|
;; A sensible/addition?
|
|
|
|
;; (define-key autoarg-mode-map [?\r] 'autoarg-terminate)
|
|
|
|
|
2000-06-02 13:07:26 +00:00
|
|
|
(defvar autoarg-kp-digits
|
|
|
|
(let (alist)
|
|
|
|
(dotimes (i 10 alist)
|
|
|
|
(push (cons (intern (format "kp-%d" i)) i) alist))))
|
|
|
|
|
|
|
|
(defun autoarg-kp-digit-argument (arg)
|
|
|
|
"Part of the numeric argument for the next command, like `digit-argument'."
|
|
|
|
(interactive "P")
|
2009-01-09 04:44:15 +00:00
|
|
|
(let ((digit (cdr (assq last-command-event autoarg-kp-digits))))
|
2000-06-02 13:07:26 +00:00
|
|
|
(cond ((integerp arg)
|
|
|
|
(setq prefix-arg (+ (* arg 10)
|
|
|
|
(if (< arg 0) (- digit) digit))))
|
|
|
|
((eq arg '-)
|
|
|
|
;; Treat -0 as just -, so that -01 will work.
|
|
|
|
(setq prefix-arg (if (zerop digit) '- (- digit))))
|
|
|
|
(t
|
|
|
|
(setq prefix-arg digit))))
|
|
|
|
(setq universal-argument-num-events (length (this-command-keys)))
|
|
|
|
(setq overriding-terminal-local-map universal-argument-map))
|
|
|
|
|
|
|
|
(defvar autoarg-kp-mode-map
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
;; Loop over digit characters to set up keymap.
|
|
|
|
(dotimes (i 10)
|
|
|
|
(let ((sym (intern (format "kp-%d" i))))
|
|
|
|
(define-key map (vector sym) 'autoarg-kp-digit-argument)))
|
|
|
|
(define-key map [kp-subtract] 'negative-argument)
|
|
|
|
map)
|
|
|
|
"Keymap for Autoarg-KP mode.")
|
|
|
|
|
2000-05-14 15:38:19 +00:00
|
|
|
;;;###autoload
|
2000-06-02 13:07:26 +00:00
|
|
|
(define-minor-mode autoarg-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"Toggle Autoarg mode, a global minor mode.
|
|
|
|
With a prefix argument ARG, enable Autoarg mode if ARG is
|
|
|
|
positive, and disable it otherwise. If called from Lisp, enable
|
|
|
|
the mode if ARG is omitted or nil.
|
|
|
|
|
2000-05-14 15:38:19 +00:00
|
|
|
\\<autoarg-mode-map>
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
In Autoarg mode, digits are bound to `digit-argument', i.e. they
|
|
|
|
supply prefix arguments as C-DIGIT and M-DIGIT normally do.
|
|
|
|
Furthermore, C-DIGIT inserts DIGIT.
|
|
|
|
\\[autoarg-terminate] terminates the prefix sequence and inserts
|
|
|
|
the digits of the autoarg sequence into the buffer.
|
|
|
|
Without a numeric prefix arg, the normal binding of \\[autoarg-terminate]
|
|
|
|
is invoked, i.e. what it would be with Autoarg mode off.
|
2000-05-14 15:38:19 +00:00
|
|
|
|
|
|
|
For example:
|
|
|
|
`6 9 \\[autoarg-terminate]' inserts `69' into the buffer, as does `C-6 C-9'.
|
|
|
|
`6 9 a' inserts 69 `a's into the buffer.
|
|
|
|
`6 9 \\[autoarg-terminate] \\[autoarg-terminate]' inserts `69' into the buffer and
|
|
|
|
then invokes the normal binding of \\[autoarg-terminate].
|
|
|
|
`C-u \\[autoarg-terminate]' invokes the normal binding of \\[autoarg-terminate] four times.
|
|
|
|
|
|
|
|
\\{autoarg-mode-map}"
|
2002-11-29 20:11:07 +00:00
|
|
|
nil " Aarg" autoarg-mode-map :global t :group 'keyboard)
|
2000-05-14 15:38:19 +00:00
|
|
|
|
2000-06-02 13:07:26 +00:00
|
|
|
;;;###autoload
|
|
|
|
(define-minor-mode autoarg-kp-mode
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
"Toggle Autoarg-KP mode, a global minor mode.
|
|
|
|
With a prefix argument ARG, enable Autoarg-KP mode if ARG is
|
|
|
|
positive, and disable it otherwise. If called from Lisp, enable
|
|
|
|
the mode if ARG is omitted or nil.
|
|
|
|
|
2000-06-02 13:07:26 +00:00
|
|
|
\\<autoarg-kp-mode-map>
|
Fix minor mode docstrings for the new meaning of a nil ARG.
* abbrev.el (abbrev-mode):
* allout.el (allout-mode):
* autoinsert.el (auto-insert-mode):
* autoarg.el (autoarg-mode, autoarg-kp-mode):
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode):
* battery.el (display-battery-mode):
* composite.el (global-auto-composition-mode)
(auto-composition-mode):
* delsel.el (delete-selection-mode):
* desktop.el (desktop-save-mode):
* dired-x.el (dired-omit-mode):
* dirtrack.el (dirtrack-mode):
* doc-view.el (doc-view-minor-mode):
* double.el (double-mode):
* electric.el (electric-indent-mode, electric-pair-mode):
* emacs-lock.el (emacs-lock-mode):
* epa-hook.el (auto-encryption-mode):
* follow.el (follow-mode):
* font-core.el (font-lock-mode):
* frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode):
* help.el (temp-buffer-resize-mode):
* hilit-chg.el (highlight-changes-mode)
(highlight-changes-visible-mode):
* hi-lock.el (hi-lock-mode):
* hl-line.el (hl-line-mode, global-hl-line-mode):
* icomplete.el (icomplete-mode):
* ido.el (ido-everywhere):
* image-file.el (auto-image-file-mode):
* image-mode.el (image-minor-mode):
* iswitchb.el (iswitchb-mode):
* jka-cmpr-hook.el (auto-compression-mode):
* linum.el (linum-mode):
* longlines.el (longlines-mode):
* master.el (master-mode):
* mb-depth.el (minibuffer-depth-indicate-mode):
* menu-bar.el (menu-bar-mode):
* minibuf-eldef.el (minibuffer-electric-default-mode):
* mouse-sel.el (mouse-sel-mode):
* msb.el (msb-mode):
* mwheel.el (mouse-wheel-mode):
* outline.el (outline-minor-mode):
* paren.el (show-paren-mode):
* recentf.el (recentf-mode):
* reveal.el (reveal-mode, global-reveal-mode):
* rfn-eshadow.el (file-name-shadow-mode):
* ruler-mode.el (ruler-mode):
* savehist.el (savehist-mode):
* scroll-all.el (scroll-all-mode):
* scroll-bar.el (scroll-bar-mode):
* server.el (server-mode):
* shell.el (shell-dirtrack-mode):
* simple.el (auto-fill-mode, transient-mark-mode)
(visual-line-mode, overwrite-mode, binary-overwrite-mode)
(line-number-mode, column-number-mode, size-indication-mode)
(auto-save-mode, normal-erase-is-backspace-mode, visible-mode):
* strokes.el (strokes-mode):
* time.el (display-time-mode):
* t-mouse.el (gpm-mouse-mode):
* tool-bar.el (tool-bar-mode):
* tooltip.el (tooltip-mode):
* type-break.el (type-break-mode-line-message-mode)
(type-break-query-mode):
* view.el (view-mode):
* whitespace.el (whitespace-mode, whitespace-newline-mode)
(global-whitespace-mode, global-whitespace-newline-mode):
* xt-mouse.el (xterm-mouse-mode): Doc fix.
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): Fix
autogenerated docstring.
2011-10-19 12:54:24 +00:00
|
|
|
This is similar to `autoarg-mode' but rebinds the keypad keys
|
|
|
|
`kp-1' etc. to supply digit arguments.
|
2000-06-02 13:07:26 +00:00
|
|
|
|
|
|
|
\\{autoarg-kp-mode-map}"
|
2002-12-02 13:01:24 +00:00
|
|
|
nil " Aakp" autoarg-kp-mode-map :global t :group 'keyboard
|
2000-06-02 13:07:26 +00:00
|
|
|
(if autoarg-kp-mode
|
|
|
|
(dotimes (i 10)
|
|
|
|
(let ((sym (intern (format "kp-%d" i))))
|
|
|
|
(define-key universal-argument-map (vector sym)
|
|
|
|
'autoarg-kp-digit-argument)))
|
|
|
|
(dotimes (i 10)
|
|
|
|
(let ((sym (intern (format "kp-%d" i))))
|
|
|
|
(define-key universal-argument-map (vector sym) nil)))))
|
2000-05-14 15:38:19 +00:00
|
|
|
|
|
|
|
(defun autoarg-terminate (n)
|
|
|
|
"Maybe terminate a digit prefix sequence.
|
|
|
|
With a non-negative numeric prefix arg, insert the digits comprising
|
|
|
|
the arg into the current buffer. Otherwise use the binding of the key
|
|
|
|
which invoked this function, excluding the Autoarg keymap."
|
|
|
|
(interactive "P")
|
|
|
|
(if (numberp n)
|
|
|
|
(insert (number-to-string n))
|
|
|
|
(let* ((autoarg-mode nil) ; hide the bindings
|
|
|
|
(binding (key-binding (this-single-command-keys))))
|
|
|
|
(if binding (call-interactively binding)))))
|
|
|
|
|
|
|
|
(provide 'autoarg)
|
|
|
|
|
|
|
|
;;; autoarg.el ends here
|