[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 31b9e9d 122/332: Inhibit logging of some mess
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 31b9e9d 122/332: Inhibit logging of some messages |
Date: |
Tue, 1 Dec 2020 15:48:26 -0500 (EST) |
branch: externals/el-search
commit 31b9e9dce0e72f1da7b5eab109a1ccd42f219c52
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
Inhibit logging of some messages
---
el-search.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/el-search.el b/el-search.el
index cebe60a..82d9419 100644
--- a/el-search.el
+++ b/el-search.el
@@ -476,6 +476,10 @@ directory searches like `el-search-directory' or
;; search with all matches before current buffer cut off
)
+(defun el-search--message-no-log (format-string &rest args)
+ "Like `message' but with `message-log-max' bound to nil."
+ (let ((message-log-max nil))
+ (apply #'message format-string args)))
(defun el-search--string-match-p (eregexp string)
"Non-nil when extended regexp EREGEXP matches the STRING."
@@ -860,9 +864,9 @@ search."
(save-excursion
;; Widening already happens in
`el-search-continue-search'
(goto-char (el-search-head-position
head))
- (message "Searching in %s"
- (or (el-search-head-file head)
- (el-search-head-buffer
head)))
+ (el-search--message-no-log "Searching in
%s"
+ (or
(el-search-head-file head)
+
(el-search-head-buffer head)))
(if-let ((match
(el-search--search-pattern-1
(el-search-head-matcher
head) t)))
(progn
@@ -1350,7 +1354,7 @@ The following additional pattern types are currently
defined:"
(setq go-there (cadr (stream-first matches)))
(stream-pop matches)))
(if (not go-there)
- (message "[Beginning of this buffer's recorded matches]")
+ (el-search--message-no-log "[Beginning of this buffer's recorded
matches]")
(goto-char go-there)
(el-search-hl-sexp)
(set-transient-map el-search-map)))))))
- [elpa] externals/el-search 1864f4a 077/332: Comment and whitespace changes only, (continued)
- [elpa] externals/el-search 1864f4a 077/332: Comment and whitespace changes only, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b5b6d83 089/332: Make query-replace accept FROM -> TO style input, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 68f10d7 091/332: Reduce duration of a `sit-for', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 29d6f46 090/332: Rename a local variable, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5b608a1 094/332: Set initial input for replace when coming from el-search-pattern, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9c3c04d 093/332: Clean up el-search-read-expression-map; add some doc, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b4e79fb 081/332: Add patterns for character properties, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2dd24a9 096/332: Factor out `el-search--replace-hunk', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 852643e 100/332: Fix some quoting problems in doc strings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2366cda 107/332: Improve `change' and `changed', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 31b9e9d 122/332: Inhibit logging of some messages,
Stefan Monnier <=
- [elpa] externals/el-search 35a0776 119/332: Add missing settings of some vars when restoring a previous search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c086990 129/332: Extend the heuristic matching approach; complete review, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 57ecb9a 128/332: Fix leaving behind helper buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 10e596b 113/332: Add `el-search--macroexpand', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 70477a2 150/332: Explicitly require pcase, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 4b8780f 026/332: allow search wrapping, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 125d653 084/332: Fix el-search--ensure-sexp-start error at bob, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search ee096b0 092/332: Make sure not to lose the minibuffer-prompt face, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 80ff841 085/332: Make el-search-pattern accept an optional NO-ERROR arg, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 61c39c3 098/332: el-search version 0.2, Stefan Monnier, 2020/12/01