From c63e0f9a7df6fb19d495372aac54f92c2080c195 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:29:17 +0000 Subject: [PATCH] (hide-ifdef-toggle-read-only): Use force-mode-line-update. (hide-ifdef-toggle-outside-read-only): Use force-mode-line-update. --- lisp/progmodes/hideif.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 88a9cde19cc..2b6917eaca8 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -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) -- 2.39.5