# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766389 0
# Node ID 0aa483c9d53e3ac400de7e2d3b5c72d89e082fe2
# Parent  73311bfc1e1e0a3299ad7f7043ae4b847343cae3
(ebrowse-tree-mode, ebrowse-view-exit-fn, ebrowse-member-mode,
ebrowse-save-tree-as, ebrowse-save-class): Use `mapc' rather than `mapcar'.

diff -r 73311bfc1e1e -r 0aa483c9d53e lisp/progmodes/ebrowse.el
--- a/lisp/progmodes/ebrowse.el	Wed Sep 26 00:25:26 2007 +0000
+++ b/lisp/progmodes/ebrowse.el	Wed Sep 26 00:26:29 2007 +0000
@@ -1148,15 +1148,15 @@
       (erase-buffer)
       (message nil))
 
-    (mapcar 'make-local-variable
-	    '(ebrowse--tags-file-name
-	      ebrowse--indentation
-	      ebrowse--tree
-	      ebrowse--header
-	      ebrowse--show-file-names-flag
-	      ebrowse--frozen-flag
-	      ebrowse--tree-obarray
-	      revert-buffer-function))
+    (mapc 'make-local-variable
+	  '(ebrowse--tags-file-name
+	    ebrowse--indentation
+	    ebrowse--tree
+	    ebrowse--header
+	    ebrowse--show-file-names-flag
+	    ebrowse--frozen-flag
+	    ebrowse--tree-obarray
+	    revert-buffer-function))
 
     (setf ebrowse--show-file-names-flag nil
 	  ebrowse--tree-obarray (make-vector 127 0)
@@ -1638,10 +1638,10 @@
       (setq original-frame-configuration ebrowse--frame-configuration
 	    exit-action ebrowse--view-exit-action))
     ;; Delete the frame in which we viewed.
-    (mapcar 'delete-frame
-	    (loop for frame in (frame-list)
-		  when (not (assq frame original-frame-configuration))
-		  collect frame))
+    (mapc 'delete-frame
+	  (loop for frame in (frame-list)
+	     when (not (assq frame original-frame-configuration))
+	     collect frame))
     (when exit-action
       (funcall exit-action buffer))))
 
@@ -2256,28 +2256,28 @@
   (kill-all-local-variables)
   (use-local-map ebrowse-member-mode-map)
   (setq major-mode 'ebrowse-member-mode)
-  (mapcar 'make-local-variable
-	  '(ebrowse--decl-column	;display column
-	    ebrowse--n-columns		;number of short columns
-	    ebrowse--column-width	;width of columns above
-	    ebrowse--show-inherited-flag ;include inherited members?
-	    ebrowse--filters		;public, protected, private
-	    ebrowse--accessor		;vars, functions, friends
-	    ebrowse--displayed-class	;class displayed
-	    ebrowse--long-display-flag	;display with regexps?
-	    ebrowse--source-regexp-flag	;show source regexp?
-	    ebrowse--attributes-flag	;show `virtual' and `inline'
-	    ebrowse--member-list	;list of members displayed
-	    ebrowse--tree		;the class tree
-	    ebrowse--member-mode-strings ;part of mode line
-	    ebrowse--tags-file-name	;
-	    ebrowse--header
-	    ebrowse--tree-obarray
-	    ebrowse--virtual-display-flag
-	    ebrowse--inline-display-flag
-	    ebrowse--const-display-flag
-	    ebrowse--pure-display-flag
-	    ebrowse--frozen-flag))	;buffer not automagically reused
+  (mapc 'make-local-variable
+	'(ebrowse--decl-column	        ;display column
+	  ebrowse--n-columns		;number of short columns
+	  ebrowse--column-width	        ;width of columns above
+	  ebrowse--show-inherited-flag  ;include inherited members?
+	  ebrowse--filters		;public, protected, private
+	  ebrowse--accessor		;vars, functions, friends
+	  ebrowse--displayed-class	;class displayed
+	  ebrowse--long-display-flag	;display with regexps?
+	  ebrowse--source-regexp-flag	;show source regexp?
+	  ebrowse--attributes-flag	;show `virtual' and `inline'
+	  ebrowse--member-list          ;list of members displayed
+	  ebrowse--tree		        ;the class tree
+	  ebrowse--member-mode-strings  ;part of mode line
+	  ebrowse--tags-file-name	;
+	  ebrowse--header
+	  ebrowse--tree-obarray
+	  ebrowse--virtual-display-flag
+	  ebrowse--inline-display-flag
+	  ebrowse--const-display-flag
+	  ebrowse--pure-display-flag
+	  ebrowse--frozen-flag))	;buffer not automagically reused
   (setq mode-name "Ebrowse-Members"
 	mode-line-buffer-identification
 	(propertized-buffer-identification "C++ Members")
@@ -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))