[Emacs-diffs] /srv/bzr/emacs/trunk r103799: lisp/progmodes/idlwave.el: Use `dolist' rather than `mapcar'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 103799
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-02 00:33:37 +0200
message:
  lisp/progmodes/idlwave.el: Use `dolist' rather than `mapcar'.
modified:
  lisp/ChangeLog
  lisp/progmodes/idlwave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-01 17:19:52 +0000
+++ b/lisp/ChangeLog    2011-04-01 22:33:37 +0000
@@ -1,3 +1,8 @@
+2011-04-01  Juanma Barranquero  <address@hidden>
+
+       * progmodes/idlwave.el (idlwave-one-key-select, idlwave-list-abbrevs):
+       Use `dolist' rather than `mapcar'.
+
 2011-04-01  Stefan Monnier  <address@hidden>
 
        Add lexical binding.

=== modified file 'lisp/progmodes/idlwave.el'
--- a/lisp/progmodes/idlwave.el 2011-02-28 01:07:29 +0000
+++ b/lisp/progmodes/idlwave.el 2011-04-01 22:33:37 +0000
@@ -7068,10 +7068,9 @@
         ;; 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 @@
        (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)))