From db99576a910f7804e0abb8b1fa5f4069c4af1c28 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:08:45 +0000 Subject: [PATCH] (ido-to-end, ido-set-matches-1): Use `mapc' rather than `mapcar'. --- lisp/ido.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ido.el b/lisp/ido.el index ca44e99b594..27e9d66e25c 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -3354,7 +3354,7 @@ for first matching file." (defun ido-to-end (items) ;; Move the elements from ITEMS to the end of `ido-temp-list' - (mapcar + (mapc (lambda (elem) (setq ido-temp-list (delq elem ido-temp-list))) items) @@ -3603,7 +3603,7 @@ for first matching file." full-matches suffix-matches prefix-matches matches) (setq ido-incomplete-regexp nil) (condition-case error - (mapcar + (mapc (lambda (item) (let ((name (ido-name item))) (if (and (or non-prefix-dot @@ -3648,7 +3648,7 @@ for first matching file." (setq re (mapconcat #'regexp-quote (split-string ido-text "") ".*")) (if ido-enable-prefix (setq re (concat "\\`" re))) - (mapcar + (mapc (lambda (item) (let ((name (ido-name item))) (if (string-match re name) -- 2.39.2