From: Glenn Morris <rgm@gnu.org>
Date: Fri, 21 Sep 2007 08:05:59 +0000 (+0000)
Subject: (fortran-mode-abbrev-table, fortran-line-length): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c5de2a1193f0b9fa38ccf6f98c8427a136579cb;p=emacs.git

(fortran-mode-abbrev-table, fortran-line-length): Use mapc rather than mapcar.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 098cc8b8d82..016e484a6c5 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -649,7 +649,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
 (let (abbrevs-changed)
   ;; Use the 6th arg (SYSTEM-FLAG) of define-abbrev if possible.
   ;; Only use `apply' to quieten the byte-compiler.
-  (mapcar
+  (mapc
    (function (lambda (element)
                (condition-case nil
                    (apply 'define-abbrev fortran-mode-abbrev-table
@@ -852,20 +852,20 @@ Fortran mode.  If the optional argument GLOBAL is non-nil, it
 affects all Fortran buffers, and also the default."
   (interactive "p")
   (let (new)
-    (mapcar (lambda (buff)
-              (with-current-buffer buff
-                (when (eq major-mode 'fortran-mode)
-                  (setq fortran-line-length nchars
-                        fill-column fortran-line-length
-                        new (fortran-font-lock-syntactic-keywords))
-                  ;; Refontify only if necessary.
-                  (unless (equal new font-lock-syntactic-keywords)
-                    (setq font-lock-syntactic-keywords
-                          (fortran-font-lock-syntactic-keywords))
-                    (if font-lock-mode (font-lock-mode 1))))))
-            (if global
-                (buffer-list)
-              (list (current-buffer))))
+    (mapc (lambda (buff)
+            (with-current-buffer buff
+              (when (eq major-mode 'fortran-mode)
+                (setq fortran-line-length nchars
+                      fill-column fortran-line-length
+                      new (fortran-font-lock-syntactic-keywords))
+                ;; Refontify only if necessary.
+                (unless (equal new font-lock-syntactic-keywords)
+                  (setq font-lock-syntactic-keywords
+                        (fortran-font-lock-syntactic-keywords))
+                  (if font-lock-mode (font-lock-mode 1))))))
+          (if global
+              (buffer-list)
+            (list (current-buffer))))
     (if global
         (setq-default fortran-line-length nchars))))