diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-09 08:34:35 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-09 08:34:35 +0100 |
| commit | 22caab8bacf76ae439f8b647218b37334bfd87bd (patch) | |
| tree | 12ef84e781ab4c642729f0f2d7922e51c374db1b /lisp/progmodes/hideif.el | |
| parent | dbc044e5f772cdb55433cb7757975defeadba44e (diff) | |
Prefer setq-local in some remaining progmodes
* lisp/progmodes/dcl-mode.el (dcl-mode):
* lisp/progmodes/hideif.el (hide-ifdef-mode)
(hide-ifdef-toggle-shadowing):
* lisp/progmodes/ps-mode.el (ps-mode, ps-run-mode):
* lisp/progmodes/xscheme.el (xscheme-start)
(local-set-scheme-interaction-buffer, scheme-interaction-mode):
Prefer setq-local.
Diffstat (limited to 'lisp/progmodes/hideif.el')
| -rw-r--r-- | lisp/progmodes/hideif.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 25e75235aa4..7cbc9708fce 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -302,17 +302,17 @@ Several variables affect how the hiding is done: ;; We can still simulate the behavior of older hideif versions (i.e. ;; `hide-ifdef-env' being buffer local) by clearing this variable ;; (C-c @ C) every time before hiding current buffer. -;; (set (make-local-variable 'hide-ifdef-env) +;; (setq-local hide-ifdef-env ;; (default-value 'hide-ifdef-env)) (set 'hide-ifdef-env (default-value 'hide-ifdef-env)) ;; Some C/C++ headers might have other ways to prevent reinclusion and ;; thus would like `hide-ifdef-expand-reinclusion-protection' to be nil. - (set (make-local-variable 'hide-ifdef-expand-reinclusion-protection) - (default-value 'hide-ifdef-expand-reinclusion-protection)) - (set (make-local-variable 'hide-ifdef-hiding) - (default-value 'hide-ifdef-hiding)) - (set (make-local-variable 'hif-outside-read-only) buffer-read-only) - (set (make-local-variable 'line-move-ignore-invisible) t) + (setq-local hide-ifdef-expand-reinclusion-protection + (default-value 'hide-ifdef-expand-reinclusion-protection)) + (setq-local hide-ifdef-hiding + (default-value 'hide-ifdef-hiding)) + (setq-local hif-outside-read-only buffer-read-only) + (setq-local line-move-ignore-invisible t) (add-hook 'change-major-mode-hook (lambda () (hide-ifdef-mode -1)) nil t) @@ -1792,7 +1792,7 @@ It does not do the work that's pointless to redo on a recursive entry." (defun hide-ifdef-toggle-shadowing () "Toggle shadowing." (interactive) - (set (make-local-variable 'hide-ifdef-shadow) (not hide-ifdef-shadow)) + (setq-local hide-ifdef-shadow (not hide-ifdef-shadow)) (message "Shadowing %s" (if hide-ifdef-shadow "ON" "OFF")) (save-restriction (widen) |