mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Require skeleton when compiling.

Browse Source 
(sgml-font-lock-keywords-1): Accept single-letter tags.
(v2): Defvar free variable.
This commit is contained in:
Dave Love 1998-11-16 17:50:28 +00:00
parent 44c705d46a
commit b0a377e6bd
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/sgml-mode.el
View File

@ -32,6 +32,8 @@
;;; Code:
(eval-when-compile (require 'skeleton))
(defgroup sgml nil
"SGML editing mode"
:group 'languages)
@ -207,9 +209,9 @@ Any terminating `>' or `/' is not matched.")
;; internal
(defconst sgml-font-lock-keywords-1
'(("<\\([!?][a-z][-.a-z0-9]+\\)" 1 font-lock-keyword-face)
("<\\(/?[a-z][-.a-z0-9]+\\)" 1 font-lock-function-name-face)
("[&%][a-z][-.a-z0-9]+;?" . font-lock-variable-name-face)
'(("<\\([!?][a-z][-.a-z0-9]*\\)" 1 font-lock-keyword-face)
("<\\(/?[a-z][-.a-z0-9]*\\)" 1 font-lock-function-name-face)
("[&%][a-z][-.a-z0-9]*;?" . font-lock-variable-name-face)
("<! *--.*-- *>" . font-lock-comment-face)))
(defconst sgml-font-lock-keywords-2 ())
@ -276,6 +278,8 @@ an optional alist of possible values."
(string :tag "Description")))
:group 'sgml)
(defvar v2) ; free for skeleton
(defun sgml-mode-common (sgml-tag-face-alist sgml-display-text)
"Common code for setting up `sgml-mode' and derived modes.
SGML-TAG-FACE-ALIST is used for calculating `sgml-font-lock-keywords-2'.