(pp-buffer): New fun created from the code in

[gnu-emacs] / lisp / emacs-lisp / elint.el

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index d6c5ed3a29ce65cdb900b4fa18662bf6b9c43222..f0f8add48799ff0afc457180d590e831f2146700 100644 (file)
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -1,4 +1,4 @@
-;;; elint.el -- Lint Emacs Lisp
+;;; elint.el --- Lint Emacs Lisp
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -214,7 +214,7 @@ Returns the forms."
 
 (defun elint-find-next-top-form ()
   "Find the next top form from point.
-Returns nil if there are no more forms, T otherwise."
+Return nil if there are no more forms, t otherwise."
   (parse-partial-sexp (point) (point-max) nil t)
   (not (eobp)))
 
@@ -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,5 +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
-