mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* gnus-cus.el: Revert 2005-10-17 change.

Browse source
This commit is contained in:
Chong Yidong 2006-02-15 02:35:20 +00:00
parent 252293378b
commit 16f18d05e5
2 changed files with 8 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2006-02-14 Chong Yidong <cyd@stupidchicken.com>
* gnus-cus.el: Revert 2005-10-17 change.
2006-02-10 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.el: Remove bogus comment.

16
lisp/gnus/gnus-cus.el
View file

@ -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))))