mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

(hide-ifdef-toggle-read-only): Use force-mode-line-update.

Browse source 
(hide-ifdef-toggle-outside-read-only): Use force-mode-line-update.
This commit is contained in:
Karl Heuer 1995-04-25 22:29:17 +00:00
parent 2c609f537f
commit c63e0f9a7d
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/hideif.el
View file

@ -147,10 +147,6 @@
(define-key hide-ifdef-mode-map hide-ifdef-mode-prefix-key
hide-ifdef-mode-submap))
(defun hif-update-mode-line ()
"Update mode-line by setting buffer-modified to itself."
(set-buffer-modified-p (buffer-modified-p)))
(defvar hide-ifdef-mode nil
"Non-nil when hide-ifdef-mode is activated.")
@ -893,7 +889,7 @@ is first activated.")
(if hide-ifdef-read-only "ON" "OFF"))
(if hide-ifdef-hiding
(setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only)))
(hif-update-mode-line))
(force-mode-line-update))
(defun hide-ifdef-toggle-outside-read-only ()
"Replacement for `toggle-read-only' within Hide Ifdef mode."
@ -905,7 +901,7 @@ is first activated.")
(or (and hide-ifdef-hiding hide-ifdef-read-only)
hif-outside-read-only)
)
(hif-update-mode-line))
(force-mode-line-update))
(defun hide-ifdef-define (var)