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