[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cus.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cus.el |
Date: |
Wed, 15 Feb 2006 02:35:21 +0000 |
Index: emacs/lisp/gnus/gnus-cus.el
diff -u emacs/lisp/gnus/gnus-cus.el:1.17 emacs/lisp/gnus/gnus-cus.el:1.18
--- emacs/lisp/gnus/gnus-cus.el:1.17 Tue Jan 17 02:39:39 2006
+++ emacs/lisp/gnus/gnus-cus.el Wed Feb 15 02:35:20 2006
@@ -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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cus.el,
Chong Yidong <=