branch: externals/a68-mode
commit 401b511f5d65813eb9aa3f5100a89cabb08cc76f
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    Fix regexp for pr UPPER pr
---
 a68-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/a68-mode.el b/a68-mode.el
index 0da6fa14ed..973cbef032 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -124,7 +124,7 @@
   (save-excursion
     (goto-char (point-min))
     (if (let ((case-fold-search nil))
-          (and (re-search-forward "PR UPPER PR" nil t)
+          (and (re-search-forward "\\<pr UPPER pr\\>" nil t)
                (not (a68-within-comment))
                (not (a68-within-string))))
         'upper

Reply via email to