[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/anzu 5e87e8c07a 187/288: Use own history variable for main
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/anzu 5e87e8c07a 187/288: Use own history variable for maintenance |
Date: |
Thu, 6 Jan 2022 03:58:51 -0500 (EST) |
branch: elpa/anzu
commit 5e87e8c07ac92b9b70d1d83b6f917c2eef505d8f
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>
Use own history variable for maintenance
Because query replace history value type is different between
Emacs 24 and 25.
---
anzu.el | 46 +++++++++++++++-------------------------------
1 file changed, 15 insertions(+), 31 deletions(-)
diff --git a/anzu.el b/anzu.el
index a718f8ab48..338525c13f 100644
--- a/anzu.el
+++ b/anzu.el
@@ -131,6 +131,7 @@
(defvar anzu--last-replaced-count nil)
(defvar anzu--outside-point nil)
(defvar anzu--history nil)
+(defvar anzu--query-defaults nil)
(defun anzu--validate-regexp (regexp)
(condition-case nil
@@ -222,9 +223,6 @@
(defconst anzu--mode-line-format '(:eval (anzu--update-mode-line)))
-(defsubst anzu--emacs25-p ()
- (>= emacs-major-version 25))
-
(defsubst anzu--mode-line-not-set-p ()
(and (listp mode-line-format)
(member anzu--mode-line-format mode-line-format)))
@@ -301,20 +299,13 @@
(if use-regexp " regexp" "")
(if use-region " in region" "")) )
-(defsubst anzu--retrive-from-at-history ()
- (let ((retrieve-func (if (anzu--emacs25-p) 'caar 'car)))
- (query-replace-descr (funcall retrieve-func query-replace-defaults))))
-
-(defsubst anzu--retrive-to-at-history ()
- (let ((retrieve-func (if (anzu--emacs25-p) 'cdar 'cdr)))
- (query-replace-descr (funcall retrieve-func query-replace-defaults))))
-
(defun anzu--query-prompt (use-region use-regexp at-cursor)
(let ((prompt (anzu--query-prompt-base use-region use-regexp)))
- (if (and query-replace-defaults (not at-cursor))
- (format "%s (default %s -> %s) " prompt
- (anzu--retrive-from-at-history)
- (anzu--retrive-to-at-history))
+ (if (and anzu--query-defaults (not at-cursor))
+ (format "%s (default %s -> %s) "
+ prompt
+ (query-replace-descr (caar anzu--query-defaults))
+ (query-replace-descr (cdar anzu--query-defaults)))
prompt)))
(defvar anzu--replaced-markers nil)
@@ -389,8 +380,7 @@
(defun anzu--check-minibuffer-input (buf beg end use-regexp overlay-limit)
(let* ((content (minibuffer-contents))
- (to (when (and (anzu--emacs25-p)
- (string-match (anzu--separator) content)
+ (to (when (and (string-match (anzu--separator) content)
(get-text-property (match-beginning 0) 'separator
content))
(substring-no-properties content (match-end 0))))
(from (or (and to (substring-no-properties content 0 (match-beginning
0)))
@@ -424,17 +414,13 @@
(concat (query-replace-descr (car from-to))
separator
(query-replace-descr (cdr from-to))))
- query-replace-defaults)
+ anzu--query-defaults)
(symbol-value query-replace-from-history-variable))))
(defun anzu--read-from-string (prompt beg end use-regexp overlay-limit)
(let ((curbuf (current-buffer))
(blink-matching-paren nil)
- (anzu--history (when (anzu--emacs25-p)
- (anzu--transform-from-to-history)))
- (history-var (if (anzu--emacs25-p)
- 'anzu--history
- query-replace-from-history-variable))
+ (anzu--history (anzu--transform-from-to-history))
timer is-input)
(unwind-protect
(minibuffer-with-setup-hook
@@ -449,7 +435,7 @@
(anzu--check-minibuffer-input
curbuf beg end use-regexp overlay-limit))))))
(prog1 (read-from-minibuffer (format "%s: " prompt)
- nil nil nil history-var nil t)
+ nil nil nil 'anzu--history nil t)
(setq is-input t)))
(when timer
(cancel-timer timer)
@@ -470,12 +456,12 @@
(defun anzu--query-from-string (prompt beg end use-regexp overlay-limit)
(let* ((from (anzu--read-from-string prompt beg end use-regexp
overlay-limit))
(is-empty (string= from "")))
- (when (and (not is-empty) (not query-replace-defaults))
+ (when (and (not is-empty) (not anzu--query-defaults))
(setq anzu--last-replaced-count anzu--total-matched))
- (if (and is-empty query-replace-defaults)
- (cons (anzu--retrive-from-at-history)
+ (if (and is-empty anzu--query-defaults)
+ (cons (query-replace-descr (caar anzu--query-defaults))
(query-replace-compile-replacement
- (anzu--retrive-to-at-history) use-regexp))
+ (query-replace-descr (cdar anzu--query-defaults)) use-regexp))
(add-to-history query-replace-from-history-variable from nil t)
(when use-regexp
(anzu--query-validate-from-regexp from))
@@ -585,9 +571,7 @@
(query-replace-compile-replacement
(let ((to (anzu--read-to-string from prompt beg end use-regexp
overlay-limit)))
(add-to-history query-replace-to-history-variable to nil t)
- (if (anzu--emacs25-p)
- (add-to-history 'query-replace-defaults (cons from to) nil t)
- (setq query-replace-defaults (cons from to)))
+ (add-to-history 'anzu--query-defaults (cons from to) nil t)
to)
use-regexp))
- [nongnu] elpa/anzu 1ea6980019 106/288: Bump up version and update Changes, (continued)
- [nongnu] elpa/anzu 1ea6980019 106/288: Bump up version and update Changes, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu caf83591e4 134/288: Merge pull request #28 from syohex/improve-replace-mode-line, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 5d209726cd 156/288: Merge pull request #36 from syohex/case-sensitive-for-at-cursor-command, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu ee53798dc2 160/288: Bump up version and update Changes, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 1c2705bb2c 164/288: Merge pull request #38 from syohex/improve-replacement, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu d4dcd76f47 190/288: Merge pull request #48 from syohex/improve-history, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 370b9f162f 181/288: Merge pull request #45 from syohex/fix-zero-width-replacement, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 8a1eb22317 174/288: Merge pull request #42 from syohex/fix-replace-command-bug, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu a1f56b6dad 193/288: Merge pull request #50 from syohex/fix-default-input-49, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 6dd966b4e2 186/288: Implement separator feature of Emacs 25, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 5e87e8c07a 187/288: Use own history variable for maintenance,
ELPA Syncer <=
- [nongnu] elpa/anzu 10a05eb50c 166/288: Disable blink-matching-paren for improvement, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 5abdc5b889 038/288: Update document, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 0418c2b6d4 041/288: Update document, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 218a63ce47 015/288: Highlight code and add screenshot explanation, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 7b3d95d495 183/288: Support Emacs 24 and 25, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 6b217a457f 182/288: Bump up version and update Changes, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 3c178f75f3 197/288: Fix matching a literal string, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu b486075ab4 204/288: Update requirement package version, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 5ee99678ca 229/288: Remove needless attribute, ELPA Syncer, 2022/01/06
- [nongnu] elpa/anzu 8667be50aa 240/288: Merge pull request #73 from lunaryorn/patch-1, ELPA Syncer, 2022/01/06