Mercurial > emacs

changeset 94162:6832f57d6232

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-major-mode-menu, mouse-popup-menubar, mouse-popup-menubar-stuff): Add WHEN to obsolescence declaration.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 18 Apr 2008 10:30:18 +0000
parents f6a929751bfd
children 36e553d98d49
files lisp/mouse.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Fri Apr 18 10:29:55 2008 +0000
+++ b/lisp/mouse.el	Fri Apr 18 10:30:18 2008 +0000
@@ -157,7 +157,7 @@
 If there is no menu defined for the minor mode, then create one with
 items `Turn Off' and `Help'."
   (interactive
-   (list (completing-read 
+   (list (completing-read
 	  "Minor mode indicator: "
 	  (describe-minor-mode-completion-table-for-indicator))))
   (let ((minor-mode (lookup-minor-mode-from-indicator indicator)))
@@ -171,7 +171,7 @@
                 ,indicator
                 (turn-off menu-item "Turn Off minor mode" ,minor-mode)
                 (help menu-item "Help for minor mode"
-                      (lambda () (interactive) 
+                      (lambda () (interactive)
                         (describe-function ',minor-mode))))))
       (popup-menu menu))))
 
@@ -266,7 +266,7 @@
   (interactive "@e\nP")
   (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
   (popup-menu (mouse-menu-major-mode-map) event prefix))
-(make-obsolete 'mouse-major-mode-menu 'mouse-menu-major-mode-map)
+(make-obsolete 'mouse-major-mode-menu 'mouse-menu-major-mode-map "23.1")
 
 (defun mouse-popup-menubar (event prefix)
   "Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX.
@@ -275,7 +275,7 @@
   (interactive "@e \nP")
   (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
   (popup-menu (mouse-menu-bar-map) event prefix))
-(make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map)
+(make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map "23.1")
 
 (defun mouse-popup-menubar-stuff (event prefix)
   "Popup a menu like either `mouse-major-mode-menu' or `mouse-popup-menubar'.
@@ -287,7 +287,7 @@
        (mouse-menu-bar-map)
      (mouse-menu-major-mode-map))
    event prefix))
-(make-obsolete 'mouse-popup-menubar-stuff nil)
+(make-obsolete 'mouse-popup-menubar-stuff nil "23.1")
 
 ;; Commands that operate on windows.