Mercurial > emacs

changeset 11581:e21661a78292

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hide-ifdef-toggle-read-only): Use force-mode-line-update. (hide-ifdef-toggle-outside-read-only): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:29:17 +0000
parents 7f357fe2cda5
children ba3fe06d55eb
files lisp/progmodes/hideif.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/hideif.el	Tue Apr 25 22:28:58 1995 +0000
+++ b/lisp/progmodes/hideif.el	Tue Apr 25 22:29:17 1995 +0000
@@ -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 @@
 	   (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 @@
 	(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)