branch: externals/a68-mode
commit d7cb1ce24f55cae946063678db78caf193afc7fb
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Try ease adding a character at the beginning of a bold tag
---
a68-mode.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/a68-mode.el b/a68-mode.el
index deb1fbb72b..08e06e4bf9 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -332,6 +332,9 @@
(defun a68--after-change-function (start stop _len)
"Save the current buffer and point for the mode's post-command hook."
(when a68-pretty-bold-tags-mode
- (a68--pretty-print-bold-tag)))
+ (let* ((pos (point))
+ (in-bold-tag-already (get-char-property pos 'display)))
+ (a68--pretty-print-bold-tag)
+ (when in-bold-tag-already (backward-char)))))
;;; a68-mode.el ends here
