|
(unless noquote (setq items-list `',items-list))) |
|
(let* ((cnd `(cl-member-if |
|
#'(lambda (item) |
|
(setq cond-result |
|
,(if all |
|
`(not ,condition) |
|
condition))) |
I'm an elisp noob, but here's the :generated-predicate for one of my auto perspectives:
(lambda
(buffer &rest rest-args)
(when
(buffer-live-p buffer)
(with-current-buffer buffer
(let
(cond-result)
(when
(cl-member-if
#'(lambda
(item)
(setq cond-result
(cond
((symbolp item)
(eq item major-mode))
((persp-regexp-p item)
(persp-string-match-p item
(symbol-name major-mode)))
(t nil))))
'(vterm-mode))
(car rest-args))))))
This predicate returns nil on vterm-mode buffers, and it seems to be because cond-result is never returned.
persp-mode.el/persp-mode.el
Lines 1418 to 1424 in 67be9fe
I'm an elisp noob, but here's the
:generated-predicatefor one of my auto perspectives:This predicate returns
nilon vterm-mode buffers, and it seems to be becausecond-resultis never returned.