diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-04 10:55:50 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-04 10:55:56 +0100 |
| commit | 78cdf4c7627e0ce857bb6c6ebbca183e18762c21 (patch) | |
| tree | ce125a31fb64908805310a83ed0dedcd6395c425 /lisp/eshell/em-rebind.el | |
| parent | f365eb2e055c05e8dbd76aca6b6d10b0a888d5da (diff) | |
| download | emacs-78cdf4c7627e0ce857bb6c6ebbca183e18762c21.tar.gz emacs-78cdf4c7627e0ce857bb6c6ebbca183e18762c21.tar.bz2 emacs-78cdf4c7627e0ce857bb6c6ebbca183e18762c21.zip | |
Prefer setq-local in eshell
* lisp/eshell/em-cmpl.el (eshell-cmpl-initialize):
* lisp/eshell/em-dirs.el (eshell-dirs-initialize):
* lisp/eshell/em-glob.el (eshell-glob-initialize, eshell-glob-regexp):
* lisp/eshell/em-hist.el (eshell-hist-initialize):
* lisp/eshell/em-prompt.el (eshell-prompt-initialize):
* lisp/eshell/em-rebind.el (eshell-rebind-initialize)
(eshell-setup-input-keymap):
* lisp/eshell/em-script.el (eshell-script-initialize):
* lisp/eshell/em-smart.el (eshell-smart-initialize):
* lisp/eshell/em-term.el (eshell-term-initialize, eshell-exec-visual):
* lisp/eshell/em-tramp.el (eshell-tramp-initialize):
* lisp/eshell/em-unix.el (eshell-unix-initialize, eshell/diff):
* lisp/eshell/esh-arg.el (eshell-arg-initialize):
* lisp/eshell/esh-cmd.el (eshell-cmd-initialize):
* lisp/eshell/esh-io.el (eshell-get-target):
* lisp/eshell/esh-mode.el (eshell-mode):
* lisp/eshell/esh-var.el (eshell-var-initialize): Prefer setq-local.
Diffstat (limited to 'lisp/eshell/em-rebind.el')
| -rw-r--r-- | lisp/eshell/em-rebind.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/eshell/em-rebind.el b/lisp/eshell/em-rebind.el index 7991c631772..ab102116877 100644 --- a/lisp/eshell/em-rebind.el +++ b/lisp/eshell/em-rebind.el @@ -163,7 +163,7 @@ This is default behavior of shells like bash." (add-hook 'pre-command-hook 'eshell-save-previous-point nil t) (make-local-variable 'overriding-local-map) (add-hook 'post-command-hook 'eshell-rebind-input-map nil t) - (set (make-local-variable 'eshell-lock-keymap) nil) + (setq-local eshell-lock-keymap nil) (eshell-rebind-mode))) (defun eshell-lock-local-map (&optional arg) @@ -219,8 +219,7 @@ lock it at that." (defun eshell-setup-input-keymap () "Setup the input keymap to be used during input editing." - (make-local-variable 'eshell-input-keymap) - (setq eshell-input-keymap (make-sparse-keymap)) + (setq-local eshell-input-keymap (make-sparse-keymap)) (set-keymap-parent eshell-input-keymap eshell-mode-map) (let ((bindings eshell-rebind-keys-alist)) (while bindings |