procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(add-to-list): Fix last change--optimize for no compare-fn.

Browse source
This commit is contained in:
Kim F. Storm 2006-10-22 22:37:51 +00:00
parent fb1a5d8a82
commit 78bdfbf320
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/subr.el
View file

@ -1101,18 +1101,18 @@ into a hook function that will be run only after loading the package.
`eval-after-load' provides one way to do this. In some cases
other hooks, such as major mode hooks, can do the job."
(if (cond
((null compare-fn)
(member element (symbol-value list-var)))
((eq compare-fn 'eq)
(memq element (symbol-value list-var)))
((eq compare-fn 'eql)
(memql element (symbol-value list-var)))
(compare-fn
(t
(let (present)
(dolist (elt (symbol-value list-var))
(if (funcall compare-fn element elt)
(setq present t)))
present))
(t
(member element (symbol-value list-var))))
present)))
(symbol-value list-var)
(set list-var
(if append