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

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

[elpa] master 064c4fb 49/68: ace-window.el (aw-select): Rename from `aw-


From: Oleh Krehel
Subject: [elpa] master 064c4fb 49/68: ace-window.el (aw-select): Rename from `aw--doit'
Date: Sat, 21 Mar 2015 19:07:05 +0000

branch: master
commit 064c4fb35ead9f34ab17c8e6c061a2fdcd642542
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ace-window.el (aw-select): Rename from `aw--doit'
---
 ace-window.el |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/ace-window.el b/ace-window.el
index fde7976..5f4a7d0 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -35,7 +35,7 @@
 ;; window.  Note that unlike `ace-jump-mode', the point position will
 ;; not be changed: only current window focus changes.
 ;;
-;; To setup this package, just add to your ~.emacs:
+;; To setup this package, just add to your .emacs:
 ;;
 ;;    (global-set-key (kbd "M-p") 'ace-window)
 ;;
@@ -48,6 +48,11 @@
 ;; This way they're all on the home row, although the intuitive
 ;; ordering is lost.
 ;;
+;; If you don't want the gray background that makes the red selection
+;; characters stand out more, set this:
+;;
+;;    (setq aw-background nil)
+;;
 ;; When prefixed with one `universal-argument', instead of switching
 ;; to selected window, the selected window is swapped with current one.
 ;;
@@ -136,7 +141,7 @@ This hook is set to nil with each call to `ace-window'.")
     (ace-jump-delete-overlay-in-search-tree ace-jump-search-tree)
     (setq ace-jump-search-tree nil)))
 
-(defun aw--doit (mode-line)
+(defun aw-select (mode-line)
   "Return a selected other window.
 Amend MODE-LINE to the mode line for the duration of the selection."
   (let* ((start-window (selected-window))
@@ -236,28 +241,28 @@ Amend MODE-LINE to the mode line for the duration of the 
selection."
   "Ace select window."
   (interactive)
   (aw-switch-to-window
-   (aw--doit " Ace - Window")))
+   (aw-select " Ace - Window")))
 
 ;;;###autoload
 (defun ace-delete-window ()
   "Ace delete window."
   (interactive)
   (aw-delete-window
-   (aw--doit " Ace - Delete Window")))
+   (aw-select " Ace - Delete Window")))
 
 ;;;###autoload
 (defun ace-swap-window ()
   "Ace swap window."
   (interactive)
   (aw-swap-window
-   (aw--doit " Ace - Swap Window")))
+   (aw-select " Ace - Swap Window")))
 
 ;;;###autoload
 (defun ace-maximize-window ()
   "Ace maximize window."
   (interactive)
   (select-window
-   (aw--doit " Ace - Maximize Window"))
+   (aw-select " Ace - Maximize Window"))
   (delete-other-windows))
 
 ;;;###autoload



reply via email to

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