diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-12-14 15:09:14 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-12-14 15:11:05 +0100 |
commit | f1dae2551c9b30f1f1333416df195b0907c54f4f (patch) | |
tree | 0238e1d6c2e7d4b9f5d5057f2aee71a319ab1d29 /lisp/emulation/edt.el | |
parent | c9758ba48a805406ddd538aac33354fa400ac14a (diff) | |
download | emacs-f1dae2551c9b30f1f1333416df195b0907c54f4f.tar.gz |
Prefer setq to set+quote
* lisp/cedet/semantic/senator.el (senator-lazy-highlight-update):
* lisp/emulation/edt.el (edt-find, edt-restore-key)
(edt-remember):
* lisp/eshell/em-ls.el (eshell-ls--insert-directory):
* lisp/net/tramp-sh.el (tramp-sh-handle-write-region):
* lisp/progmodes/hideif.el (hide-ifdef-mode):
* test/lisp/url/url-future-tests.el (url-future-tests): Prefer setq to
set+quote.
Diffstat (limited to 'lisp/emulation/edt.el')
-rw-r--r-- | lisp/emulation/edt.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index f61de9208d1..7601731a85a 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -691,7 +691,7 @@ Optional argument FIND is t if this function is called from `edt-find'." (defun edt-find () "Find first occurrence of string in current direction and save it." (interactive) - (set 'edt-find-last-text (read-string "Search: ")) + (setq edt-find-last-text (read-string "Search: ")) (if (equal edt-direction-string edt-forward-string) (edt-find-forward t) (edt-find-backward t))) @@ -1321,8 +1321,8 @@ Definition is stored in `edt-last-replaced-key-definition'." (if edt-last-replaced-key-definition (progn (let (edt-key-definition) - (set 'edt-key-definition - (read-key-sequence "Press the key to be restored: ")) + (setq edt-key-definition + (read-key-sequence "Press the key to be restored: ")) (if (string-equal "\C-m" edt-key-definition) (message "Key not restored") (progn @@ -1639,12 +1639,12 @@ Argument NUM is the number of times to duplicate the line." (progn (end-kbd-macro nil) (let (edt-key-definition) - (set 'edt-key-definition - (read-key-sequence "Enter key for binding: ")) + (setq edt-key-definition + (read-key-sequence "Enter key for binding: ")) (if (string-equal "\C-m" edt-key-definition) (message "Key sequence not remembered") (progn - (set 'edt-learn-macro-count (+ edt-learn-macro-count 1)) + (setq edt-learn-macro-count (+ edt-learn-macro-count 1)) (setq edt-last-replaced-key-definition (lookup-key (current-global-map) edt-key-definition)) |