aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2006-07-28 18:08:11 +0000
committerChong Yidong2006-07-28 18:08:11 +0000
commita8da2abd40cd6fb47ebd139fe02552018ace5821 (patch)
tree777084ccd0dbd021b7a876094572621633c56705
parenta9502111b2e211e87594dcc68ae5d53a6951550b (diff)
downloademacs-a8da2abd40cd6fb47ebd139fe02552018ace5821.tar.gz
emacs-a8da2abd40cd6fb47ebd139fe02552018ace5821.zip
* 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'.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/cus-edit.el9
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 @@
12006-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
12006-07-29 Nick Roberts <nickrob@snap.net.nz> 72006-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