X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/f0529b5b1aeb64a7df9765781948a5edbfc80b1e..cd9d956124848da72b19da969ea37553c7dce970:/lisp/emacs-lisp/elint.el

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 0471db3de9..f0f8add487 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -540,7 +540,8 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
 (defun elint-check-defcustom-form (form env)
   "Lint the defcustom FORM in ENV."
   (if (and (> (length form) 3)
-	   (evenp (length form)))	; even no. of keyword/value args
+	   ;; even no. of keyword/value args ?
+	   (zerop (logand (length form) 1)))
       (elint-env-add-global-var (elint-form (nth 2 form) env)
 				(car (cdr form)))
     (elint-error "Malformed variable declaration: %s" form)
@@ -609,14 +610,14 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
 ;; to reflect different seriousness of linting errors
 
 (defun elint-error (string &rest args)
-  "Report an linting error.
+  "Report a linting error.
 STRING and ARGS are thrown on `format' to get the message."
   (let ((errstr (apply 'format string args)))
     (elint-log-message errstr)
     ))
 
 (defun elint-warning (string &rest args)
-  "Report an linting warning.
+  "Report a linting warning.
 STRING and ARGS are thrown on `format' to get the message."
   (let ((errstr (apply 'format string args)))
     (elint-log-message errstr)
@@ -749,7 +750,6 @@ If no documentation could be found args will be `unknown'."
     (catch tag &rest body)
     (and &rest args)
     (funcall func &rest args)
-    (insert-string &rest args)
     (insert &rest args)
     (vconcat &rest args)
     (run-hook-with-args hook &rest args)
@@ -762,7 +762,6 @@ If no documentation could be found args will be `unknown'."
     (message-box string &rest args)
     (prog2 x y &rest body)
     (prog1 first &rest body)
-    (ml-provide-prefix-argument prefix form)
     (insert-before-markers &rest args)
     (call-process-region start end program &optional delete
 			 destination display &rest args)
@@ -772,7 +771,6 @@ If no documentation could be found args will be `unknown'."
     (track-mouse &rest body)
     (unwind-protect bodyform &rest unwindforms)
     (save-restriction &rest body)
-    (ml-prefix-argument-loop)
     (quote arg)
     (make-byte-code &rest args)
     (or &rest args)
@@ -780,7 +778,6 @@ If no documentation could be found args will be `unknown'."
     (start-process name buffer program &rest args)
     (run-hook-with-args-until-failure hook &rest args)
     (if cond then &rest else)
-    (ml-if)
     (apply function &rest args)
     (format string &rest args)
     (encode-time second minute hour day month year zone &rest args)
@@ -805,4 +802,5 @@ If no documentation could be found args will be `unknown'."
 
 (provide 'elint)
 
+;;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f
 ;;; elint.el ends here