# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1190361959 0
# Node ID b6cf194b9eb153a442645c1afa63720cff94e840
# Parent  32ed8aa23e1cfc2725a7fc746a08984650cc67ad
(fortran-mode-abbrev-table, fortran-line-length): Use mapc rather than mapcar.

diff -r 32ed8aa23e1c -r b6cf194b9eb1 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Fri Sep 21 08:05:42 2007 +0000
+++ b/lisp/progmodes/fortran.el	Fri Sep 21 08:05:59 2007 +0000
@@ -649,7 +649,7 @@
 (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 @@
 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))))