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

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-symbol-p): Simplify.

Browse source
This commit is contained in:
Andrea Corallo 2024-04-10 18:03:26 +02:00
parent 219b98916b
commit d4d8575bf0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp-cstr.el
View file

@ -929,11 +929,9 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
(with-comp-cstr-accessors
(and (null (range cstr))
(null (neg cstr))
(or (and (null (valset cstr))
(and (or (null (typeset cstr))
(equal (typeset cstr) '(symbol)))
(and (or (null (typeset cstr))
(equal (typeset cstr) '(symbol)))
(cl-every #'symbolp (valset cstr)))))))
(cl-every #'symbolp (valset cstr))))))
(defsubst comp-cstr-cons-p (cstr)
"Return t if CSTR is certainly a cons."