procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer setq to set+quote

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2020-12-14 15:09:14 +01:00
parent c9758ba48a
commit f1dae2551c
6 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/cedet/semantic/senator.el
View file

@ -810,7 +810,7 @@ if available."
(defun senator-lazy-highlight-update ()
"Force lazy highlight update."
(lazy-highlight-cleanup t)
(set 'isearch-lazy-highlight-last-string nil)
(setq isearch-lazy-highlight-last-string nil)
(setq isearch-adjusted t)
(isearch-update))

12
lisp/emulation/edt.el
View file

@ -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))

6
lisp/eshell/em-ls.el
View file

@ -274,9 +274,9 @@ instead."
(font-lock-mode -1)
(setq font-lock-defaults nil)
(if (boundp 'font-lock-buffers)
(set 'font-lock-buffers
(delq (current-buffer)
(symbol-value 'font-lock-buffers)))))
(setq font-lock-buffers
(delq (current-buffer)
(symbol-value 'font-lock-buffers)))))
(require 'em-glob)
(let* ((insert-func 'insert)
(error-func 'insert)

2
lisp/net/tramp-sh.el
View file

@ -3562,7 +3562,7 @@ implementation will be used."
;; Make `last-coding-system-used' have the right value.
(when coding-system-used
(set 'last-coding-system-used coding-system-used))))
(setq last-coding-system-used coding-system-used))))
(tramp-flush-file-properties v localname)

2
lisp/progmodes/hideif.el
View file

@ -304,7 +304,7 @@ Several variables affect how the hiding is done:
;; (C-c @ C) every time before hiding current buffer.
;; (setq-local hide-ifdef-env
;; (default-value 'hide-ifdef-env))
(set 'hide-ifdef-env (default-value 'hide-ifdef-env))
(setq hide-ifdef-env (default-value 'hide-ifdef-env))
;; Some C/C++ headers might have other ways to prevent reinclusion and
;; thus would like `hide-ifdef-expand-reinclusion-protection' to be nil.
(setq-local hide-ifdef-expand-reinclusion-protection

8
test/lisp/url/url-future-tests.el
View file

@ -31,13 +31,13 @@
(let* (url-future-tests--saver
(text "running future")
(good (make-url-future :value (lambda () (format text))
:callback (lambda (f) (set 'url-future-tests--saver f))))
:callback (lambda (f) (setq url-future-tests--saver f))))
(bad (make-url-future :value (lambda () (/ 1 0))
:errorback (lambda (&rest d) (set 'url-future-tests--saver d))))
:errorback (lambda (&rest d) (setq url-future-tests--saver d))))
(tocancel (make-url-future :value (lambda () (/ 1 0))
:callback (lambda (f) (set 'url-future-tests--saver f))
:callback (lambda (f) (setq url-future-tests--saver f))
:errorback (lambda (&rest d)
(set 'url-future-tests--saver d)))))
(setq url-future-tests--saver d)))))
(should (equal good (url-future-call good)))
(should (equal good url-future-tests--saver))
(should (equal text (url-future-value good)))