Mercurial > emacs
changeset 72159:97e2fe60196f
* cus-edit.el (custom-no-edit): Revert 2006-07-27 change, so that
self-insert-command keys don't activate buttons.
(custom-mode-map): Just don't bind "\C-m" to `custom-no-edit'.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 28 Jul 2006 18:08:11 +0000 |
| parents | 89c27eb47328 |
| children | 183934d15fbb |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jul 28 12:11:09 2006 +0000 +++ b/lisp/ChangeLog Fri Jul 28 18:08:11 2006 +0000 @@ -1,3 +1,9 @@ +2006-07-28 Chong Yidong <cyd@stupidchicken.com> + + * cus-edit.el (custom-no-edit): Revert 2006-07-27 change, so that + self-insert-command keys don't activate buttons. + (custom-mode-map): Just don't bind "\C-m" to `custom-no-edit'. + 2006-07-29 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Use different
--- a/lisp/cus-edit.el Fri Jul 28 12:11:09 2006 +0000 +++ b/lisp/cus-edit.el Fri Jul 28 18:08:11 2006 +0000 @@ -4435,9 +4435,7 @@ ;; Actually, this misfeature of dense keymaps was fixed on 2001-11-26. (let ((map (make-keymap))) (set-keymap-parent map widget-keymap) - (define-key map [remap self-insert-command] - 'custom-no-edit) - (define-key map "\^m" 'custom-no-edit) + (define-key map [remap self-insert-command] 'custom-no-edit) (define-key map " " 'scroll-up) (define-key map "\177" 'scroll-down) (define-key map "\C-c\C-c" 'Custom-set) @@ -4452,10 +4450,7 @@ (defun custom-no-edit (pos &optional event) "Invoke button at POS, or refuse to allow editing of Custom buffer." (interactive "@d") - (let ((button (get-char-property pos 'button))) - (if button - (widget-apply-action button event) - (error "You can't edit this part of the Custom buffer")))) + (error "You can't edit this part of the Custom buffer")) (easy-menu-define Custom-mode-menu custom-mode-map