From 5454708346433d08a41f77a12d416614dd113721 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Mon, 23 Nov 2015 14:49:23 +0000 Subject: [PATCH] Expunge occurrences of `setq' with an odd number of arguments. * 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 | 2 +- lisp/emacs-lisp/bytecomp.el | 3 +-- lisp/obsolete/complete.el | 2 +- lisp/progmodes/compile.el | 2 +- lisp/vc/vc-cvs.el | 4 ++-- 5 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/apropos.el b/lisp/apropos.el index 6d7dc8af40d..77c5023b0ba 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -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) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index fc3bfc5fc51..b29e77b14b5 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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))))) diff --git a/lisp/obsolete/complete.el b/lisp/obsolete/complete.el index 87dedacbe1d..e67ae5e2e53 100644 --- a/lisp/obsolete/complete.el +++ b/lisp/obsolete/complete.el @@ -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)) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d9b4b6984ff..f13906680cf 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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))) diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 99a990b4417..e21aece85ae 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -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))))) -- 2.39.2