File tree Expand file tree Collapse file tree 2 files changed +6
-7
lines changed Expand file tree Collapse file tree 2 files changed +6
-7
lines changed Original file line number Diff line number Diff line change @@ -185,11 +185,10 @@ nil."
185
185
" Formats screen message about CHOICE.
186
186
CHOICE is a \( key function documentation allows-capitals\) ."
187
187
(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
+ " : "
193
192
(resize-window--choice-documentation choice))))
194
193
195
194
(defun resize-window--get-documentation-strings ()
Original file line number Diff line number Diff line change 21
21
(defvar choice-capital '(?n 'function " documentation" t ))
22
22
23
23
(ert-deftest should-create-documentation-from-alist ()
24
- (should (equal " n : documentation "
24
+ (should (equal " n : documentation"
25
25
(resize-window--display-choice choice-no-capital)))
26
- (should (equal " n|N: documentation "
26
+ (should (equal " n|N : documentation"
27
27
(resize-window--display-choice choice-capital))))
28
28
29
29
(ert-deftest should-execute-and-display-message ()
You can’t perform that action at this time.
0 commit comments