diff options
| author | gcv <gepardcv@gmail.com> | 2021-12-02 15:07:30 -0800 |
|---|---|---|
| committer | gcv <gepardcv@gmail.com> | 2021-12-12 20:35:23 -0800 |
| commit | d8211a80fbc2cc0d9e163ef6a3e1d0a693b4e00e (patch) | |
| tree | 61e323c4ef4c08ce336fb54f41e1de86f7863742 | |
| parent | 1ccce551689a3a26eb511cce0514ea9043835549 (diff) | |
Add metadata to persp-kill-buffer*.
| -rw-r--r-- | perspective.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perspective.el b/perspective.el index a22c194..1ddfec4 100644 --- a/perspective.el +++ b/perspective.el @@ -1471,7 +1471,10 @@ PERSP-SET-IDO-BUFFERS)." ;; persp-interactive-completion-function, since it is expected to have ;; been replaced by a completion framework. (completing-read (format "Kill buffer (default %s): " (buffer-name (current-buffer))) - (persp-current-buffer-names) + (lambda (string predicate action) + (if (eq 'metadata action) + '(metadata (category . buffer)) + (complete-with-action action (persp-current-buffer-names) string predicate))) nil nil nil nil (buffer-name (current-buffer)))))) (kill-buffer buffer-or-name)) |