diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-06 08:57:54 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-06 10:06:22 +0100 |
| commit | e5c06669b89bd005ec2e5c17f307dbe128019f25 (patch) | |
| tree | 789a5d602cf631bfed9338935e94d492a8eda621 /lisp/progmodes/simula.el | |
| parent | 79d287c7b51758542798985e6b1c7b24b0038619 (diff) | |
| download | emacs-e5c06669b89bd005ec2e5c17f307dbe128019f25.tar.gz emacs-e5c06669b89bd005ec2e5c17f307dbe128019f25.tar.bz2 emacs-e5c06669b89bd005ec2e5c17f307dbe128019f25.zip | |
Prefer setq-local in several progmodes
* lisp/progmodes/executable.el (executable-interpret):
* lisp/progmodes/f90.el (f90-mode):
* lisp/progmodes/flymake-cc.el (flymake-cc--make-diagnostics):
* lisp/progmodes/fortran.el (fortran-mode):
* lisp/progmodes/gud.el (gud-gdb, sdb, dbx, xdb, perldb, pdb)
(jdb, gud-mode, gud-common-init, gdb-script-mode)
(gud-tooltip-activate-mouse-motions):
* lisp/progmodes/hideshow.el (hs-minor-mode):
* lisp/progmodes/icon.el (icon-mode):
* lisp/progmodes/ld-script.el (ld-script-mode):
* lisp/progmodes/mixal-mode.el (mixal-mode):
* lisp/progmodes/modula2.el (m2-mode):
* lisp/progmodes/simula.el (simula-mode):
* lisp/progmodes/subword.el (subword-setup-buffer):
* lisp/progmodes/which-func.el (which-function): Prefer setq-local.
Diffstat (limited to 'lisp/progmodes/simula.el')
| -rw-r--r-- | lisp/progmodes/simula.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index be3edfdc6e4..44d4a9ca449 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -365,22 +365,22 @@ Variables controlling indentation style: Turning on SIMULA mode calls the value of the variable simula-mode-hook with no arguments, if that value is non-nil." - (set (make-local-variable 'comment-column) 40) - ;; (set (make-local-variable 'end-comment-column) 75) - (set (make-local-variable 'paragraph-start) "[ \t]*$\\|\f") - (set (make-local-variable 'paragraph-separate) paragraph-start) - (set (make-local-variable 'indent-line-function) 'simula-indent-line) - (set (make-local-variable 'comment-start) "! ") - (set (make-local-variable 'comment-end) " ;") - (set (make-local-variable 'comment-start-skip) "!+ *") - (set (make-local-variable 'parse-sexp-ignore-comments) nil) - (set (make-local-variable 'comment-multi-line) t) - (set (make-local-variable 'font-lock-defaults) - '((simula-font-lock-keywords simula-font-lock-keywords-1 - simula-font-lock-keywords-2 simula-font-lock-keywords-3) - nil t ((?_ . "w")))) - (set (make-local-variable 'syntax-propertize-function) - simula-syntax-propertize-function) + (setq-local comment-column 40) + ;; (setq-local end-comment-column 75) + (setq-local paragraph-start "[ \t]*$\\|\f") + (setq-local paragraph-separate paragraph-start) + (setq-local indent-line-function 'simula-indent-line) + (setq-local comment-start "! ") + (setq-local comment-end " ;") + (setq-local comment-start-skip "!+ *") + (setq-local parse-sexp-ignore-comments nil) + (setq-local comment-multi-line t) + (setq-local font-lock-defaults + '((simula-font-lock-keywords simula-font-lock-keywords-1 + simula-font-lock-keywords-2 simula-font-lock-keywords-3) + nil t ((?_ . "w")))) + (setq-local syntax-propertize-function + simula-syntax-propertize-function) (abbrev-mode 1)) (defun simula-indent-exp () |