branch: externals/a68-mode
commit a5107f139b988a0805e5375193fbf77666e493db
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Do not do auto-stropping within comments and strings
---
a68-mode.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 5d661bd35e..be4b37494e 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -445,8 +445,10 @@ into a68--mode-indicants."
a68--mode-indicants)
(defun a68--do-auto-stropping ()
- (when (or (eq (char-before) ?\s)
- (eq (char-before) ?\n))
+ (when (and (not (a68-within-comment))
+ (not (a68-within-string))
+ (or (eq (char-before) ?\s)
+ (eq (char-before) ?\n)))
(let (id beginning end)
(save-excursion
(goto-char (- (point) 1))
