emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/symbol-overlay 389cc1519a 040/152: fix missed minibufferp


From: ELPA Syncer
Subject: [nongnu] elpa/symbol-overlay 389cc1519a 040/152: fix missed minibufferp check
Date: Thu, 7 Jul 2022 12:04:10 -0400 (EDT)

branch: elpa/symbol-overlay
commit 389cc1519a0252095a1373964671e3b22b7d4a69
Author: wolray <290061869@qq.com>
Commit: wolray <290061869@qq.com>

    fix missed minibufferp check
---
 symbol-overlay.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 6e0e13ab0b..7f4b00ebec 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -264,7 +264,7 @@ If SHOW-COLOR is non-nil, display the color used by current 
overlay."
 (defun symbol-overlay-echo-mark ()
   "Jump back to the mark `symbol-overlay-mark'."
   (interactive)
-  (and symbol-overlay-mark (goto-char symbol-overlay-mark)))
+  (and (not (minibufferp)) symbol-overlay-mark (goto-char 
symbol-overlay-mark)))
 
 (defun symbol-overlay-jump-call (jump-function dir)
   "A general jumping process during which JUMP-FUNCTION is called to jump.
@@ -359,11 +359,12 @@ DIR must be 1 or -1."
 (defun symbol-overlay-isearch-literally ()
   "Isearch symbol at point literally, without `regexp-quote' the symbol."
   (interactive)
-  (let ((symbol (symbol-overlay-get-symbol))
-       (beg (match-beginning 0)))
-    (goto-char beg)
-    (isearch-forward nil t)
-    (isearch-yank-string (substring symbol 3 -3))))
+  (unless (minibufferp)
+    (let ((symbol (symbol-overlay-get-symbol))
+         (beg (match-beginning 0)))
+      (goto-char beg)
+      (isearch-forward nil t)
+      (isearch-yank-string (substring symbol 3 -3)))))
 
 (defun symbol-overlay-replace-call (replace-function)
   "Replace symbol using REPLACE-FUNCTION."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]