diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-02 00:33:37 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-02 00:33:37 +0200 |
| commit | 26b51db565bc58de30c9fdcd31f5066783bfd32b (patch) | |
| tree | 089b056674318667f2984c51a6610f0cece0e28c /lisp/progmodes/idlwave.el | |
| parent | 034086489cff2a23cb4d9f8c536e18456be617ef (diff) | |
| download | emacs-26b51db565bc58de30c9fdcd31f5066783bfd32b.tar.gz emacs-26b51db565bc58de30c9fdcd31f5066783bfd32b.tar.bz2 emacs-26b51db565bc58de30c9fdcd31f5066783bfd32b.zip | |
lisp/progmodes/idlwave.el: Use `dolist' rather than `mapcar'.
Diffstat (limited to 'lisp/progmodes/idlwave.el')
| -rw-r--r-- | lisp/progmodes/idlwave.el | 19 |
1 files changed, 8 insertions, 11 deletions
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))) |