branch: elpa/symbol-overlay
commit 148652222c88de45748aaec492b064baa3cf421c
Author: wolray <[email protected]>
Commit: wolray <[email protected]>
fix some documentation text.
---
symbol-overlay.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/symbol-overlay.el b/symbol-overlay.el
index b1be28ced6..ddad9ad170 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -364,7 +364,7 @@ If COUNT is non-nil, count at the end."
(symbol-overlay-get-symbol new))))
(defun symbol-overlay-refresh (beg end len)
- "Auto refresh overlays. Installed on `after-change-functions'.
+ "Refresh overlays. Installed on `after-change-functions'.
BEG, END and LEN are the beginning, end and length of changed text."
(unless (or (minibufferp) (not symbol-overlay-keywords-alist))
(let ((case-fold-search nil)
@@ -380,13 +380,12 @@ BEG, END and LEN are the beginning, end and length of
changed text."
(and (overlay-get overlay 'symbol)
(delete-overlay overlay)))
(overlays-in beg end))
- (mapc
- #'(lambda (keyword)
- (let ((symbol (car keyword)))
- (goto-char beg)
- (while (re-search-forward symbol end t)
- (symbol-overlay-put-overlay symbol (cdr keyword)))))
- symbol-overlay-keywords-alist)))))
+ (mapc #'(lambda (keyword)
+ (let ((symbol (car keyword)))
+ (goto-char beg)
+ (while (re-search-forward symbol end t)
+ (symbol-overlay-put-overlay symbol (cdr keyword)))))
+ symbol-overlay-keywords-alist)))))
(add-hook 'after-change-functions 'symbol-overlay-refresh)
