DL
Size: a a a
DL
A
AL
AL
VL
VL
VL
VL
AL
VL
VL
PG
(defun set-keymap-prefix-fn (mode-map prefix-map)
(lambda (symbol new-value)
(define-key mode-map (symbol-value symbol) nil)
(define-key mode-map (set symbol new-value) prefix-map)))
(defvar test-mode-map (make-sparse-keymap))
(defvar test-mode-prefix-map (make-sparse-keymap))
(defcustom test-mode-prefix (kbd "C-c C-c")
"DOC."
:group 'emacs
:type 'sexp
:set (set-keymap-prefix-fn test-mode-map test-mode-prefix-map))
PG
VL
(defun set-keymap-prefix-fn (mode-map prefix-map)
(lambda (symbol new-value)
(define-key mode-map (symbol-value symbol) nil)
(define-key mode-map (set symbol new-value) prefix-map)))
(defvar test-mode-map (make-sparse-keymap))
(defvar test-mode-prefix-map (make-sparse-keymap))
(defcustom test-mode-prefix (kbd "C-c C-c")
"DOC."
:group 'emacs
:type 'sexp
:set (set-keymap-prefix-fn test-mode-map test-mode-prefix-map))
VL
VL