branch: elpa/helm
commit 57ad63bcb99c152c77e39604a99f57a9dc55b9e5
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix buffer affix fn cache
---
helm-mode.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index b17ea03c1e..b43ff41bef 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1058,9 +1058,10 @@ should be specified as a string and the category as a
symbol.")
(defvar helm-completing-read--buffer-lgst-mode nil)
(defun helm-completing-read-buffer-affixation (completions)
(let ((len-mode (or helm-completing-read--buffer-lgst-mode
- (cl-loop for bn in completions
- maximize (with-current-buffer bn
- (length (symbol-name
major-mode)))))))
+ (setq helm-completing-read--buffer-lgst-mode
+ (cl-loop for bn in completions
+ maximize (with-current-buffer bn
+ (length (symbol-name
major-mode))))))))
(lambda (comp)
(let* ((buf (get-buffer comp))
(fname (buffer-file-name buf))
