procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(custom-no-edit): New command.

Browse source 
(custom-mode-map): Remap to custom-no-edit instead of
using suppress-keymap.
This commit is contained in:
Richard M. Stallman 2006-07-12 15:56:33 +00:00
parent e55deb0b2c
commit 0ce026b1d2
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/cus-edit.el
View file

@ -4419,7 +4419,9 @@ The format is suitable for use with `easy-menu-define'."
;; Actually, this misfeature of dense keymaps was fixed on 2001-11-26.
(let ((map (make-keymap)))
(set-keymap-parent map widget-keymap)
(suppress-keymap map)
(define-key map [remap self-insert-command]
'custom-no-edit)
(define-key map "\^m" 'custom-no-edit)
(define-key map " " 'scroll-up)
(define-key map "\177" 'scroll-down)
(define-key map "\C-c\C-c" 'Custom-set)
@ -4431,6 +4433,11 @@ The format is suitable for use with `easy-menu-define'."
map)
"Keymap for `custom-mode'.")
(defun custom-no-edit ()
"Refuse to allow editing of Custom buffer."
(interactive)
(error "You can't edit this part of the Custom buffer"))
(easy-menu-define Custom-mode-menu
custom-mode-map
"Menu used in customization buffers."