[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el, v [EMACS_2
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el, v [EMACS_22_BASE] |
Date: |
Fri, 21 Sep 2007 18:27:38 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Stefan Monnier <monnier> 07/09/21 18:27:37
Index: emacs-lisp/easy-mmode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/easy-mmode.el,v
retrieving revision 1.83.2.3
retrieving revision 1.83.2.4
diff -u -b -r1.83.2.3 -r1.83.2.4
--- emacs-lisp/easy-mmode.el 25 Jul 2007 04:09:46 -0000 1.83.2.3
+++ emacs-lisp/easy-mmode.el 21 Sep 2007 18:27:34 -0000 1.83.2.4
@@ -139,7 +139,7 @@
(setq body (list* lighter keymap body) lighter nil keymap nil))
((keywordp keymap) (push keymap body) (setq keymap nil)))
- (let* ((last-message (current-message))
+ (let* ((last-message (make-symbol "last-message"))
(mode-name (symbol-name mode))
(pretty-name (easy-mmode-pretty-mode-name mode lighter))
(globalp nil)
@@ -222,6 +222,7 @@
;; Use `toggle' rather than (if ,mode 0 1) so that using
;; repeat-command still does the toggling correctly.
(interactive (list (or current-prefix-arg 'toggle)))
+ (let ((,last-message (current-message)))
(setq ,mode
(cond
((eq arg 'toggle) (not ,mode))
@@ -240,10 +241,11 @@
,(if globalp `(customize-mark-as-set ',mode))
;; Avoid overwriting a message shown by the body,
;; but do overwrite previous messages.
- (unless ,(and (current-message)
- (not (equal last-message (current-message))))
+ (unless (and (current-message)
+ (not (equal ,last-message
+ (current-message))))
(message ,(format "%s %%sabled" pretty-name)
- (if ,mode "en" "dis")))))
+ (if ,mode "en" "dis"))))))
(force-mode-line-update)
;; Return the new setting.
,mode)
@@ -539,5 +541,5 @@
(provide 'easy-mmode)
-;;; arch-tag: d48a5250-6961-4528-9cb0-3c9ea042a66a
+;; arch-tag: d48a5250-6961-4528-9cb0-3c9ea042a66a
;;; easy-mmode.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el, v [EMACS_22_BASE],
Stefan Monnier <=