From: Dave Love <fx@gnu.org>
Date: Mon, 16 Nov 1998 17:50:28 +0000 (+0000)
Subject: Require skeleton when compiling.
X-Git-Tag: emacs-20.4~1223
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0a377e6bd1e94d528c796d6502fe55bec7cf901;p=emacs.git

Require skeleton when compiling.
(sgml-font-lock-keywords-1): Accept single-letter tags.
(v2): Defvar free variable.
---

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'.