branch: externals/a68-mode
commit d6c6dc8bb0bbfa4f26c23420ae8c4e06fbc00c22
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Fix indentation
---
a68-mode.el | 54 +++++++++++++++++++++++++++---------------------------
1 file changed, 27 insertions(+), 27 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 4b3227a076..a0b9ee4bc8 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -615,33 +615,33 @@ with the equivalent upcased form."
(looking-back (regexp-opt '(":" "," ";" "begin" "if" "then" "elif"
"else" "case" "in" "ouse" "out"
"while" "do" "(" "|" "|:" "def"
"postlude")))
- ;; tag denotation or mode indication
- (and (looking-back "[A-Z][A-Za-z_]+")
- ;; Given the context at hand, i.e. a bold word followed
- ;; by "from", "to", "by", "while" or "do", we are at the
- ;; beginning of an enclosed clause if we are part of:
- ;;
- ;; - An access-clause: ... access <bold-word> to ...
- ;; - Or a cast: ... ; <bold-word> to ...
- (save-excursion
- (forward-comment (- (point)))
- (or
- ;; In the case of an access-clause, the
- ;; module-indication is preceded by one of the
- ;; following symbols:
- (looking-back (regexp-opt '("access" "," "pub")))
- ;; The symbols that may precede a cast are the same
- ;; as those that may precede an enclosed-clause, with
- ;; the exception of the close-symbol, mode-indication
- ;; and module-indication.
- (looking-back (regexp-opt '(":" ":=" ":/=:" "=" "," ";" "["
- "@" "begin" "if" "then" "elif"
- "else" "case" "in" "ouse" "out"
- "of" "from" "by" "to" "while"
- "do" "(" "|" "def" "postlude")))
- ;; operator, so any nomad or monad.
- (looking-back (regexp-opt '("%" "^" "&" "+" "-" "~" "!" "?"
- ">" "<" "/" "=" "*")))))))))
+ ;; tag denotation or mode indication
+ (and (looking-back "[A-Z][A-Za-z_]+")
+ ;; Given the context at hand, i.e. a bold word followed
+ ;; by "from", "to", "by", "while" or "do", we are at the
+ ;; beginning of an enclosed clause if we are part of:
+ ;;
+ ;; - An access-clause: ... access <bold-word> to ...
+ ;; - Or a cast: ... ; <bold-word> to ...
+ (save-excursion
+ (forward-comment (- (point)))
+ (or
+ ;; In the case of an access-clause, the
+ ;; module-indication is preceded by one of the
+ ;; following symbols:
+ (looking-back (regexp-opt '("access" "," "pub")))
+ ;; The symbols that may precede a cast are the same
+ ;; as those that may precede an enclosed-clause, with
+ ;; the exception of the close-symbol, mode-indication
+ ;; and module-indication.
+ (looking-back (regexp-opt '(":" ":=" ":/=:" "=" "," ";" "["
+ "@" "begin" "if" "then" "elif"
+ "else" "case" "in" "ouse" "out"
+ "of" "from" "by" "to" "while"
+ "do" "(" "|" "def" "postlude")))
+ ;; operator, so any nomad or monad.
+ (looking-back (regexp-opt '("%" "^" "&" "+" "-" "~" "!" "?"
+ ">" "<" "/" "=" "*")))))))))
(defun a68-at-post-unit ()
"Return whether the point is immediately after an unit."
