Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add more debugging info to which-key--create-pages

Browse source
This commit is contained in:
Justin Burkett 2024-04-13 15:56:34 -04:00
parent c606abd083
commit 4e7739cdf8
1 changed files with 29 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
which-key.el
View file

@ -2124,11 +2124,36 @@ is the width of the live window."
;; `which-key-allow-imprecise-window-fit' is non-nil.
(setf (which-key--pages-height result) which-key-min-display-lines))
(which-key--debug-message "Frame height: %s
Frame pixel width: %s
Frame char width: %s
Frame width: %s
Which-key initial width: %s
Which-key adjusted width: %s
Minibuffer height: %s
Max dimensions: (%s,%s)
Available for bindings: (%s,%s)
Actual lines: %s" (frame-height) (window-text-height (minibuffer-window))
max-lines max-width avl-lines avl-width (which-key--pages-height result))
Max dimensions: (%s, %s)
Available for bindings: (%s, %s)
Popup type info: (%s, %s, %s)
Computed page widths: %s
Actual lines: %s"
(frame-height)
(frame-pixel-width)
(frame-char-width)
(window-total-width (frame-root-window))
(which-key--width-or-percentage-to-width
which-key-side-window-max-width)
(which-key--total-width-to-text
(which-key--width-or-percentage-to-width
which-key-side-window-max-width))
(window-text-height (minibuffer-window))
max-lines
max-width
avl-lines
avl-width
which-key-popup-type
which-key-side-window-location
which-key-side-window-max-width
(which-key--pages-widths result)
(which-key--pages-height result))
result)))
(defun which-key--lighter-status ()