lisp/progmodes/idlwave.el: Use `dolist' rather than `mapcar'.

2 files changed, 13 insertions, 11 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 288199fd702..7d5b9f592dd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-01  Juanma Barranquero  <lekktu@gmail.com>
+
+        * progmodes/idlwave.el (idlwave-one-key-select, idlwave-list-abbrevs):
+        Use `dolist' rather than `mapcar'.
+
 2011-04-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         Add lexical binding.
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 5b7e07a5aad..8066e1c3a7f 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -7068,10 +7068,9 @@ If these don't exist, a letter in the string is automatically selected."
         ;; No quick reply: Show help
         (save-window-excursion
           (with-output-to-temp-buffer "*Completions*"
-            (mapcar (lambda(x)
-                      (princ (nth 1 x))
-                      (princ "\n"))
-                    keys-alist))
+            (dolist (x keys-alist)
+              (princ (nth 1 x))
+              (princ "\n")))
           (setq char (read-char)))
       (setq char (read-char)))
     (message nil)
@@ -9313,13 +9312,11 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
         (princ "================================================\n\n")
         (princ (format fmt "KEY" "ACTION" ""))
         (princ (format fmt "---" "------" "")))
-      (mapcar
-       (lambda (list)
-         (setq str (car list)
-               rpl (nth 1 list)
-               func (nth 2 list))
-         (princ (format fmt str rpl func)))
-       abbrevs)))
+      (dolist (list abbrevs)
+        (setq str (car list)
+              rpl (nth 1 list)
+              func (nth 2 list))
+        (princ (format fmt str rpl func)))))
   ;; Make sure each abbreviation uses only one display line
   (with-current-buffer "*Help*"
     (setq truncate-lines t)))