|
|
|
@ -2919,7 +2919,7 @@ Return nil if `-compare-fn' is not a known test function." |
|
|
|
(declare (side-effect-free error-free)) |
|
|
|
(declare (side-effect-free error-free)) |
|
|
|
;; In theory this could also recognize values that are custom |
|
|
|
;; In theory this could also recognize values that are custom |
|
|
|
;; `hash-table-test's, but too often the :test name is different |
|
|
|
;; `hash-table-test's, but too often the :test name is different |
|
|
|
;; from the equality function, so it doesn't seem worthwile. |
|
|
|
;; from the equality function, so it doesn't seem worthwhile. |
|
|
|
(car (memq (or -compare-fn #'equal) '(equal eq eql)))) |
|
|
|
(car (memq (or -compare-fn #'equal) '(equal eq eql)))) |
|
|
|
|
|
|
|
|
|
|
|
(defvar dash--short-list-length 32 |
|
|
|
(defvar dash--short-list-length 32 |
|
|
|
|