Skip to content

Commit 8c79889

Browse files
committed
Align documentation for help menu
Update: - test/resize-window-test.el
1 parent 2083ee3 commit 8c79889

File tree

2 files changed

+6
-7
lines changed

2 files changed

+6
-7
lines changed

resize-window.el

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -185,11 +185,10 @@ nil."
185185
"Formats screen message about CHOICE.
186186
CHOICE is a \(key function documentation allows-capitals\)."
187187
(let ((key (resize-window--choice-keybinding choice)))
188-
(format "%s: %s " (if (resize-window--allows-capitals choice)
189-
(format "%s|%s"
190-
(string key)
191-
(string (- key 32)))
192-
(string key))
188+
(concat (if (resize-window--allows-capitals choice)
189+
(format "%s|%s" (string key) (string (- key 32)))
190+
(format " %s " (string key)))
191+
" : "
193192
(resize-window--choice-documentation choice))))
194193

195194
(defun resize-window--get-documentation-strings ()

test/resize-window-test.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,9 +21,9 @@
2121
(defvar choice-capital '(?n 'function "documentation" t))
2222

2323
(ert-deftest should-create-documentation-from-alist ()
24-
(should (equal "n: documentation "
24+
(should (equal " n : documentation"
2525
(resize-window--display-choice choice-no-capital)))
26-
(should (equal "n|N: documentation "
26+
(should (equal "n|N : documentation"
2727
(resize-window--display-choice choice-capital))))
2828

2929
(ert-deftest should-execute-and-display-message ()

0 commit comments

Comments
 (0)