Mercurial > emacs

changeset 11565:61cdc55737fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xscheme-set-runlight, xscheme-set-prompt): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:23:31 +0000
parents 26d4ff74d4ab
children 506881d20003
files lisp/xscheme.el
diffstat 1 files changed, 2 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/xscheme.el	Tue Apr 25 22:23:02 1995 +0000
+++ b/lisp/xscheme.el	Tue Apr 25 22:23:31 1995 +0000
@@ -674,12 +674,7 @@
 
 (defun xscheme-set-runlight (runlight)
   (setq xscheme-runlight-string runlight)
-  (xscheme-modeline-redisplay))
-
-(defun xscheme-modeline-redisplay ()
-  (save-excursion (set-buffer (other-buffer)))
-  (set-buffer-modified-p (buffer-modified-p))
-  (sit-for 0))
+  (force-mode-line-update t))
 
 ;;;; Process Filter Operations
 
@@ -811,7 +806,7 @@
   (setq xscheme-prompt string)
   (xscheme-guarantee-newlines 2)
   (setq xscheme-mode-string (xscheme-coerce-prompt string))
-  (xscheme-modeline-redisplay))
+  (force-mode-line-update t))
 
 (defun xscheme-output-goto ()
   (xscheme-goto-output-point)