Commit 3643fbbc authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(widget-browse-mode-map, widget-minor-mode-map): Initialize in the declaration.

(widget-minor-mode): Use define-minor-mode.
parent 70165841
2007-09-10 Stefan Monnier <monnier@iro.umontreal.ca> 2007-09-10 Stefan Monnier <monnier@iro.umontreal.ca>
* wid-browse.el (widget-browse-mode-map, widget-minor-mode-map):
Initialize in the declaration.
(widget-minor-mode): Use define-minor-mode.
* woman.el (woman-mode-map, woman-syntax-table): * woman.el (woman-mode-map, woman-syntax-table):
Initialize in the declaration. Initialize in the declaration.
......
...@@ -40,14 +40,13 @@ ...@@ -40,14 +40,13 @@
;;; The Mode. ;;; The Mode.
(defvar widget-browse-mode-map nil (defvar widget-browse-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map widget-keymap)
(define-key map "q" 'bury-buffer)
map)
"Keymap for `widget-browse-mode'.") "Keymap for `widget-browse-mode'.")
(unless widget-browse-mode-map
(setq widget-browse-mode-map (make-sparse-keymap))
(set-keymap-parent widget-browse-mode-map widget-keymap)
(define-key widget-browse-mode-map "q" 'bury-buffer))
(easy-menu-define widget-browse-mode-customize-menu (easy-menu-define widget-browse-mode-customize-menu
widget-browse-mode-map widget-browse-mode-map
"Menu used in widget browser buffers." "Menu used in widget browser buffers."
...@@ -265,38 +264,21 @@ VALUE is assumed to be a list of widgets." ...@@ -265,38 +264,21 @@ VALUE is assumed to be a list of widgets."
;;; Widget Minor Mode. ;;; Widget Minor Mode.
(defvar widget-minor-mode nil (defvar widget-minor-mode-map
"If non-nil, we are in Widget Minor Mode.") (let ((map (make-sparse-keymap)))
(make-variable-buffer-local 'widget-minor-mode) (set-keymap-parent map widget-keymap)
map)
(defvar widget-minor-mode-map nil
"Keymap used in Widget Minor Mode.") "Keymap used in Widget Minor Mode.")
(unless widget-minor-mode-map
(setq widget-minor-mode-map (make-sparse-keymap))
(set-keymap-parent widget-minor-mode-map widget-keymap))
;;;###autoload ;;;###autoload
(defun widget-minor-mode (&optional arg) (define-minor-mode widget-minor-mode
"Togle minor mode for traversing widgets. "Togle minor mode for traversing widgets.
With arg, turn widget mode on if and only if arg is positive." With arg, turn widget mode on if and only if arg is positive."
(interactive "P") :lighter " Widget")
(cond ((null arg)
(setq widget-minor-mode (not widget-minor-mode)))
((<= arg 0)
(setq widget-minor-mode nil))
(t
(setq widget-minor-mode t)))
(force-mode-line-update))
(add-to-list 'minor-mode-alist '(widget-minor-mode " Widget"))
(add-to-list 'minor-mode-map-alist
(cons 'widget-minor-mode widget-minor-mode-map))
;;; The End: ;;; The End:
(provide 'wid-browse) (provide 'wid-browse)
;;; arch-tag: d5ffb18f-8984-4735-8502-edf70456db21 ;; arch-tag: d5ffb18f-8984-4735-8502-edf70456db21
;;; wid-browse.el ends here ;;; wid-browse.el ends here
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