[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
font-lock fails
From: |
Roland Winkler |
Subject: |
font-lock fails |
Date: |
Sun, 10 Feb 2002 13:12:21 +0100 |
In GNU Emacs 21.1.1 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2002-02-01 on tfkp12
configured using `configure --prefix=/nfs/common --libexecdir=/nfs/common/lib
--bindir=/nfs/common/lib/emacs/21.1/bin/i686-Linux
--mandir=/nfs/common/share/man --infodir=/nfs/common/share/info --with-gcc
--with-pop --with-x --with-x-toolkit=athena i386-pc-linux'
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: POSIX
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: en_US
locale-coding-system: iso-latin-1
default-enable-multibyte-characters: nil
Steps to reproduce:
(1) Save the piece of lisp code attached below in a file.
(2) Start emacs --no-init-file
(3) Open the lisp file in an emacs buffer.
(4) Enable font-locking.
(5) Font-lock fails towards the end of the file, i.e., font-lock
chooses the wrong faces. For example, the comments between the
defcustoms are highlighted like a string.
Font-locking in emacs 20.4 is working correctly with this piece of
code.
Roland
(defcustom maplev-executable-alist
(if (string-match "windows-nt\\|ms-dos" (symbol-name system-type))
'(("6" . ("c:/Program Files/Maple Release 6/bin.wnt/cmaple.exe"
nil
"c:/Program Files/Maple Release 6/bin.wnt/mint.exe"))
("5.1" . ("c:/Program Files/MapleV Release 5.1/bin.wnt/cmaple.exe"
nil
"c:/Program Files/MapleV Release 5.1/bin.wnt/mint.exe"))
("5" . ("c:/Program Files/MapleV Release 5/bin.wnt/cmaple.exe"
nil
"c:/Program Files/MapleV Release 5/bin.wnt/mint.exe"))
("4" . ("c:/maplev4/bin.win/cmaple.exe"
nil
"c:/maplev4/bin.win/mint.exe")))
'(("6" . ("/usr/local/maple/bin/maple"
nil
"/usr/local/maple/bin/mint"))
("5.1" . ("/usr/local/maple/bin/maple"
nil
"/usr/local/maple/bin/mint"))
("5" . ("/usr/local/maple/bin/maple"
nil
"/usr/local/maple/bin/mint"))
("4" . ("/usr/local/maple/bin/maple"
nil
"/usr/local/maple/bin/mint"))))
"*Assoc list specifying the available executables.
Each item has the form \(RELEASE MAPLE MAPLE-INIFILE MINT\)
where RELEASE is the Maple release corresponding to the
executables MAPLE and MINT. MAPLE must be the command line
(non-GUI) version of Maple. MAPLE-INIFILE is the maple
initialization file for running Maple under Emacs.
If nil the default initialization file is used."
:type '(repeat (list (string :tag "Maple Release")
(file :tag "Maple Executable")
(choice :tag "Maple Initialization File"
file (const :tag "none" nil))
(file :tag "Mint Executable ")))
:group 'maplev-executables
:group 'maplev-important)
;; this isn't quite right, it doesn't permit assigning
;; a new release.
(defcustom maplev-default-release "6"
"*Release of Maple used as the default executable.
It must be a key in `maplev-executable-alist'."
:type `(choice ,@(mapcar (lambda (item)
(list 'const (car item)))
maplev-executable-alist))
:group 'maplev-executables
:group 'maplev-important)
- font-lock fails,
Roland Winkler <=