Mercurial > emacs

comparison lisp/xscheme.el @ 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 f84a7b49021d
children 4ce524de750f
comparison
equal deleted inserted replaced
11564:26d4ff74d4ab 11565:61cdc55737fb
672 (setq xscheme-mode-string "") 672 (setq xscheme-mode-string "")
673 (setq mode-line-buffer-identification '("Scheme: " xscheme-mode-string))) 673 (setq mode-line-buffer-identification '("Scheme: " xscheme-mode-string)))
674 674
675 (defun xscheme-set-runlight (runlight) 675 (defun xscheme-set-runlight (runlight)
676 (setq xscheme-runlight-string runlight) 676 (setq xscheme-runlight-string runlight)
677 (xscheme-modeline-redisplay)) 677 (force-mode-line-update t))
678
679 (defun xscheme-modeline-redisplay ()
680 (save-excursion (set-buffer (other-buffer)))
681 (set-buffer-modified-p (buffer-modified-p))
682 (sit-for 0))
683 678
684 ;;;; Process Filter Operations 679 ;;;; Process Filter Operations
685 680
686 (defvar xscheme-process-filter-alist 681 (defvar xscheme-process-filter-alist
687 '((?D xscheme-enter-debugger-mode 682 '((?D xscheme-enter-debugger-mode
809 804
810 (defun xscheme-set-prompt (string) 805 (defun xscheme-set-prompt (string)
811 (setq xscheme-prompt string) 806 (setq xscheme-prompt string)
812 (xscheme-guarantee-newlines 2) 807 (xscheme-guarantee-newlines 2)
813 (setq xscheme-mode-string (xscheme-coerce-prompt string)) 808 (setq xscheme-mode-string (xscheme-coerce-prompt string))
814 (xscheme-modeline-redisplay)) 809 (force-mode-line-update t))
815 810
816 (defun xscheme-output-goto () 811 (defun xscheme-output-goto ()
817 (xscheme-goto-output-point) 812 (xscheme-goto-output-point)
818 (xscheme-guarantee-newlines 2)) 813 (xscheme-guarantee-newlines 2))
819 814