1095 |
(setq buffer-undo-list elt))))) |
(setq buffer-undo-list elt))))) |
1096 |
|
|
1097 |
(defun force-mode-line-update (&optional all) |
(defun force-mode-line-update (&optional all) |
1098 |
"Force the mode-line of the current buffer to be redisplayed. |
"Force the mode line of the current buffer to be redisplayed. |
1099 |
With optional non-nil ALL, force redisplay of all mode-lines." |
With optional non-nil ALL, force redisplay of all mode lines." |
1100 |
(if all (save-excursion (set-buffer (other-buffer)))) |
(if all (save-excursion (set-buffer (other-buffer)))) |
1101 |
(set-buffer-modified-p (buffer-modified-p))) |
(set-buffer-modified-p (buffer-modified-p))) |
1102 |
|
|