mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Prefer setq-local in some remaining progmodes

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2020-12-09 08:34:35 +01:00
parent dbc044e5f7
commit 22caab8bac
4 changed files with 36 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/dcl-mode.el
View file

@ -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))