emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/popper 8592573f33 070/102: Fixed popper-echo display wh


From: ELPA Syncer
Subject: [elpa] externals/popper 8592573f33 070/102: Fixed popper-echo display when groups are symbols
Date: Fri, 8 Sep 2023 15:58:54 -0400 (EDT)

branch: externals/popper
commit 8592573f3380acb2beb3c611787c939008c81b2b
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    Fixed popper-echo display when groups are symbols
---
 README.org     | 2 +-
 popper-echo.el | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 2ac517e531..df16e2da15 100644
--- a/README.org
+++ b/README.org
@@ -4,8 +4,8 @@
 
[[https://melpa.org/#/popper][file:https://melpa.org/packages/popper-badge.svg]]
 :END:
 
-- /New in v0.40: Auto-hide or suppress popup buffers, assign popups by 
predicate/
 - /New in v0.45: popper-echo-mode for displaying popup names in the echo area 
and dispatching to them/
+- /New in v0.40: Auto-hide or suppress popup buffers, assign popups by 
predicate/
 
 Popper is a minor-mode to tame the flood of ephemeral windows Emacs produces,
 while still keeping them within arm's reach.
diff --git a/popper-echo.el b/popper-echo.el
index e07a117bd2..7d0a2be581 100644
--- a/popper-echo.el
+++ b/popper-echo.el
@@ -111,14 +111,14 @@ off."
   (let* ((message-log-max nil)
          (grp-symb (when popper-group-function
                        (funcall popper-group-function)))
-         (group (if (and grp-symb (symbolp grp-symb))
-                         (symbol-name grp-symb)
-                       grp-symb))
-         (buried-popups (thread-last (alist-get group 
popper-buried-popup-alist nil nil 'equal)
+         (buried-popups (thread-last (alist-get grp-symb 
popper-buried-popup-alist nil nil 'equal)
                           (mapcar #'cdr)
                           (cl-remove-if-not #'buffer-live-p)
                           (mapcar #'buffer-name)
                           (delete-dups)))
+         (group (if (and grp-symb (symbolp grp-symb))
+                         (symbol-name grp-symb)
+                       grp-symb))
          (open-popup (buffer-name))
          (dispatch-keys-extended (append popper-echo-dispatch-keys
                                      (make-list (max 0 (- (length 
buried-popups)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]