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/ps-mode.el | |
| parent | dbc044e5f772cdb55433cb7757975defeadba44e (diff) | |
| download | emacs-22caab8bacf76ae439f8b647218b37334bfd87bd.tar.gz | |
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/ps-mode.el')
| -rw-r--r-- | lisp/progmodes/ps-mode.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 6db7a14a241..bcf7bfdefc8 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -501,18 +501,18 @@ point to the corresponding spot in the PostScript window, if input to the interpreter was sent from that window. Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect." (setq-local syntax-propertize-function #'ps-mode-syntax-propertize) - (set (make-local-variable 'font-lock-defaults) - '((ps-mode-font-lock-keywords - ps-mode-font-lock-keywords-1 - ps-mode-font-lock-keywords-2 - ps-mode-font-lock-keywords-3) - nil)) + (setq-local font-lock-defaults + '((ps-mode-font-lock-keywords + ps-mode-font-lock-keywords-1 + ps-mode-font-lock-keywords-2 + ps-mode-font-lock-keywords-3) + nil)) (smie-setup nil #'ps-mode-smie-rules) (setq-local electric-indent-chars (append '(?> ?\] ?\}) electric-indent-chars)) - (set (make-local-variable 'comment-start) "%") + (setq-local comment-start "%") ;; NOTE: `\' has a special meaning in strings only - (set (make-local-variable 'comment-start-skip) "%+[ \t]*") + (setq-local comment-start-skip "%+[ \t]*") ;; enable doc-view-minor-mode => C-c C-c starts viewing the current ps file ;; with doc-view-mode. (doc-view-minor-mode 1)) @@ -910,11 +910,11 @@ plus the usually uncoded characters inserted on positions 1 through 28." (define-derived-mode ps-run-mode comint-mode "Interactive PS" "Major mode in interactive PostScript window. This mode is invoked from `ps-mode' and should not be called directly." - (set (make-local-variable 'font-lock-defaults) - '((ps-run-font-lock-keywords - ps-run-font-lock-keywords-1 - ps-run-font-lock-keywords-2) - t)) + (setq-local font-lock-defaults + '((ps-run-font-lock-keywords + ps-run-font-lock-keywords-1 + ps-run-font-lock-keywords-2) + t)) (setq mode-line-process '(":%s"))) (defun ps-run-running () |