[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elint.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:13:53

Index: elint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/elint.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- elint.el    26 Jul 2007 05:26:46 -0000      1.18
+++ elint.el    26 Sep 2007 00:13:53 -0000      1.19
@@ -218,7 +218,7 @@
                                            (buffer-file-name)
                                          (buffer-name))))
   (elint-display-log)
-  (mapcar 'elint-top-form (elint-update-env))
+  (mapc 'elint-top-form (elint-update-env))
 
   ;; Tell the user we're finished. This is terribly klugy: we set
   ;; elint-top-form-logged so elint-log-message doesn't print the
@@ -542,7 +542,7 @@
 (defun elint-check-defun-form (form env)
   "Lint a defun/defmacro/lambda FORM in ENV."
   (setq form (if (eq (car form) 'lambda) (cdr form) (cdr (cdr form))))
-  (mapcar (function (lambda (p)
+  (mapc (function (lambda (p)
                      (or (memq p '(&optional &rest))
                          (setq env (elint-env-add-var env p)))
                      ))
@@ -566,7 +566,7 @@
 
       ;; Add variables to environment, and check the init values
       (let ((newenv env))
-       (mapcar (function (lambda (s)
+       (mapc (function (lambda (s)
                            (cond
                             ((symbolp s)
                              (setq newenv (elint-env-add-var newenv s)))
@@ -665,7 +665,7 @@
            errlist)
        (while errforms
          (setq errlist (car (car errforms)))
-         (mapcar (function (lambda (s)
+         (mapc (function (lambda (s)
                              (or (get s 'error-conditions)
                                  (get s 'error-message)
                                  (elint-warning
@@ -767,7 +767,7 @@
 (defun elint-initialize ()
   "Initialize elint."
   (interactive)
-  (mapcar (function (lambda (x)
+  (mapc (function (lambda (x)
                      (or (not (symbolp (car x)))
                          (eq (cdr x) 'unknown)
                          (put (car x) 'elint-args (cdr x)))))