emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]