diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 9 |
2 files changed, 8 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a09227f4136..8fd1f8a4255 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2006-07-28 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * cus-edit.el (custom-no-edit): Revert 2006-07-27 change, so that | ||
| 4 | self-insert-command keys don't activate buttons. | ||
| 5 | (custom-mode-map): Just don't bind "\C-m" to `custom-no-edit'. | ||
| 6 | |||
| 1 | 2006-07-29 Nick Roberts <nickrob@snap.net.nz> | 7 | 2006-07-29 Nick Roberts <nickrob@snap.net.nz> |
| 2 | 8 | ||
| 3 | * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Use different | 9 | * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): Use different |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 15f43080aff..0493dd0894c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -4435,9 +4435,7 @@ The format is suitable for use with `easy-menu-define'." | |||
| 4435 | ;; Actually, this misfeature of dense keymaps was fixed on 2001-11-26. | 4435 | ;; Actually, this misfeature of dense keymaps was fixed on 2001-11-26. |
| 4436 | (let ((map (make-keymap))) | 4436 | (let ((map (make-keymap))) |
| 4437 | (set-keymap-parent map widget-keymap) | 4437 | (set-keymap-parent map widget-keymap) |
| 4438 | (define-key map [remap self-insert-command] | 4438 | (define-key map [remap self-insert-command] 'custom-no-edit) |
| 4439 | 'custom-no-edit) | ||
| 4440 | (define-key map "\^m" 'custom-no-edit) | ||
| 4441 | (define-key map " " 'scroll-up) | 4439 | (define-key map " " 'scroll-up) |
| 4442 | (define-key map "\177" 'scroll-down) | 4440 | (define-key map "\177" 'scroll-down) |
| 4443 | (define-key map "\C-c\C-c" 'Custom-set) | 4441 | (define-key map "\C-c\C-c" 'Custom-set) |
| @@ -4452,10 +4450,7 @@ The format is suitable for use with `easy-menu-define'." | |||
| 4452 | (defun custom-no-edit (pos &optional event) | 4450 | (defun custom-no-edit (pos &optional event) |
| 4453 | "Invoke button at POS, or refuse to allow editing of Custom buffer." | 4451 | "Invoke button at POS, or refuse to allow editing of Custom buffer." |
| 4454 | (interactive "@d") | 4452 | (interactive "@d") |
| 4455 | (let ((button (get-char-property pos 'button))) | 4453 | (error "You can't edit this part of the Custom buffer")) |
| 4456 | (if button | ||
| 4457 | (widget-apply-action button event) | ||
| 4458 | (error "You can't edit this part of the Custom buffer")))) | ||
| 4459 | 4454 | ||
| 4460 | (easy-menu-define Custom-mode-menu | 4455 | (easy-menu-define Custom-mode-menu |
| 4461 | custom-mode-map | 4456 | custom-mode-map |