[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v |
Date: |
Sun, 22 Oct 2006 22:37:52 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kim F. Storm <kfstorm> 06/10/22 22:37:51
Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.531
retrieving revision 1.532
diff -u -b -r1.531 -r1.532
--- subr.el 22 Oct 2006 22:32:53 -0000 1.531
+++ subr.el 22 Oct 2006 22:37:51 -0000 1.532
@@ -1101,18 +1101,18 @@
`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
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Eli Zaretskii, 2006/10/13
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Richard M. Stallman, 2006/10/18
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Kim F. Storm, 2006/10/22
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v,
Kim F. Storm <=
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, David Kastrup, 2006/10/30