branch: externals/a68-mode
commit 6af657210c083f1e537b7a8f0c00c26f2bb1f185
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Add missing a68-within-string and a68-within-comment
---
a68-mode.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/a68-mode.el b/a68-mode.el
index f5d64eaad9..be309a5558 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -110,6 +110,12 @@
'font-lock-variable-name-face))
"Highlighting expressions for Algol 68 mode.")
+(defun a68-within-string ()
+ (nth 3 (syntax-ppss)))
+
+(defun a68-within-comment ()
+ (nth 4 (syntax-ppss)))
+
(defvar a68--keywords-regexp
(regexp-opt '("+" "*" ";" ">" "<" ":=" "=" "," ":")))
