diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-11 13:05:47 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-11 13:05:47 -0500 |
| commit | ecda65d4f7ea34faca40cd188fb5bb095e874092 (patch) | |
| tree | dfff4cf951a1bb5ba227677295ccd160a598152c /lisp/subr.el | |
| parent | 5389db9e7160a85080078a1cf26dbc46ace55c21 (diff) | |
* lisp/subr.el (force-mode-line-update): Delete, move to buffer.c.
* src/buffer.c (Frestore_buffer_modified_p): Sync it with
Fset_buffer_modified_p.
(Fforce_mode_line_update): New function, moved from subr.el.
(Fset_buffer_modified_p): Use them.
(syms_of_buffer): Defsubr Fforce_mode_line_update.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 6bcbe6b968..e8d3245ff1 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2382,14 +2382,6 @@ This finishes the change group by reverting all of its changes." (define-obsolete-function-alias 'redraw-modeline 'force-mode-line-update "24.3") -(defun force-mode-line-update (&optional all) - "Force redisplay of the current buffer's mode line and header line. -With optional non-nil ALL, force redisplay of all mode lines and -header lines. This function also forces recomputation of the -menu bar menus and the frame title." - (if all (with-current-buffer (other-buffer))) - (set-buffer-modified-p (buffer-modified-p))) - (defun momentary-string-display (string pos &optional exit-char message) "Momentarily display STRING in the buffer at POS. Display remains until next event is input. |