Skip to content
This repository has been archived by the owner on Jun 25, 2024. It is now read-only.

Commit

Permalink
* which-key.el (which-key--pad-column): Untabify.
Browse files Browse the repository at this point in the history
  • Loading branch information
jeremy-bryant authored and justbur committed Mar 12, 2024
1 parent af8a760 commit 1f55b85
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions which-key.el
Original file line number Diff line number Diff line change
Expand Up @@ -1996,17 +1996,17 @@ that width."
(let* ((col-key-width (+ which-key-add-column-padding
(which-key--max-len col-keys 0)))
(col-sep-width (which-key--max-len col-keys 1))
(avl-width (- avl-width col-key-width col-sep-width))
(avl-width (- avl-width col-key-width col-sep-width))
(col-desc-width (min avl-width
(which-key--max-len
(which-key--max-len
col-keys 2
which-key-min-column-description-width)))
which-key-min-column-description-width)))
(col-width (+ col-key-width col-sep-width col-desc-width))
(col-format (concat "%" (int-to-string col-key-width)
(col-format (concat "%" (int-to-string col-key-width)
"s%s%-" (int-to-string col-desc-width) "s")))
(cons col-width
(mapcar (lambda (k) (apply #'format col-format k))
col-keys))))
col-keys))))

(defun which-key--partition-list (n list)
"Partition LIST into N-sized sublists."
Expand Down

0 comments on commit 1f55b85

Please sign in to comment.