branch: externals/a68-mode
commit 5961b8f12b78082bf14ca3b24f42cfd2665cf6e2
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Fix byte-compile warnings
---
a68-mode.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 82bc45ed00..6fbf08e826 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -818,7 +818,8 @@ with the equivalent upcased form."
((looking-at "[A-Z][A-Za-z_]+")
(let* ((end (match-end 0))
(token (if (and (not (looking-at "[A-Z][A-Za-z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Za-z_]+[ \t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Za-z_]+[ \t\n]*,\\)*[ \t\n]*"
+ nil))
"-ssecca-"
"-bold-")))
(goto-char end)
@@ -942,7 +943,8 @@ with the equivalent upcased form."
((looking-back "[A-Z][A-Za-z_]+" (pos-bol))
(goto-char (match-beginning 0))
(if (and (not (looking-at "[A-Z][A-Za-z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Za-z_]+[
\t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Za-z_]+[
\t\n]*,\\)*[ \t\n]*"
+ nil))
"-ssecca-"
"-bold-"))
((and (looking-back "\\<[a-z]+:" (pos-bol))
@@ -1105,7 +1107,8 @@ UPPER stropping version."
((looking-at "[A-Z][A-Z_]+")
(let* ((end (match-end 0))
(token (if (and (not (looking-at "[A-Z][A-Z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Z_]+[ \t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Z_]+[ \t\n]*,\\)*[ \t\n]*"
+ nil))
"-ssecca-"
"-bold-")))
(goto-char end)
@@ -1219,7 +1222,8 @@ UPPER stropping version."
((looking-back "[A-Z][A-Z]+" (pos-bol))
(goto-char (match-beginning 0))
(if (and (not (looking-at "[A-Z][A-Z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Z_]+[
\t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Z_]+[
\t\n]*,\\)*[ \t\n]*"
+ nil))
"-ssecca-"
"-bold-"))
((looking-back "\\<[a-z]+:" (pos-bol))
@@ -1308,7 +1312,7 @@ UPPER stropping version."
;; Since "|" is in the same BNF rule as "(" in choice-clauses,
;; SMIE by default aligns it with it.
(`(:before . "|")
- (if (not smie-rule-sibling-p) 3))
+ (if (not (smie-rule-sibling-p)) 3))
(`(:after . "BEGIN") 6)
(`(:after . "THEN") 5)
(`(:after . "ELSE") 5)
