From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 23:00:23 +0000 (+0000)
Subject: (idlwave-complete-in-buffer): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9001c33fa7e5b64b3ab5388c810c0ed8f100e129;p=emacs.git

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

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))