[Emacs-diffs] Changes to emacs/lisp/subr.el,v

[Kim F. Storm]

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