Commit bd2cef66 authored by Chong Yidong's avatar Chong Yidong
Browse files

* gnus-cus.el (gnus-custom-map): New variable. Bind mouse-1 to

	widget-move-and-invoke.
	(gnus-custom-mode): Use gnus-custom-map.
parent e6038ca3
2005-10-17 Chong Yidong <cyd@stupidchicken.com>
* gnus-cus.el (gnus-custom-map): New variable. Bind mouse-1 to
widget-move-and-invoke.
(gnus-custom-mode): Use gnus-custom-map.
2005-10-15 Bill Wohler <wohler@newt.com> 2005-10-15 Bill Wohler <wohler@newt.com>
* message.el (message-tool-bar-map): Renamed image file from * message.el (message-tool-bar-map): Renamed image file from
......
...@@ -36,6 +36,14 @@ ...@@ -36,6 +36,14 @@
;;; Widgets: ;;; 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 () (defun gnus-custom-mode ()
"Major mode for editing Gnus customization buffers. "Major mode for editing Gnus customization buffers.
...@@ -51,7 +59,7 @@ if that value is non-nil." ...@@ -51,7 +59,7 @@ if that value is non-nil."
(kill-all-local-variables) (kill-all-local-variables)
(setq major-mode 'gnus-custom-mode (setq major-mode 'gnus-custom-mode
mode-name "Gnus Customize") mode-name "Gnus Customize")
(use-local-map widget-keymap) (use-local-map gnus-custom-map)
;; Emacs 21 stuff: ;; Emacs 21 stuff:
(when (and (facep 'custom-button-face) (when (and (facep 'custom-button-face)
(facep 'custom-button-pressed-face)) (facep 'custom-button-pressed-face))
...@@ -479,7 +487,7 @@ form, but who cares?" ...@@ -479,7 +487,7 @@ form, but who cares?"
(widget-create 'sexp (widget-create 'sexp
:tag "Method" :tag "Method"
:value (gnus-info-method info)))) :value (gnus-info-method info))))
(use-local-map widget-keymap) (use-local-map gnus-custom-map)
(widget-setup) (widget-setup)
(buffer-enable-undo) (buffer-enable-undo)
(goto-char (point-min)))) (goto-char (point-min))))
...@@ -873,7 +881,7 @@ articles in the thread. ...@@ -873,7 +881,7 @@ articles in the thread.
'(repeat :inline t '(repeat :inline t
:tag "Unknown entries" :tag "Unknown entries"
sexp))) sexp)))
(use-local-map widget-keymap) (use-local-map gnus-custom-map)
(widget-setup))) (widget-setup)))
(defun gnus-score-customize-done (&rest ignore) (defun gnus-score-customize-done (&rest ignore)
...@@ -1050,7 +1058,7 @@ articles in the thread. ...@@ -1050,7 +1058,7 @@ articles in the thread.
(gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces) (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
(use-local-map widget-keymap) (use-local-map gnus-custom-map)
(widget-setup) (widget-setup)
(buffer-enable-undo)))) (buffer-enable-undo))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment