# HG changeset patch # User Chong Yidong # Date 1139970920 0 # Node ID 4b8d82ef7d0690c3a28640e92ea27fc9e0a54e27 # Parent 775681e7a2ad91209cef8e022205579e680f5359 * gnus-cus.el: Revert 2005-10-17 change. diff -r 775681e7a2ad -r 4b8d82ef7d06 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Wed Feb 15 01:37:53 2006 +0000 +++ b/lisp/gnus/ChangeLog Wed Feb 15 02:35:20 2006 +0000 @@ -1,3 +1,7 @@ +2006-02-14 Chong Yidong + + * gnus-cus.el: Revert 2005-10-17 change. + 2006-02-10 Reiner Steib * gnus.el: Remove bogus comment. diff -r 775681e7a2ad -r 4b8d82ef7d06 lisp/gnus/gnus-cus.el --- a/lisp/gnus/gnus-cus.el Wed Feb 15 01:37:53 2006 +0000 +++ b/lisp/gnus/gnus-cus.el Wed Feb 15 02:35:20 2006 +0000 @@ -36,14 +36,6 @@ ;;; Widgets: -(defvar gnus-custom-map - (let ((map (make-keymap))) - (set-keymap-parent map widget-keymap) - (suppress-keymap map) - (define-key map [mouse-1] 'widget-move-and-invoke) - map) - "Keymap for editing Gnus customization buffers.") - (defun gnus-custom-mode () "Major mode for editing Gnus customization buffers. @@ -59,7 +51,7 @@ (kill-all-local-variables) (setq major-mode 'gnus-custom-mode mode-name "Gnus Customize") - (use-local-map gnus-custom-map) + (use-local-map widget-keymap) ;; Emacs 21 stuff: (when (and (facep 'custom-button-face) (facep 'custom-button-pressed-face)) @@ -490,7 +482,7 @@ (widget-create 'sexp :tag "Method" :value (gnus-info-method info)))) - (use-local-map gnus-custom-map) + (use-local-map widget-keymap) (widget-setup) (buffer-enable-undo) (goto-char (point-min)))) @@ -884,7 +876,7 @@ '(repeat :inline t :tag "Unknown entries" sexp))) - (use-local-map gnus-custom-map) + (use-local-map widget-keymap) (widget-setup))) (defun gnus-score-customize-done (&rest ignore) @@ -1061,7 +1053,7 @@ (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces) - (use-local-map gnus-custom-map) + (use-local-map widget-keymap) (widget-setup) (buffer-enable-undo))))