branch: master
commit 038a426ed9e6d4407d59dbe10619cbb85df84d7b
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
ace-window.el: whitespace
---
ace-window.el | 24 +++++++++++++-----------
1 files changed, 13 insertions(+), 11 deletions(-)
diff --git a/ace-window.el b/ace-window.el
index 2cc0f84..99fcd64 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -106,9 +106,9 @@ Use M-0 `ace-window' to toggle this value."
(defun aw--callback ()
"Call `aw--current-op' for the window selected by ace-jump."
(interactive)
- (let* ((ret (cl-position (aref (this-command-keys) 0)
- aw-keys))
- (index (or ret (length aw-keys)))
+ (let* ((index (or (cl-position (aref (this-command-keys) 0)
+ aw-keys)
+ (length aw-keys)))
(node (nth index (cdr ace-jump-search-tree))))
(cond ((null node)
(message "No such position candidate.")
@@ -247,16 +247,18 @@ Set mode line to MODE-LINE during the selection process."
;;;###autoload
(defun ace-window (arg)
- "Select a window with `ace-jump-mode'and perform an action based on prefix
ARG.
-Variations are described below.
+ "Select a window with function `ace-jump-mode'.
+Perform an action based on ARG described below.
By default, behaves like extended `other-window'.
-Prefixed with one \\[universal-argument], does a swap between selected window
- and current window, so that the selected buffer moves to current window (and
- current buffer moves to selected window).
+Prefixed with one \\[universal-argument], does a swap between the
+selected window and the current window, so that the selected
+buffer moves to current window (and current buffer moves to
+selected window).
-Prefixed with two \\[universal-argument]'s, deletes the selected window."
+Prefixed with two \\[universal-argument]'s, deletes the selected
+window."
(interactive "p")
(cl-case arg
(0
@@ -295,7 +297,7 @@ Windows are numbered top down, left to right."
(select-frame-set-input-focus frame))
(if (window-live-p window)
(select-window window)
- (error "aw-delete-window: %S" aj-data))))
+ (error "Bad aj-data, aw-delete-window: %S" aj-data))))
(defun aw-delete-window (aj-data)
"Delete window of `aj-position' structure AJ-DATA."
@@ -308,7 +310,7 @@ Windows are numbered top down, left to right."
(delete-frame frame)
(if (window-live-p window)
(delete-window window)
- (error "aw-delete-window: %S" aj-data)))))
+ (error "Bad aj-data, aw-delete-window: %S" aj-data)))))
(defun aw-swap-window (aj-data)
"Swap buffers of current window and that of `aj-position' structure AJ-DATA."
