[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4570578 46/68: ace-window.el (aw--doit): simplify
From: |
Oleh Krehel |
Subject: |
[elpa] master 4570578 46/68: ace-window.el (aw--doit): simplify |
Date: |
Sat, 21 Mar 2015 19:07:03 +0000 |
branch: master
commit 4570578844d1a5647966d7efe273dfebc0ba97a4
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
ace-window.el (aw--doit): simplify
---
ace-window.el | 14 +++++++-------
1 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/ace-window.el b/ace-window.el
index 77aa5d6..cd28c42 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -148,8 +148,7 @@ Set mode line to MODE-LINE during the selection process."
('global 'visible)
('frame 'frame)))
(visual-area-list
- (sort (aw-list-visual-area)
- 'aw-visual-area<))
+ (sort (aw-list-visual-area) 'aw-visual-area<))
(visual-area-list
(if (<= (length visual-area-list) 2)
visual-area-list
@@ -226,19 +225,20 @@ Set mode line to MODE-LINE during the selection process."
(catch 'done
(while t
(setq char (read-char))
- (setq node (nth (or (cl-position char aw-keys) (length
aw-keys))
- (cdr ace-jump-search-tree)))
+ (setq node (cl-position char aw-keys))
+ (when node
+ (setq node (nth node (cdr ace-jump-search-tree))))
(cond ((null node)
(message "No such position candidate.")
(throw 'done nil))
((eq (car node) 'branch)
(let ((old-tree ace-jump-search-tree))
- (setq ace-jump-search-tree (cons 'branch (cdr
node)))
+ (setq ace-jump-search-tree
+ (cons 'branch (cdr node)))
(ace-jump-update-overlay-in-search-tree
ace-jump-search-tree aw-keys)
- (setf (cdr node)
- nil)
+ (setf (cdr node) nil)
(ace-jump-delete-overlay-in-search-tree
old-tree)))
((eq (car node) 'leaf)
- [elpa] master 752c2cc 37/68: README.md: update, (continued)
- [elpa] master 752c2cc 37/68: README.md: update, Oleh Krehel, 2015/03/21
- [elpa] master b86d163 40/68: ace-window.el (ace-window-end-once-hook): Add, Oleh Krehel, 2015/03/21
- [elpa] master 6becad8 38/68: ace-window.el: bump version, Oleh Krehel, 2015/03/21
- [elpa] master bb9da9c 44/68: Update `aw--doit' signature, Oleh Krehel, 2015/03/21
- [elpa] master 352c33a 43/68: Finalize transition to `read-char', Oleh Krehel, 2015/03/21
- [elpa] master 32911db 42/68: Start transition to `read-char', Oleh Krehel, 2015/03/21
- [elpa] master 50fafc5 45/68: ace-window.el (aw--doit): don't show anything in echo area, Oleh Krehel, 2015/03/21
- [elpa] master 4291989 41/68: ace-window.el (ace-maximize-window): Add, Oleh Krehel, 2015/03/21
- [elpa] master 064c4fb 49/68: ace-window.el (aw-select): Rename from `aw--doit', Oleh Krehel, 2015/03/21
- [elpa] master b351b51 48/68: Clean up code, Oleh Krehel, 2015/03/21
- [elpa] master 4570578 46/68: ace-window.el (aw--doit): simplify,
Oleh Krehel <=
- [elpa] master df86665 51/68: ace-window.el (aw-ignored-buffers): add "*LV*", Oleh Krehel, 2015/03/21
- [elpa] master fa7cb4d 47/68: `aw--doit' simply returns a window now, Oleh Krehel, 2015/03/21
- [elpa] master e1ae6ba 50/68: Try not to end in `aw-ignored-p' when ace method isn't invoked, Oleh Krehel, 2015/03/21
- [elpa] master 47bd115 52/68: Allow customizing the leading char face, Oleh Krehel, 2015/03/21
- [elpa] master c897759 55/68: Update avy interface, Oleh Krehel, 2015/03/21
- [elpa] master 574b3bd 57/68: Add `aw-leading-char-style' extra-awesome custom var, Oleh Krehel, 2015/03/21
- [elpa] master 8b5f10a 53/68: Update outlines, Oleh Krehel, 2015/03/21
- [elpa] master d7cafcb 56/68: avy-jump.el: add example commands using avy, Oleh Krehel, 2015/03/21
- [elpa] master fcc64ab 59/68: avy-jump.el (avi--regex-candidates): Add optional bounds, Oleh Krehel, 2015/03/21
- [elpa] master d932090 60/68: avy-jump.el (avi--overlay): Fix bug, Oleh Krehel, 2015/03/21