emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 038a426 31/68: ace-window.el: whitespace


From: Oleh Krehel
Subject: [elpa] master 038a426 31/68: ace-window.el: whitespace
Date: Sat, 21 Mar 2015 19:06:58 +0000

branch: master
commit 038a426ed9e6d4407d59dbe10619cbb85df84d7b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]