diff options
| author | Stefan Kangas | 2020-12-06 08:57:54 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-12-06 10:06:22 +0100 |
| commit | e5c06669b89bd005ec2e5c17f307dbe128019f25 (patch) | |
| tree | 789a5d602cf631bfed9338935e94d492a8eda621 /lisp/progmodes/executable.el | |
| parent | 79d287c7b51758542798985e6b1c7b24b0038619 (diff) | |
| download | emacs-e5c06669b89bd005ec2e5c17f307dbe128019f25.tar.gz 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/executable.el')
| -rw-r--r-- | lisp/progmodes/executable.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el index bae2bb66403..cc7280921ad 100644 --- a/lisp/progmodes/executable.el +++ b/lisp/progmodes/executable.el | |||
| @@ -197,7 +197,7 @@ command to find the next error. The buffer is also in `comint-mode' and | |||
| 197 | buffer-file-name)))) | 197 | buffer-file-name)))) |
| 198 | (require 'compile) | 198 | (require 'compile) |
| 199 | (save-some-buffers (not compilation-ask-about-save)) | 199 | (save-some-buffers (not compilation-ask-about-save)) |
| 200 | (set (make-local-variable 'executable-command) command) | 200 | (setq-local executable-command command) |
| 201 | (let ((compilation-error-regexp-alist executable-error-regexp-alist)) | 201 | (let ((compilation-error-regexp-alist executable-error-regexp-alist)) |
| 202 | (compilation-start command t (lambda (_x) "*interpretation*")))) | 202 | (compilation-start command t (lambda (_x) "*interpretation*")))) |
| 203 | 203 | ||