branch: externals/a68-mode
commit 1e5314cdc7beb8b2791022885b0d7db517278953
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
a68--pretty-print-bold-tags: pass `end' to re-search-forward
* a68-mode.el (a68--pretty-print-bold-tags):
---
a68-mode.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 40581873fa..cafa1b85c9 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -376,7 +376,7 @@
(goto-char beginning)
(while (let ((case-fold-search nil))
(re-search-forward (rx word-start upper (zero-or-more upper)
word-end)
- nil t))
+ end t))
(unless (or (a68-within-comment)
(a68-within-string))
(let* ((bold-tag-end (match-end 0))
@@ -398,7 +398,7 @@
(if (equal len 0)
(a68--pretty-print-bold-tag)
(a68--pretty-print-bold-tags start stop)))
- (when (and (equal len 0) in-bold-tag-already (backward-char))))))
+ (when (and (equal len 0) in-bold-tag-already) (backward-char)))))
;;;; Auto-stropping (minor mode).
