[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cus.el

[Chong Yidong]

Index: emacs/lisp/gnus/gnus-cus.el
diff -c emacs/lisp/gnus/gnus-cus.el:1.14 emacs/lisp/gnus/gnus-cus.el:1.15
*** emacs/lisp/gnus/gnus-cus.el:1.14    Sat Aug  6 19:51:41 2005
--- emacs/lisp/gnus/gnus-cus.el Tue Oct 18 00:29:41 2005
***************
*** 36,41 ****
--- 36,49 ----
  
  ;;; 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.
  
***************
*** 51,57 ****
    (kill-all-local-variables)
    (setq major-mode 'gnus-custom-mode
        mode-name "Gnus Customize")
!   (use-local-map widget-keymap)
    ;; Emacs 21 stuff:
    (when (and (facep 'custom-button-face)
             (facep 'custom-button-pressed-face))
--- 59,65 ----
    (kill-all-local-variables)
    (setq major-mode 'gnus-custom-mode
        mode-name "Gnus Customize")
!   (use-local-map gnus-custom-map)
    ;; Emacs 21 stuff:
    (when (and (facep 'custom-button-face)
             (facep 'custom-button-pressed-face))
***************
*** 479,485 ****
            (widget-create 'sexp
                           :tag "Method"
                           :value (gnus-info-method info))))
!     (use-local-map widget-keymap)
      (widget-setup)
      (buffer-enable-undo)
      (goto-char (point-min))))
--- 487,493 ----
            (widget-create 'sexp
                           :tag "Method"
                           :value (gnus-info-method info))))
!     (use-local-map gnus-custom-map)
      (widget-setup)
      (buffer-enable-undo)
      (goto-char (point-min))))
***************
*** 873,879 ****
                         '(repeat :inline t
                                  :tag "Unknown entries"
                                  sexp)))
!     (use-local-map widget-keymap)
      (widget-setup)))
  
  (defun gnus-score-customize-done (&rest ignore)
--- 881,887 ----
                         '(repeat :inline t
                                  :tag "Unknown entries"
                                  sexp)))
!     (use-local-map gnus-custom-map)
      (widget-setup)))
  
  (defun gnus-score-customize-done (&rest ignore)
***************
*** 1050,1056 ****
  
        (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
  
!       (use-local-map widget-keymap)
        (widget-setup)
        (buffer-enable-undo))))
  
--- 1058,1064 ----
  
        (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
  
!       (use-local-map gnus-custom-map)
        (widget-setup)
        (buffer-enable-undo))))