From 22caab8bacf76ae439f8b647218b37334bfd87bd Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 9 Dec 2020 08:34:35 +0100 Subject: 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. --- lisp/progmodes/dcl-mode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lisp/progmodes/dcl-mode.el') diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index ca45795adc0..9bafd7aa42c 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -588,17 +588,17 @@ $ There is some minimal font-lock support (see vars `dcl-font-lock-defaults' and `dcl-font-lock-keywords')." - (set (make-local-variable 'indent-line-function) 'dcl-indent-line) - (set (make-local-variable 'comment-start) "!") - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'comment-multi-line) nil) + (setq-local indent-line-function 'dcl-indent-line) + (setq-local comment-start "!") + (setq-local comment-end "") + (setq-local comment-multi-line nil) ;; This used to be "^\\$[ \t]*![ \t]*" which looks more correct. ;; The drawback was that you couldn't make empty comment lines by pressing ;; C-M-j repeatedly - only the first line became a comment line. ;; This version has the drawback that the "$" can be anywhere in the line, ;; and something inappropriate might be interpreted as a comment. - (set (make-local-variable 'comment-start-skip) "\\$[ \t]*![ \t]*") + (setq-local comment-start-skip "\\$[ \t]*![ \t]*") (if (boundp 'imenu-generic-expression) (progn (setq imenu-generic-expression dcl-imenu-generic-expression) @@ -619,7 +619,7 @@ There is some minimal font-lock support (see vars (make-local-variable 'dcl-electric-reindent-regexps) ;; font lock - (set (make-local-variable 'font-lock-defaults) dcl-font-lock-defaults) + (setq-local font-lock-defaults dcl-font-lock-defaults) (tempo-use-tag-list 'dcl-tempo-tags)) -- cgit v1.2.3