[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2f5cc11 15/67: swiper.el: Use `with-selected-window' inste
From: |
Oleh Krehel |
Subject: |
[elpa] master 2f5cc11 15/67: swiper.el: Use `with-selected-window' instead of `with-current-buffer' |
Date: |
Sun, 22 Mar 2015 17:33:53 +0000 |
branch: master
commit 2f5cc1166fe957e26dbe52b0c63563c9a11c32d2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
swiper.el: Use `with-selected-window' instead of `with-current-buffer'
* swiper.el (swiper--buffer): Remove.
(swiper--init): Update.
(swiper--update-input-helm): Update.
(swiper--update-input-ivy): Update.
(swiper--update-sel): Update.
---
swiper.el | 26 ++++++++------------------
1 files changed, 8 insertions(+), 18 deletions(-)
diff --git a/swiper.el b/swiper.el
index da8bdc0..e88d658 100644
--- a/swiper.el
+++ b/swiper.el
@@ -74,12 +74,8 @@
swiper-match-face-4)
"List of `swiper' faces for group matches.")
-(defvar swiper--buffer nil
- "Store current buffer.")
-
(defvar swiper--window nil
- "Store current window.
-This is necessary for `window-start' while in minibuffer.")
+ "Store the current window.")
(defalias 'swiper-font-lock-ensure
(if (fboundp 'font-lock-ensure)
@@ -128,7 +124,6 @@ This is necessary for `window-start' while in minibuffer.")
(deactivate-mark)
(setq swiper--len 0)
(setq swiper--anchor (line-number-at-pos))
- (setq swiper--buffer (current-buffer))
(setq swiper--window (selected-window)))
(defun swiper--ivy ()
@@ -207,7 +202,7 @@ This is necessary for `window-start' while in minibuffer.")
(defun swiper--update-input-helm ()
"Update selection."
(swiper--cleanup)
- (with-current-buffer swiper--buffer
+ (with-selected-window swiper--window
(swiper--add-overlays
(ivy--regex helm-input)
(window-start swiper--window)
@@ -224,13 +219,12 @@ This is necessary for `window-start' while in
minibuffer.")
(num (if (string-match "^[0-9]+" str)
(string-to-number (match-string 0 str))
0)))
- (with-current-buffer swiper--buffer
+ (with-selected-window swiper--window
(goto-char (point-min))
(when (plusp num)
(goto-char (point-min))
(forward-line (1- num))
- (setf (window-point swiper--window)
- (point)))
+ (recenter))
(let ((ov (make-overlay
(line-beginning-position)
(1+ (line-end-position)))))
@@ -239,12 +233,8 @@ This is necessary for `window-start' while in minibuffer.")
(push ov swiper--overlays))
(swiper--add-overlays
re
- (save-excursion
- (forward-line (- (window-height swiper--window)))
- (point))
- (save-excursion
- (forward-line (window-height swiper--window))
- (point))))))
+ (window-start swiper--window)
+ (window-end swiper--window t)))))
(defun swiper--add-overlays (re beg end)
"Add overlays for RE regexp in current buffer between BEG and END."
@@ -312,7 +302,7 @@ This is necessary for `window-start' while in minibuffer.")
0))
pt)
(when (> (length re) 0)
- (with-current-buffer swiper--buffer
+ (with-selected-window swiper--window
(goto-char (point-min))
(forward-line (1- num))
(when (re-search-forward re (point-max) t)
@@ -323,7 +313,7 @@ This is necessary for `window-start' while in minibuffer.")
(goto-char pt)
(recenter)
(swiper--update-input-helm))))
- (with-current-buffer swiper--buffer
+ (with-selected-window swiper--window
(let ((ov (make-overlay
(line-beginning-position)
(1+ (line-end-position)))))
- [elpa] master 1c0b30b 07/67: add autoload cookie for lazy loading, (continued)
- [elpa] master 1c0b30b 07/67: add autoload cookie for lazy loading, Oleh Krehel, 2015/03/22
- [elpa] master 1099ebf 08/67: Use cl-lib macros instead of cl.el, Oleh Krehel, 2015/03/22
- [elpa] master 7b86747 09/67: swiper.el (swiper--regex): Update signature, Oleh Krehel, 2015/03/22
- [elpa] master a267b34 10/67: familiar isearch key bindings while helm is active, Oleh Krehel, 2015/03/22
- [elpa] master a817342 14/67: ivy.el: Improve the highlighting in the minibuffer, Oleh Krehel, 2015/03/22
- [elpa] master 97ab66a 13/67: README.md: Update, Oleh Krehel, 2015/03/22
- [elpa] master eb829a9 16/67: Account for zero-length regex matches, Oleh Krehel, 2015/03/22
- [elpa] master 9bcf1dc 12/67: Update dependencies., Oleh Krehel, 2015/03/22
- [elpa] master 7cea819 18/67: ivy.el: Add `ivy-exit', Oleh Krehel, 2015/03/22
- [elpa] master eb1def0 17/67: Add initial-input optional argument, Oleh Krehel, 2015/03/22
- [elpa] master 2f5cc11 15/67: swiper.el: Use `with-selected-window' instead of `with-current-buffer',
Oleh Krehel <=
- [elpa] master 02065be 19/67: swiper.el: Restore original point on canceling, Oleh Krehel, 2015/03/22
- [elpa] master 6a874a4 11/67: Add `ivy' back end, Oleh Krehel, 2015/03/22
- [elpa] master f268cc8 21/67: Reveal invisible overlays, Oleh Krehel, 2015/03/22
- [elpa] master 835208a 20/67: Inherit standard faces by default, Oleh Krehel, 2015/03/22
- [elpa] master f148a94 24/67: Fix use of cl-incf, Oleh Krehel, 2015/03/22
- [elpa] master 2ed9ee2 23/67: Require delsel for `minibuffer-keyboard-quit', Oleh Krehel, 2015/03/22
- [elpa] master 1ca1660 22/67: swiper.el: Save position before last search, Oleh Krehel, 2015/03/22
- [elpa] master 02ca7a1 25/67: Add anchoring, Oleh Krehel, 2015/03/22
- [elpa] master b1ac649 26/67: Don't recenter unless necessary, Oleh Krehel, 2015/03/22
- [elpa] master a07c2e4 27/67: swiper.el: Make ivy the default back end, Oleh Krehel, 2015/03/22