From 16f18d05e54a74d8ce789ecf61803c85717f1ac4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 15 Feb 2006 02:35:20 +0000 Subject: [PATCH] * gnus-cus.el: Revert 2005-10-17 change. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-cus.el | 16 ++++------------ 2 files changed, 8 insertions(+), 12 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index be9436d350c..5a925f18adc 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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 --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index fdce8d1b665..5acad8f721b 100644 --- a/lisp/gnus/gnus-cus.el +++ b/lisp/gnus/gnus-cus.el @@ -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 @@ if that value is non-nil." (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 @@ form, but who cares?" (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 @@ articles in the thread. '(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 @@ articles in the thread. (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)))) -- 2.39.2