diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-12-26 18:17:44 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-12-26 18:17:44 +0100 |
commit | f4542b98f93f4c34b7f88bc0c9b2035fd5301ffb (patch) | |
tree | 4ff9d9ae75b249bbc85e379f000b4eb00b376f42 /helm-buffers.el | |
parent | 7114f997281dd775ef7746d9168894070f042e01 (diff) |
Fix preselection when killing buffers
* helm-buffers.el (helm-buffers-persistent-kill-1): No need to
force-update here.
(helm-buffers--quote-truncated-buffer): Handle helm-buffer-details-flag.
Diffstat (limited to 'helm-buffers.el')
-rw-r--r-- | helm-buffers.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/helm-buffers.el b/helm-buffers.el index c16d4966..e72ba625 100644 --- a/helm-buffers.el +++ b/helm-buffers.el @@ -814,20 +814,19 @@ If a prefix arg is given split windows vertically." (sit-for 1)) (with-current-buffer buf (kill-buffer buffer-or-name)) - (helm-delete-current-selection) - (with-helm-temp-hook 'helm-after-persistent-action-hook - (helm-force-update (regexp-quote (helm-get-selection nil t))))))) + (helm-delete-current-selection)))) (defun helm-buffers--quote-truncated-buffer (buffer) (let ((bufname (and (bufferp buffer) (buffer-name buffer)))) (when bufname (regexp-quote - (if helm-buffer-max-length + (if (and helm-buffer-max-length + helm-buffer-details-flag) (helm-substring-by-width bufname helm-buffer-max-length "") - bufname))))) + bufname))))) (defun helm-buffers-persistent-kill (_buffer) (let ((marked (helm-marked-candidates))) |