[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/05/25 06:50:33

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.618
retrieving revision 5.619
diff -u -b -r5.618 -r5.619
--- tex.el      4 May 2008 18:58:53 -0000       5.618
+++ tex.el      25 May 2008 06:50:32 -0000      5.619
@@ -2793,7 +2793,7 @@
     (make-directory TeX-auto-global))
   (let ((TeX-file-extensions '("cls" "sty"))
        (BibTeX-file-extensions nil))
-    (mapcar (lambda (macro) (TeX-auto-generate macro TeX-auto-global))
+    (mapc (lambda (macro) (TeX-auto-generate macro TeX-auto-global))
            TeX-macro-global))
   (byte-recompile-directory TeX-auto-global 0))
 
@@ -2809,8 +2809,7 @@
          (erase-buffer)
          (insert "(TeX-add-style-hook \"" style "\"\n"
                  " (lambda ()")
-         (mapcar (lambda (el)
-                   (TeX-auto-insert el style))
+         (mapc (lambda (el) (TeX-auto-insert el style))
                  TeX-auto-parser)
          (insert "))\n\n")
          (write-region (point-min) (point-max) file nil 'silent)
@@ -2999,7 +2998,7 @@
 
   (let ((case-fold-search nil))
 
-    (mapcar 'TeX-auto-clear-entry TeX-auto-parser)
+    (mapc 'TeX-auto-clear-entry TeX-auto-parser)
     (run-hooks 'TeX-auto-prepare-hook)
 
     (save-excursion