comparison lisp/emacs-lisp/elp.el @ 84900:38183e606be5

(elp-results): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:14:17 +0000
parents 935157c0b596
children efa76b2f6668 bdb3fe0ba9fa
comparison
equal deleted inserted replaced
84899:789f9201f375 84900:38183e606be5
613 ;; if sorting is enabled, then sort the results list. in either 613 ;; if sorting is enabled, then sort the results list. in either
614 ;; case, call elp-output-result to output the result in the 614 ;; case, call elp-output-result to output the result in the
615 ;; buffer 615 ;; buffer
616 (if elp-sort-by-function 616 (if elp-sort-by-function
617 (setq resvec (sort resvec elp-sort-by-function))) 617 (setq resvec (sort resvec elp-sort-by-function)))
618 (mapcar 'elp-output-result resvec)) 618 (mapc 'elp-output-result resvec))
619 ;; now pop up results buffer 619 ;; now pop up results buffer
620 (set-buffer curbuf) 620 (set-buffer curbuf)
621 (pop-to-buffer resultsbuf) 621 (pop-to-buffer resultsbuf)
622 ;; copy results to standard-output? 622 ;; copy results to standard-output?
623 (if (or elp-use-standard-output noninteractive) 623 (if (or elp-use-standard-output noninteractive)