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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 288199fd702f7ddc68be9a6b6493cdc2d64ff4ea..7d5b9f592ddfe0e7e3249ecf1baf749569f15815 100644 (file)
--- 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 5b7e07a5aadcf4e04b64c957469e7adb977cf8fd..8066e1c3a7f3da3427c98e74c824471b6e3d3a77 100644 (file)
--- 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)))