@@ -189,7 +189,7 @@ CHOICE is a \(key function documentation allows-capitals\)."
189
189
(defun resize-window--get-documentation-strings ()
190
190
" Return documented keybindings as a multiline string."
191
191
(mapconcat #'identity (mapcar 'resize-window--display-choice
192
- resize-window-dispatch-alist)
192
+ resize-window-dispatch-alist)
193
193
" \n " ))
194
194
195
195
(defun resize-window--make-background ()
@@ -211,14 +211,14 @@ If SCALED, then call action with the `resize-window-uppercase-argument'."
211
211
(unless (equal (resize-window--choice-keybinding choice) ?? )
212
212
(resize-window--notify " %s" description))
213
213
(condition-case nil
214
- (if scaled
215
- (funcall action (resize-window-uppercase-argument))
216
- (funcall action))
217
-
218
- ( wrong-number-of-arguments
219
- (resize-window--notify " Invalid arity in function for %s"
220
- (char-to-string
221
- (resize-window--choice-keybinding choice)))))))
214
+ (if scaled
215
+ (funcall action (resize-window-uppercase-argument))
216
+ (funcall action))
217
+ ( wrong-number-of-arguments
218
+ (resize-window--notify
219
+ " Invalid arity in function for %s"
220
+ (char-to-string
221
+ (resize-window--choice-keybinding choice)))))))
222
222
223
223
;;;### autoload
224
224
(defun resize-window ()
@@ -337,7 +337,8 @@ If no SIZE is given, extend by `resize-window-lowercase-argument'."
337
337
338
338
(defun resize-window--key-available? (key )
339
339
" Return non-nil if KEY is bound, otherwise return nil."
340
- (let ((keys (mapcar #'resize-window--choice-keybinding resize-window-dispatch-alist)))
340
+ (let ((keys (mapcar #'resize-window--choice-keybinding
341
+ resize-window-dispatch-alist)))
341
342
(not (member key keys))))
342
343
343
344
(defun resize-window-add-choice (key func doc &optional allows-capitals )
@@ -351,8 +352,10 @@ capitals, and should be of optional single arity if they allow
351
352
capitals. Invoking with the capital will pass the capital
352
353
argument."
353
354
(if (resize-window--key-available? key)
354
- (push (list key func doc allows-capitals) resize-window-dispatch-alist)
355
- (message " The `%s ` key is already taken for resize-window. " (char-to-string key))))
355
+ (push (list key func doc allows-capitals)
356
+ resize-window-dispatch-alist)
357
+ (message " The `%s ` key is already taken for resize-window. "
358
+ (char-to-string key))))
356
359
357
360
(provide 'resize-window )
358
361
; ;; resize-window.el ends here
0 commit comments