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

[Juanma Barranquero]

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

Index: ebrowse.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/ebrowse.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- ebrowse.el  29 Aug 2007 05:28:09 -0000      1.43
+++ ebrowse.el  26 Sep 2007 00:26:29 -0000      1.44
@@ -1148,7 +1148,7 @@
       (erase-buffer)
       (message nil))
 
-    (mapcar 'make-local-variable
+    (mapc 'make-local-variable
            '(ebrowse--tags-file-name
              ebrowse--indentation
              ebrowse--tree
@@ -1638,7 +1638,7 @@
       (setq original-frame-configuration ebrowse--frame-configuration
            exit-action ebrowse--view-exit-action))
     ;; Delete the frame in which we viewed.
-    (mapcar 'delete-frame
+    (mapc 'delete-frame
            (loop for frame in (frame-list)
                  when (not (assq frame original-frame-configuration))
                  collect frame))
@@ -2256,7 +2256,7 @@
   (kill-all-local-variables)
   (use-local-map ebrowse-member-mode-map)
   (setq major-mode 'ebrowse-member-mode)
-  (mapcar 'make-local-variable
+  (mapc 'make-local-variable
          '(ebrowse--decl-column        ;display column
            ebrowse--n-columns          ;number of short columns
            ebrowse--column-width       ;width of columns above
@@ -4148,7 +4148,7 @@
          (erase-buffer)
          (setf (ebrowse-hs-member-table header) nil)
          (insert (prin1-to-string header) " ")
-         (mapcar 'ebrowse-save-class tree)
+         (mapc 'ebrowse-save-class tree)
          (write-file file-name)
          (message "Tree written to file `%s'" file-name))
       (kill-buffer temp-buffer)
@@ -4163,7 +4163,7 @@
   (insert "[ebrowse-ts ")
   (prin1 (ebrowse-ts-class class))     ;class name
   (insert "(")                         ;list of subclasses
-  (mapcar 'ebrowse-save-class (ebrowse-ts-subclasses class))
+  (mapc 'ebrowse-save-class (ebrowse-ts-subclasses class))
   (insert ")")
   (dolist (func ebrowse-member-list-accessors)
     (prin1 (funcall func class))