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

    Fix incorrect double-quoting of faces
    
    Thanks to Stefan Monnier for pointing out this mistake.
---
 a68-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index 99da435567..45a8b4cb94 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -239,8 +239,8 @@
      ("1" (re-search-backward "2r" nil t) nil (0 ''a68-bits-flip-face)))
    ;; String breaks.  Apostrophe is not (currently) a worthy character
    ;; out of strings, so for now we can just match it anywhere.
-   '(a68--string-break-matcher 0 ''a68-string-break-face t)
-   '(a68--bad-string-break-matcher 2 ''font-lock-warning-face t)
+   '(a68--string-break-matcher 0 'a68-string-break-face t)
+   '(a68--bad-string-break-matcher 2 'font-lock-warning-face t)
    ;; Two or more consecutive underscore characters are always
    ;; illegal in this stropping regime.
    (cons "_[_]+" ''font-lock-warning-face))

Reply via email to