# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192316136 0
# Node ID f89fc93887820fd30078dfb2888c98d121279097
# Parent  7d48c6241478084b48cca6ce5f8d1f7a179d95bd
(idlwave-complete-in-buffer): Use mapc rather than mapcar.

diff -r 7d48c6241478 -r f89fc9388782 lisp/progmodes/idlwave.el
--- a/lisp/progmodes/idlwave.el	Sat Oct 13 22:55:09 2007 +0000
+++ b/lisp/progmodes/idlwave.el	Sat Oct 13 22:55:36 2007 +0000
@@ -6785,12 +6785,12 @@
       (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))