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.

diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el
index 49c1933508fc6619e38216395ab5b83c9ab49cd1..d21350749bac948ca317280a6b74e846423f7c02 100644 (file)
--- a/lisp/cedet/semantic/senator.el
+++ b/lisp/cedet/semantic/senator.el
@@ -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))
 

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index f61de9208d191fe559f076aefcbd36b5c18cc9f9..7601731a85adf28bcf1c8b954ddd01988ac1f3ab 100644 (file)
--- 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))

diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index 6b306f778743241cb10e63ec06d04ebc837761a9..44a0df6a3edf2a2a15f0c9f3a4e36886d38e2d13 100644 (file)
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -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)

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 98537a100f3d1bd9fc72b16257ccb3188e20812b..34be4fcba934088981a837f363eebf1b5d870a9f 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -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)
 

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 7cbc9708fce14bf4e96b3d8da87ef0360d37c9a6..9c8343fca00b253e6148052d620902b0580a3bb3 100644 (file)
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -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

diff --git a/test/lisp/url/url-future-tests.el b/test/lisp/url/url-future-tests.el
index a07730a2be6018d3c2430eac74c4cdfd194c0dc9..43668036b695a0b2c991faa2de040897a158b258 100644 (file)
--- a/test/lisp/url/url-future-tests.el
+++ b/test/lisp/url/url-future-tests.el
@@ -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)))