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

[Juanma Barranquero]

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

Index: ada-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/ada-mode.el,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -b -r1.88 -r1.89
--- ada-mode.el 27 Aug 2007 04:00:06 -0000      1.88
+++ ada-mode.el 26 Sep 2007 00:23:56 -0000      1.89
@@ -1423,10 +1423,10 @@
 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"))
+  (mapc (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"))
+  (mapc (lambda (x) (insert "*" (car x) "\n"))
            (sort (copy-sequence ada-case-exception-substring)
                  (lambda(a b) (string< (car a) (car b)))))
   (save-buffer)