Permalink
Browse files

Eliminate mapcan, which is also from cl

  • Loading branch information...
DarwinAwardWinner committed Oct 18, 2011
1 parent fedda70 commit 72d2245fe96ec1047d6ed931a8585536e882d004
Showing with 3 additions and 2 deletions.
  1. +3 −2 ido-ubiquitous.el
View
@@ -148,8 +148,9 @@ ido-ubiquitous..")
(defun ido-ubiquitous--set-difference (list1 list2)
"Replacement for `set-difference' from `cl'."
(mapcan (lambda (elt) (unless (memq elt list2) (list elt)))
list1))
(apply #'nconc
(mapcar (lambda (elt) (unless (memq elt list2) (list elt)))
list1)))
(defun ido-ubiquitous-set-function-exceptions (sym newval)
(let* ((oldval (when (boundp sym) (eval sym))))

0 comments on commit 72d2245

Please sign in to comment.