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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ca38764e4b137c17c5978d4a2f42fdbc7fe1d1f..98e3df74030db1712b92cf1d3be11ee6f8569af7 100644 (file)
--- 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 646f6a80d8eb92cbeae391b28f3902cd847a5370..abe5cfe648912bee4545a7dea0ba9bc09be2bd80 100644 (file)
--- 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))