(idlwave-complete-in-buffer): Use mapc rather than mapcar.

2 files changed, 9 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ca38764e4b..98e3df74030 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -71,7 +71,9 @@
         (idlwave-fix-keywords, idlwave-display-calling-sequence)
         (idlwave-complete-in-buffer):
         * textmodes/org.el (org-export-as-html, org-export-as-ascii)
-        (org-fast-tag-selection): Use mapc rather than mapcar.
+        (org-fast-tag-selection):
+        * textmodes/reftex-sel.el (reftex-select-item):  Use mapc rather
+        than mapcar.
 
 2007-10-13  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 646f6a80d8e..abe5cfe6489 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -6785,12 +6785,12 @@ accumulate information on matching completions."
       (message "Making completion list...")
 
       (unless idlwave-completion-help-links ; already set somewhere?
-        (mapcar (lambda (x)  ; Pass link prop through to highlight-linked
-                  (let ((link (get-text-property 0 'link (car x))))
-                    (if link
-                        (push (cons (car x) link)
-                              idlwave-completion-help-links))))
-                list))
+        (mapc (lambda (x)  ; Pass link prop through to highlight-linked
+                (let ((link (get-text-property 0 'link (car x))))
+                  (if link
+                      (push (cons (car x) link)
+                            idlwave-completion-help-links))))
+              list))
       (let* ((list all-completions)
              ;; "complete" means, this is already a valid completion
              (complete (memq spart all-completions))