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

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

[nongnu] elpa/symbol-overlay e288067203 039/152: fix documentation and c


From: ELPA Syncer
Subject: [nongnu] elpa/symbol-overlay e288067203 039/152: fix documentation and code style
Date: Thu, 7 Jul 2022 12:04:10 -0400 (EDT)

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

    fix documentation and code style
---
 symbol-overlay.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index b75a64d65f..6e0e13ab0b 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -153,7 +153,7 @@ If NOERROR is non-nil, just return nil when keyword is not 
found."
 (defun symbol-overlay-narrow (scope)
   "Narrow to a specific region when SCOPE is non-nil.
 Use default method `narrow-to-defun' or
-`symbol-overlay-narrow-function' if defined."
+`symbol-overlay-narrow-function' if specified."
   (when scope
     (let ((f symbol-overlay-narrow-function)
          region)
@@ -407,13 +407,13 @@ DIR must be 1 or -1."
    '(lambda (symbol scope)
       (let ((new (read-string (concat "Rename"
                                      (and scope " in scope")
-                                     ": "))))
+                                     ": ")))
+           (inhibit-modification-hooks t))
        (save-excursion
          (save-restriction
            (symbol-overlay-narrow scope)
            (goto-char (point-min))
-           (let ((inhibit-modification-hooks t))
-             (while (re-search-forward symbol nil t) (replace-match new)))))
+           (while (re-search-forward symbol nil t) (replace-match new))))
        (symbol-overlay-get-symbol new)))))
 
 (defun symbol-overlay-refresh (beg end len)



reply via email to

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