# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848957 0
# Node ID e21661a78292ed70cdfe99a6a35e88f551de321c
# Parent  7f357fe2cda5e92bcba29ed98dbe7cb8254ff593
(hide-ifdef-toggle-read-only): Use force-mode-line-update.
(hide-ifdef-toggle-outside-read-only): Use force-mode-line-update.

diff -r 7f357fe2cda5 -r e21661a78292 lisp/progmodes/hideif.el
--- 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)