]> code.delx.au - gnu-emacs/commitdiff
Expunge occurrences of `setq' with an odd number of arguments.
authorAlan Mackenzie <acm@muc.de>
Mon, 23 Nov 2015 14:49:23 +0000 (14:49 +0000)
committerAlan Mackenzie <acm@muc.de>
Mon, 23 Nov 2015 14:49:23 +0000 (14:49 +0000)
* lisp/apropos.el (apropos-documentation):
* lisp/obsolete/complete.el (PC-include-file-all-completions):
* lisp/progmodes/compile.el (compilation-goto-locus):
* lisp/vc/vc-cvs.el (vc-cvs-parse-root): (twice)
Insert missing nil at end of `setq' forms.

* lisp/emacs-lisp/bytecomp.el (byte-compile-file-form-autoload): Remove an
erroneous trailing variable name from a setq, thus allowing a compilation
properly to track functions not defined at runtime.

lisp/apropos.el
lisp/emacs-lisp/bytecomp.el
lisp/obsolete/complete.el
lisp/progmodes/compile.el
lisp/vc/vc-cvs.el

index 6d7dc8af40d941252fe95245b01f6926cc44af54..77c5023b0baff9ad6258a230fc3607062b92ae7c 100644 (file)
@@ -823,7 +823,7 @@ Returns list of symbols and documentation found."
               (lambda (symbol)
                 (setq f (apropos-safe-documentation symbol)
                       v (get symbol 'variable-documentation))
-                (if (integerp v) (setq v))
+                (if (integerp v) (setq v nil))
                 (setq f (apropos-documentation-internal f)
                       v (apropos-documentation-internal v))
                 (setq sf (apropos-score-doc f)
index fc3bfc5fc513a75cf2e18080d047f1775eba8038..b29e77b14b534f46faefe8364e9489c905971fa3 100644 (file)
@@ -2287,8 +2287,7 @@ list that represents a doc string reference.
      ;; byte-compile-warn-about-unresolved-functions.
      (if (memq funsym byte-compile-noruntime-functions)
          (setq byte-compile-noruntime-functions
-               (delq funsym byte-compile-noruntime-functions)
-               byte-compile-noruntime-functions)
+               (delq funsym byte-compile-noruntime-functions))
        (setq byte-compile-unresolved-functions
              (delq (assq funsym byte-compile-unresolved-functions)
                    byte-compile-unresolved-functions)))))
index 87dedacbe1db50636801e1799ec0de329225a63e..e67ae5e2e53ee13da3a613935a3d0b87e94037dd 100644 (file)
@@ -1074,7 +1074,7 @@ absolute rather than relative to some directory on the SEARCH-PATH."
          (setq search-path
                (mapcar (lambda (dir) (concat dir subdir))
                        search-path)
-               file ))
+               file nil))
       ;; Make list of completions in each directory on search-path
       (while search-path
        (let* ((dir (car search-path))
index d9b4b6984ff02b552bcb4c21da78a70eab8e28eb..f13906680cf7ff88a87465a6c9aae9b929611feb 100644 (file)
@@ -2594,7 +2594,7 @@ and overlay is highlighted between MK and END-MK."
        (goto-char mk)))
     (if end-mk
         (push-mark end-mk t)
-      (if mark-active (setq mark-active)))
+      (if mark-active (setq mark-active nil)))
     ;; If hideshow got in the way of
     ;; seeing the right place, open permanently.
     (dolist (ov (overlays-at (point)))
index 99a990b4417fba3e14a9e507b22b36fe0143b756..e21aece85aef688e80b419c45fdb30dc62b18ee7 100644 (file)
@@ -882,11 +882,11 @@ For an empty string, nil is returned (invalid CVS root)."
             (setq host uhost))
           ;; Remove empty HOST
           (and (equal host "")
-               (setq host))
+               (setq host nil))
           ;; Fix windows style CVS root `:local:C:\\project\\cvs\\some\\dir'
           (and host
                (equal method "local")
-               (setq root (concat host ":" root) host))
+               (setq root (concat host ":" root) host nil))
           ;; Normalize CVS root record
           (list method user host root)))))