From 390d1087a16fd7a51f8f951c764695cefb832b60 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:23:31 +0000 Subject: [PATCH] (xscheme-set-runlight, xscheme-set-prompt): Use force-mode-line-update. --- lisp/xscheme.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/xscheme.el b/lisp/xscheme.el index 674b2443a1f..c09f53a89e2 100644 --- a/lisp/xscheme.el +++ b/lisp/xscheme.el @@ -674,12 +674,7 @@ When called, the current buffer will be the Scheme process-buffer.") (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 @@ the remaining input.") (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) -- 2.11.4.GIT