[elpa] externals/embark 15c95aee0e 2/2: Merge pull request #710 from minad/multi-category-buffer

[ELPA Syncer]

branch: externals/embark
commit 15c95aee0ec6f42ee3b7a0bc6cf1e2c1ad91dfcd
Merge: c4d492a6ed d8ae99c116
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #710 from minad/multi-category-buffer
    
    embark--refine-multi-category: Handle buffer objects
---
 embark.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index f8879a9daf..bd14853d87 100644
--- a/embark.el
+++ b/embark.el
@@ -2107,7 +2107,12 @@ minibuffer before executing the action."
 
 (defun embark--refine-multi-category (_type target)
   "Refine `multi-category' TARGET to its actual type."
-  (or (get-text-property 0 'multi-category target)
+  (or (let ((mc (get-text-property 0 'multi-category target)))
+        (cond
+         ;; The `cdr' of the `multi-category' property can be a buffer object.
+         ((and (eq (car mc) 'buffer) (buffer-live-p (cdr mc)))
+          (cons 'buffer (buffer-name (cdr mc))))
+         ((stringp (cdr mc)) mc)))
       (cons 'general target)))
 
 (defun embark--simplify-path (_type target)