diff options
| author | Dave Love <fx@gnu.org> | 1998-11-16 17:50:28 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1998-11-16 17:50:28 +0000 |
| commit | b0a377e6bd1e94d528c796d6502fe55bec7cf901 (patch) | |
| tree | d01981ec30205e2b7c43bdee21a781a67c9d61cb /lisp | |
| parent | 44c705d46a9cfb1f1174b236369bd526cde2b23e (diff) | |
| download | emacs-b0a377e6bd1e94d528c796d6502fe55bec7cf901.tar.gz emacs-b0a377e6bd1e94d528c796d6502fe55bec7cf901.tar.bz2 emacs-b0a377e6bd1e94d528c796d6502fe55bec7cf901.zip | |
Require skeleton when compiling.
(sgml-font-lock-keywords-1): Accept single-letter tags.
(v2): Defvar free variable.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 895e1ca6ca7..c3c63089bc8 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -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'. |