branch: elpa/slime
commit 8c769fe8b8bed35b8e4ed5be4c29ba794c26bfc9
Author: Stas Boukarev <[email protected]>
Commit: Stas Boukarev <[email protected]>
Fix slime-fuzzy-fill-completions-buffer formatting.
---
contrib/slime-fuzzy.el | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/contrib/slime-fuzzy.el b/contrib/slime-fuzzy.el
index 33d85cad443..2b005799ed7 100644
--- a/contrib/slime-fuzzy.el
+++ b/contrib/slime-fuzzy.el
@@ -397,15 +397,12 @@ done."
(dotimes (i (- max-length 10)) (insert " "))
;; Flags
;; ... -------
- ;; bfgctmsp
- (let* ((example-classification-string (cl-fourth (cl-first completions)))
- (classification-length (length example-classification-string)))
- (insert " Flags\n")
- (dotimes (i max-length) (insert "-"))
- (insert " ")
- (dotimes (i classification-length) (insert "-"))
- (insert " ---------\n")
- (setq slime-fuzzy-first (point)))
+ ;; bfgctmspa
+ (insert " Flags\n")
+ (dotimes (i max-length) (insert "-"))
+ (insert " ")
+ (insert " ---------\n")
+ (setq slime-fuzzy-first (point))
(dolist (completion completions)
(setq slime-fuzzy-last (point)) ; will eventually become the last entry
