Skip to content

Commit

Permalink
pcase 'otherwise' clause should be _ not 'T (#28)
Browse files Browse the repository at this point in the history
* pcase 'otherwise' clause should be _ not 'T

* Remove an unwanted `pcase` clause change.

We want to explicitly test for the symbol `t` in this case.
  • Loading branch information
mfiano authored Mar 9, 2022
1 parent f9fef81 commit 6029706
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions popper.el
Original file line number Diff line number Diff line change
Expand Up @@ -286,9 +286,9 @@ This is intended to be used in `display-buffer-alist'."
(with-current-buffer buffer
(eq popper-popup-status 'user-popup)))
('t (with-current-buffer buffer
(or (memq popper-popup-status '(popup user-popup))
(unless (eq popper-popup-status 'raised)
(popper-popup-p buffer))))))))
(or (memq popper-popup-status '(popup user-popup))
(unless (eq popper-popup-status 'raised)
(popper-popup-p buffer))))))))

(defun popper-group-by-directory ()
"Return an identifier (default directory) to group popups.
Expand Down Expand Up @@ -585,7 +585,7 @@ If BUFFER is not specified act on the current buffer instead."
(`(,win . ,buf)
(popper--delete-popup win)
(kill-buffer buf))
(t
(_
(message "No open popups!"))))

(defun popper--suppress-p (buf)
Expand Down

0 comments on commit 6029706

Please sign in to comment.