Mercurial > emacs
changeset 11576:f0906608aa63
(mh-set-mode-name): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:27:45 +0000 |
| parents | 090333911dc8 |
| children | 5a94d8168bdb |
| files | lisp/mail/mh-utils.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el Tue Apr 25 22:27:27 1995 +0000 +++ b/lisp/mail/mh-utils.el Tue Apr 25 22:27:45 1995 +0000 @@ -25,7 +25,7 @@ ;;; Change Log: -;; $Id: mh-utils.el,v 1.3 1995/04/09 22:29:08 kwzh Exp kwzh $ +;; $Id: mh-utils.el,v 1.4 1995/04/10 00:19:38 kwzh Exp kwzh $ ;;; Code: @@ -619,9 +619,7 @@ (defun mh-set-mode-name (mode-name-string) ;; Set the mode-name and ensure that the mode line is updated. (setq mode-name mode-name-string) - ;; Force redisplay of all buffers' mode lines to be considered. - (save-excursion (set-buffer (other-buffer))) - (set-buffer-modified-p (buffer-modified-p))) + (force-mode-line-update t)) (defun mh-prompt-for-folder (prompt default can-create)