Show
Ignore:
Timestamp:
2006年05月13日 11時31分18秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/emacs-lisp/easy-mmode.el

    r4037 r4079  
    140140   ((keywordp keymap) (push keymap body) (setq keymap nil))) 
    141141 
    142   (let* ((mode-name (symbol-name mode)) 
     142  (let* ((last-message (current-message)) 
     143         (mode-name (symbol-name mode)) 
    143144         (pretty-name (easy-mmode-pretty-mode-name mode lighter)) 
    144145         (globalp nil) 
    …… 
    237238             (progn 
    238239               ,(if globalp `(customize-mark-as-set ',mode)) 
    239                (unless (current-message) 
     240               ;; Avoid overwriting a message shown by the body, 
     241               ;; but do overwrite previous messages. 
     242               (unless  ,(and (current-message) 
     243                              (not (equal last-message (current-message)))) 
    240244                 (message ,(format "%s %%sabled" pretty-name) 
    241245                          (if ,mode "en" "dis")))))