# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766236 0
# Node ID e52cb6ef60ec77f09aee1b637616bce9dc97f9ed
# Parent  e41433198a1b023701760de74ac3abac749db4bf
(ada-save-exceptions-to-file): Use `mapc' rather than `mapcar'.

diff -r e41433198a1b -r e52cb6ef60ec lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Wed Sep 26 00:23:11 2007 +0000
+++ b/lisp/progmodes/ada-mode.el	Wed Sep 26 00:23:56 2007 +0000
@@ -1145,7 +1145,7 @@
 
   (interactive)
   (kill-all-local-variables)
-  
+
   (set-syntax-table ada-mode-syntax-table)
 
   (set (make-local-variable 'require-final-newline) mode-require-final-newline)
@@ -1423,12 +1423,12 @@
 Casing exception lists are `ada-case-exception' and `ada-case-exception-substring'."
   (find-file (expand-file-name file-name))
   (erase-buffer)
-  (mapcar (lambda (x) (insert (car x) "\n"))
-	  (sort (copy-sequence ada-case-exception)
-		(lambda(a b) (string< (car a) (car b)))))
-  (mapcar (lambda (x) (insert "*" (car x) "\n"))
-	    (sort (copy-sequence ada-case-exception-substring)
-		  (lambda(a b) (string< (car a) (car b)))))
+  (mapc (lambda (x) (insert (car x) "\n"))
+	(sort (copy-sequence ada-case-exception)
+	      (lambda(a b) (string< (car a) (car b)))))
+  (mapc (lambda (x) (insert "*" (car x) "\n"))
+	(sort (copy-sequence ada-case-exception-substring)
+	      (lambda(a b) (string< (car a) (car b)))))
   (save-buffer)
   (kill-buffer nil)
   )
@@ -4583,7 +4583,7 @@
   ;; The following keys are bound to functions defined in ada-xref.el or
   ;; ada-prj,el., However, RMS rightly thinks that the code should be shared,
   ;; and activated only if the right compiler is used
-  
+
   (define-key ada-mode-map (if (featurep 'xemacs) '(shift button3) [S-mouse-3])
     'ada-point-and-xref)
   (define-key ada-mode-map [(control tab)] 'ada-complete-identifier)