comparison lisp/progmodes/idlwave.el @ 85282:f89fc9388782

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

85281:7d48c6241478

     (t
      ;; We cannot add something - offer a list.
      (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))
      (let* ((list all-completions)
	     ;; "complete" means, this is already a valid completion
	     (complete (memq spart all-completions))
	     (completion-highlight-first-word-only t)) ; XEmacs
;	     (completion-fixup-function               ; Emacs

85282:f89fc9388782

     (t
      ;; We cannot add something - offer a list.
      (message "Making completion list...")

      (unless idlwave-completion-help-links ; already set somewhere?
	(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))
	     (completion-highlight-first-word-only t)) ; XEmacs
;	     (completion-fixup-function               ; Emacs