Mercurial > emacs

comparison lisp/progmodes/hideif.el @ 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 4235784197f3
children 1162093d885c
comparison
equal deleted inserted replaced
11580:7f357fe2cda5 11581:e21661a78292
144 (if hide-ifdef-mode-map 144 (if hide-ifdef-mode-map
145 () 145 ()
146 (setq hide-ifdef-mode-map (make-sparse-keymap)) 146 (setq hide-ifdef-mode-map (make-sparse-keymap))
147 (define-key hide-ifdef-mode-map hide-ifdef-mode-prefix-key 147 (define-key hide-ifdef-mode-map hide-ifdef-mode-prefix-key
148 hide-ifdef-mode-submap)) 148 hide-ifdef-mode-submap))
149
150 (defun hif-update-mode-line ()
151 "Update mode-line by setting buffer-modified to itself."
152 (set-buffer-modified-p (buffer-modified-p)))
153 149
154 (defvar hide-ifdef-mode nil 150 (defvar hide-ifdef-mode nil
155 "Non-nil when hide-ifdef-mode is activated.") 151 "Non-nil when hide-ifdef-mode is activated.")
156 152
157 (defvar hide-ifdef-hiding nil 153 (defvar hide-ifdef-hiding nil
891 (setq hide-ifdef-read-only (not hide-ifdef-read-only)) 887 (setq hide-ifdef-read-only (not hide-ifdef-read-only))
892 (message "Hide-Read-Only %s" 888 (message "Hide-Read-Only %s"
893 (if hide-ifdef-read-only "ON" "OFF")) 889 (if hide-ifdef-read-only "ON" "OFF"))
894 (if hide-ifdef-hiding 890 (if hide-ifdef-hiding
895 (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only))) 891 (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only)))
896 (hif-update-mode-line)) 892 (force-mode-line-update))
897 893
898 (defun hide-ifdef-toggle-outside-read-only () 894 (defun hide-ifdef-toggle-outside-read-only ()
899 "Replacement for `toggle-read-only' within Hide Ifdef mode." 895 "Replacement for `toggle-read-only' within Hide Ifdef mode."
900 (interactive) 896 (interactive)
901 (setq hif-outside-read-only (not hif-outside-read-only)) 897 (setq hif-outside-read-only (not hif-outside-read-only))
903 (if hif-outside-read-only "ON" "OFF")) 899 (if hif-outside-read-only "ON" "OFF"))
904 (setq buffer-read-only 900 (setq buffer-read-only
905 (or (and hide-ifdef-hiding hide-ifdef-read-only) 901 (or (and hide-ifdef-hiding hide-ifdef-read-only)
906 hif-outside-read-only) 902 hif-outside-read-only)
907 ) 903 )
908 (hif-update-mode-line)) 904 (force-mode-line-update))
909 905
910 906
911 (defun hide-ifdef-define (var) 907 (defun hide-ifdef-define (var)
912 "Define a VAR so that #ifdef VAR would be included." 908 "Define a VAR so that #ifdef VAR would be included."
913 (interactive "SDefine what? ") 909 (interactive "SDefine what? ")