mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2007-10-13 23:00:23 +00:00
parent feba774faf
commit 9001c33fa7
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

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

12
lisp/progmodes/idlwave.el
View File

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