[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 894f8b1 254/332: [el-search] More minor tweak
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 894f8b1 254/332: [el-search] More minor tweaks |
Date: |
Tue, 1 Dec 2020 15:48:57 -0500 (EST) |
branch: externals/el-search
commit 894f8b15e6411c5b4278f5d23e22f82134687984
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
[el-search] More minor tweaks
Also bump package version to 1.7.2.
* packages/el-search/el-search.el: (el-search--search-buffer-p)
(el-search-barf-if-not-search-buffer): New functions.
(el-search-kill-left-over-search-buffers): Use
'el-search--search-buffer-p'.
(el-search-from-beginning, el-search-last-buffer-match): Call
'el-search-barf-if-not-search-buffer' when appropriate.
(el-search-loop-over-bindings): Bind 'el-search-last-buffer-match'
only in 'emacs-lisp-mode-map' instead of 'global-map'.
(el-search-prefix-key-transient-map): Add
'el-search-jump-to-search-head'.
(el-search-jump-to-search-head): Indentation fix.
---
el-search.el | 28 +++++++++++++++++++---------
1 file changed, 19 insertions(+), 9 deletions(-)
diff --git a/el-search.el b/el-search.el
index 3f1bf2f..a46a1be 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
;; Created: 29 Jul 2015
;; Keywords: lisp
;; Compatibility: GNU Emacs 25
-;; Version: 1.7.1
+;; Version: 1.7.2
;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -1164,6 +1164,15 @@ optional MESSAGE are used to construct the error
message."
`(el-search-when-unwind (progn ,@body)
(setf (el-search-object-head
el-search--current-search) ,head-copy))))
+(defun el-search--search-buffer-p (&optional buffer)
+ (and el-search--current-search
+ (eq (or buffer (current-buffer))
+ (el-search-head-buffer (el-search-object-head
el-search--current-search)))))
+
+(defun el-search-barf-if-not-search-buffer (&optional buffer &rest args)
+ (unless (el-search--search-buffer-p buffer)
+ (apply #'user-error (or args (list "Not in current search buffer")))))
+
(defun el-search--get-search-description-string (search &optional verbose
dont-propertize)
(concat
(or (alist-get 'description (el-search-object-properties search))
@@ -1202,9 +1211,7 @@ the cursor) are not killed."
(interactive)
(dolist (buffer (buffer-list))
(when (with-current-buffer buffer el-search--temp-buffer-flag)
- (unless (or (and el-search--current-search
- (eq buffer (el-search-head-buffer
- (el-search-object-head
el-search--current-search))))
+ (unless (or (el-search--search-buffer-p buffer)
(with-current-buffer buffer (el-search--pending-search-p)))
(kill-buffer buffer)))))
@@ -1625,7 +1632,7 @@ in, in order, when called with no arguments."
(keybind global-map ?j #'el-search-jump-to-search-head)
(keybind global-map ?a #'el-search-from-beginning)
(keybind global-map ?< #'el-search-from-beginning)
- (keybind global-map ?> #'el-search-last-buffer-match)
+ (keybind emacs-lisp-mode-map ?> #'el-search-last-buffer-match)
(keybind global-map ?d #'el-search-skip-directory)
(keybind global-map ?n
#'el-search-continue-in-next-buffer)
@@ -1658,6 +1665,7 @@ in, in order, when called with no arguments."
(lambda (_map key command)
(when (memq command '(el-search-pattern
el-search-pattern-backward
+ el-search-jump-to-search-head
el-search-query-replace
el-search-from-beginning
el-search-last-buffer-match
@@ -2267,10 +2275,10 @@ current."
"Resume previous search: "
(mapcar
(lambda (n) (format "%d - %s"
- n
- (el-search--get-search-description-string
- (ring-ref el-search-history n)
- t)))
+ n
+
(el-search--get-search-description-string
+ (ring-ref el-search-history n)
+ t)))
(number-sequence 0 (1- (ring-length
el-search-history)))))))
(string-match "\\`\\([0-9]+\\) - " input)
(string-to-number (match-string 1 input))))))
@@ -2520,6 +2528,7 @@ last match in the current buffer when negative."
((< (prefix-numeric-value arg) 0)
(el-search-last-buffer-match))
((not arg)
+ (el-search-barf-if-not-search-buffer)
(el-search--unless-no-buffer-match
(setf (el-search-head-position (el-search-object-head
el-search--current-search))
(point-min))
@@ -2533,6 +2542,7 @@ last match in the current buffer when negative."
"Go to the last of this buffer's matches."
(interactive)
(setq this-command 'el-search-pattern)
+ (el-search-barf-if-not-search-buffer)
(el-search--unless-no-buffer-match
(goto-char (point-max))
(funcall-interactively #'el-search-pattern-backward
(el-search--current-pattern))))
- [elpa] externals/el-search c69dd52 205/332: * el-search/el-search.el: Some minor tweaks, (continued)
- [elpa] externals/el-search c69dd52 205/332: * el-search/el-search.el: Some minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c41288f 208/332: Make el-search key binding installation more flexible, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8d20f8a 217/332: Add face `el-search-highlight-in-prompt-face', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 75f94f9 218/332: Improve quit/error handling in el-search-query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b278fb7 219/332: Update a variable when splicing mode is toggled, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8175417 237/332: * el-search/el-search.el: More minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1f81442 241/332: [el-search] Improve forward search functions, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5c3bd4e 247/332: [el-search] Add bindings for first/last match jumping, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3699425 246/332: [el-search] Add command 'el-search-last-buffer-match', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search cf68daf 249/332: [el-search] Avoid most calls to 'scan-sexps', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 894f8b1 254/332: [el-search] More minor tweaks,
Stefan Monnier <=
- [elpa] externals/el-search 6c5a6b4 265/332: [el-search] Fix an infloop in el-search--search-pattern-1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b830be5 263/332: [el-search] Some scrolling tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e60f228 267/332: [el-search] Don't try to kill modified buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 34f734e 258/332: [el-search] Add special scroll commands, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d4ad652 278/332: [el-search] Implement an explicit quit command, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fbe70bf 284/332: [el-search] Add C-h help, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fac5586 285/332: [el-search] Improve my last commit "Add C-h help", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 23911d1 288/332: [el-search] Add menus, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 68fcfcd 286/332: [el-search] Include preceding comments in occur defun context, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 90062c5 290/332: Update copyrights of some packages, Stefan Monnier, 2020/12/01