mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 18:40:39 -08:00
; * lisp/follow.el (follow-mode-prefix-key): Improve.
This commit is contained in:
parent
be2b5a7148
commit
49e019fbbc
1 changed files with 4 additions and 4 deletions
|
|
@ -231,12 +231,12 @@ After that, changing the prefix key requires manipulating keymaps."
|
||||||
|
|
||||||
(defcustom follow-mode-prefix-key (key-description follow-mode-prefix)
|
(defcustom follow-mode-prefix-key (key-description follow-mode-prefix)
|
||||||
"Prefix key to use for follow commands in Follow mode."
|
"Prefix key to use for follow commands in Follow mode."
|
||||||
:type 'string
|
:type 'key
|
||||||
|
:initialize 'custom-initialize-default
|
||||||
:set (lambda (symbol value)
|
:set (lambda (symbol value)
|
||||||
(defvar follow-mode-map) (defvar follow-mode-submap)
|
(defvar follow-mode-map) (defvar follow-mode-submap)
|
||||||
(when (boundp 'follow-mode-map)
|
(keymap-unset follow-mode-map (symbol-value symbol))
|
||||||
(keymap-unset follow-mode-map (symbol-value symbol))
|
(keymap-set follow-mode-map value follow-mode-submap)
|
||||||
(keymap-set follow-mode-map value follow-mode-submap))
|
|
||||||
(set-default symbol value))
|
(set-default symbol value))
|
||||||
:group 'follow
|
:group 'follow
|
||||||
:version "31.1")
|
:version "31.1")
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue