GNU bug report logs - #1074
antlr-mode has undefined variable keyword-face

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 1074 in the body.
You can then email your comments to 1074 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> emacsbugs.donarmstrong.com (full text, mbox):

From: "David J. Biesack" <David.Biesack <at> sas.com>
To: bug-gnu-emacs <at> gnu.org
Cc: Christoph.Wedler <at> sap.com
Subject: antlr-mode has undefined variable keyword-face 
Date: Fri, 03 Oct 2008 10:05:39 -0400

Open a .g file in Emacs, where auto-mode-alist configures
.g files to use antlr-mode. You get an error in font-lock
code because of an undefined variable, 'keyword-face'

This patch appears to resolve the problem:

diff -cws antlr-mode.el.orig antlr-mode.el
*** antlr-mode.el.orig  Fri Oct  3 09:58:33 2008
--- antlr-mode.el       Sun Jan 14 03:46:56 2007
***************
*** 922,928 ****
     `((antlr-invalidate-context-cache)
       ("\\$setType[ \t]*(\\([A-Za-z\300-\326\330-\337]\\sw*\\))"
        (1 antlr-tokendef-face))
!      ("\\$\\sw+" (0 antlr-keyword-face))
       ;; the tokens are already fontified as string/docstrings:
       (,(lambda (limit)
         (if antlr-font-lock-literal-regexp
--- 922,928 ----
     `((antlr-invalidate-context-cache)
       ("\\$setType[ \t]*(\\([A-Za-z\300-\326\330-\337]\\sw*\\))"
        (1 antlr-tokendef-face))
!      ("\\$\\sw+" (0 keyword-face))
       ;; the tokens are already fontified as string/docstrings:
       (,(lambda (limit)
         (if antlr-font-lock-literal-regexp

Debugger entered--Lisp error: (void-variable keyword-face)
  eval(keyword-face)
  font-lock-fontify-keywords-region(1 1979 t)
  font-lock-default-fontify-region(1 1979 t)
  font-lock-fontify-region(1 1979 t)
  byte-code("ŠÃ ĎÅed      #ˆÆ ˆÇ‰+‡" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "ÁÂ\"‡" [save-match-data-internal set-match-data evaporate] 3)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
  font-lock-default-fontify-buffer()
  font-lock-fontify-buffer()
  font-lock-mode-internal(t)
  font-lock-default-function(t)
  font-lock-mode()
  turn-on-font-lock()
  turn-on-font-lock-if-enabled()
  global-font-lock-mode-enable-in-buffers()
  run-hooks(after-change-major-mode-hook)
  run-mode-hooks(antlr-mode-hook)
  antlr-mode()
  set-auto-mode-0(antlr-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Greet.g> "~/eclipse-workspaces/acl/antlr_test/source/java/Greet.g" nil nil "~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g" (26662 (36053 . 4313)))
  ad-Orig-find-file-noselect("~/eclipse-workspaces/acl/antlr_test/source/java/Greet.g" nil nil nil)
  byte-code("ÆÇ       !‰ƒ
$‰)‡" [ad-return-value filename dir nowarn rawfile wildcards nil file-name-directory downcase file-name-nondirectory ad-Orig-find-file-noselect] 6)
  find-file-noselect("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g" nil nil nil)
  find-file("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g")
  byte-code(" ƒ
  new-find-alternate-file("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g")
  call-interactively(new-find-alternate-file)
  recursive-edit()
  byte-code("Æ        @Ç=ƒ!
VƒW
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
  debug(error (void-variable keyword-face))
  apply(debug error (void-variable keyword-face))
  edebug(error (void-variable keyword-face))
  eval(keyword-face)
  font-lock-fontify-keywords-region(1 1979 t)
  font-lock-default-fontify-region(1 1979 t)
  font-lock-fontify-region(1 1979 t)
  byte-code("ŠÃ ĎÅed      #ˆÆ ˆÇ‰+‡" [save-match-data-internal verbose font-lock-fontified match-data ((byte-code "ÁÂ\"‡" [save-match-data-internal set-match-data evaporate] 3)) font-lock-fontify-region font-lock-after-fontify-buffer t] 4)
  font-lock-default-fontify-buffer()
  font-lock-fontify-buffer()
  font-lock-mode-internal(t)
  font-lock-default-function(t)
  font-lock-mode()
  turn-on-font-lock()
  turn-on-font-lock-if-enabled()
  global-font-lock-mode-enable-in-buffers()
  run-hooks(after-change-major-mode-hook)
  run-mode-hooks(antlr-mode-hook)
  antlr-mode()
  set-auto-mode-0(antlr-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<killed buffer> "~/eclipse-workspaces/acl/antlr_test/source/java/Greet.g" nil nil "~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g" (26662 (36053 . 4313)))
  ad-Orig-find-file-noselect("~/eclipse-workspaces/acl/antlr_test/source/java/Greet.g" nil nil nil)
  byte-code("ÆÇ       !‰ƒ
$‰)‡" [ad-return-value filename dir nowarn rawfile wildcards nil file-name-directory downcase file-name-nondirectory ad-Orig-find-file-noselect] 6)
  find-file-noselect("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g" nil nil nil)
  find-file("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g")
  byte-code(" ƒ
  new-find-alternate-file("~/eclipse-workspaces/acl/ANTLR_test/Source/Java/Greet.g")
  call-interactively(new-find-alternate-file)

In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Antlr.Java/l

Minor modes in effect:
  display-time-mode: t
  shell-dirtrack-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  show-paren-mode: t
  iswitchb-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
  abbrev-mode: t

Recent input:
<escape> X M-b M-b M-b M-b C-b C-b C-b C-d C-e <return>
M-< C-x * c d SPC ~ / e m a c s <return> C-x o <escape>
X M-b C-M-f C-SPC M-b M-b M-b M-b M-b M-b M-w C-g C-x
o C-y <return> C-x o <escape> <escape> ( g e t e n
v SPC " T E R M " ) <return> C-x C-o C-x o e c h o
SPC $ T E R M <return> e x p o r t SPC T E R M = c
m d <return> M-p M-p M-p <return> C-x o C-v C-x k SPC
C-x B C-x B C-x o C-x j E M-< C-x C-f <backspace> M-b
. C-e <return> C-s k e y w o r d - C-w C-s C-s C-s
C-s C-a C-x o C-n C-n C-n C-x o C-x b a n t <return>
C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-a M-< M-x
p w d <return> <help-echo> <down-mouse-1> <mouse-1>
C-s a n t l r - <backspace> <backspace> <backspace>
<backspace> <backspace> <backspace> SPC k e y w o r
d - C-SPC M-b C-SPC a n t l r - C-s C-w C-w C-s C-a
C-SPC C-o C-o C-o C-o C-o M-x e a l <backspace> <backspace>
v a l - d e f SPC <return> M-x C-g C-/ C-x C-w a n
l SPC <backspace> t SPC . r <backspace> o r i g <return>
a n t l r - C-a C-x C-s C-x c M-x e v a l - d e SPC
<return> C-x o C-x b G r e e <return> C-/ C-SPC C-x
k SPC C-z 0 C-n C-n C-n <down-mouse-1> <mouse-1> M-x
r e p o r t - SPC <return>

Recent messages:
undo-start: No undo information in this buffer
Mark set
Kill buffer Greet.g? (y or n)
Invalid face reference: font-lock-keyword-face [43 times]
Invalid face reference: highlight
Invalid face reference: font-lock-keyword-face
Invalid face reference: highlight [2 times]
Fontifying Greet.g... (regexps......................)
Fontifying Greet.g... (regexps......................)
Loading emacsbug...done


--
David J. Biesack     SAS Institute Inc.
(919) 531-7771       SAS Campus Drive
http://www.sas.com   Cary, NC 27513

Message #10 received at 1074-done <at> emacsbugs.donarmstrong.com (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 1074-done <at> debbugs.gnu.org
Subject: Re: bug#1074: antlr-mode has undefined variable keyword-face
Date: Sat, 04 Oct 2008 14:35:55 -0400

"David J. Biesack" wrote:

> Open a .g file in Emacs, where auto-mode-alist configures
> .g files to use antlr-mode. You get an error in font-lock
> code because of an undefined variable, 'keyword-face'
>
> This patch appears to resolve the problem:

Thanks; applied. (Your patch was backwards somehow.)

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.