[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/wid-browse.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wid-browse.el,v |
Date: |
Mon, 10 Sep 2007 03:27:00 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/09/10 03:27:00
Index: wid-browse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/wid-browse.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- wid-browse.el 26 Jul 2007 05:26:38 -0000 1.19
+++ wid-browse.el 10 Sep 2007 03:26:58 -0000 1.20
@@ -40,14 +40,13 @@
;;; 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'.")
-(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
widget-browse-mode-map
"Menu used in widget browser buffers."
@@ -265,38 +264,21 @@
;;; Widget Minor Mode.
-(defvar widget-minor-mode nil
- "If non-nil, we are in Widget Minor Mode.")
-(make-variable-buffer-local 'widget-minor-mode)
-
-(defvar widget-minor-mode-map nil
+(defvar widget-minor-mode-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map widget-keymap)
+ map)
"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
-(defun widget-minor-mode (&optional arg)
+(define-minor-mode widget-minor-mode
"Togle minor mode for traversing widgets.
With arg, turn widget mode on if and only if arg is positive."
- (interactive "P")
- (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))
+ :lighter " Widget")
;;; The End:
(provide 'wid-browse)
-;;; arch-tag: d5ffb18f-8984-4735-8502-edf70456db21
+;; arch-tag: d5ffb18f-8984-4735-8502-edf70456db21
;;; wid-browse.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/wid-browse.el,v,
Stefan Monnier <=