Changeset 4089 for vendor/emacs-CVS_HEAD/lisp/textmodes/sgml-mode.el

Timestamp:

05/27/06 09:57:08 (3 years ago)

Author:

miyoshi

Message:

Load emacs-to-svn into vendor/emacs-CVS_HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/textmodes/sgml-mode.el (modified) (11 diffs)

vendor/emacs-CVS_HEAD/lisp/textmodes/sgml-mode.el

@@ -50 +50 @@
-  :group 'sgml)
-
-
-' (which see)
+-function
+-function'
-  :type 'function
-  :group 'sgml)
-
-
+-function
-     "aTransformation function: ")
+(defvaralias 'sgml-transformation 'sgml-transformation-function)
-
-(defcustom sgml-mode-hook nil
@@ -336 +337 @@
-                       (repeat :tag "Tag Rule" sexp)))
-  :group 'sgml)
+(put 'sgml-tag-alist 'risky-local-variable t)
-
-(defcustom sgml-tag-help
@@ -392 +394 @@
-  (if (setq face (cdr (assq face sgml-face-tag-alist)))
-      (progn
-
+-function
-        (setq facemenu-end-add-face (concat "</" face ">"))
-        (concat "<" face ">"))
@@ -416 +418 @@
-N defaults to -1, which means to wrap it around the current region.
-
- 'upcase) in
-
+-function 'upcase)
+in 
-
-Use \\[sgml-validate] to validate your document with an SGML parser.
@@ -461 +463 @@
-  (if sgml-xml-mode
-      (setq mode-name "XML")
-
+
+
-  ;; This will allow existing comments within declarations to be
-  ;; recognized.
@@ -605 +608 @@
-
-;; When an element of a skeleton is a string "str", it is passed
-skeleton-transformation and inserted.  If "str" is to be
-inserted literally, one should obtain it as the return value of a
-
+`skeleton-transformation-function' and inserted.
+If "str" is to be inserted literally, one should obtain it as
+the return value of a 
-
-(defvar sgml-tag-last nil)
@@ -615 +618 @@
-Completion and configuration are done according to `sgml-tag-alist'.
-If you like tags and attributes in uppercase do \\[set-variable]
-
-
-
+
+
+
+
-           (setq sgml-tag-last
-                 (completing-read
@@ -640 +644 @@
-      (if (eq v2 t) (setq v2 nil))
-      ;; We use `identity' to prevent skeleton from passing
-skeleton-transformation
+`skeleton-transformation-function'
-      '(("") v2 _ v2 "</" (identity ',str) ?>))
-     ((eq (car v2) t)
@@ -671 +675 @@
-            (progn
-              (insert (if (eq (preceding-char) ?\s) "" ?\s)
-
+-function
-              (sgml-value alist))
-          (setq i (length alist))
-          (while (> i 0)
-            (insert ?\s)
-
+-function
-                             (setq attribute
-                                   (skeleton-read '(completing-read
@@ -1982 +1986 @@
-   "\" value=\"" str ?\"
-   (when (y-or-n-p "Set \"checked\" attribute? ")
-
+-function
-              (if sgml-xml-mode " checked=\"checked\"" " checked")))
-   (if sgml-xml-mode " />" ">")
-   (skeleton-read "Text: " (capitalize str))
-   (or v2 (setq v2 (if (y-or-n-p "Newline after text? ")
-
+-function
-                                (if sgml-xml-mode "<br />" "<br>"))
-                     "")))
@@ -2002 +2006 @@
-   "\" value=\"" str ?\"
-   (when (and (not v1) (setq v1 (y-or-n-p "Set \"checked\" attribute? ")))
-
+-function
-              (if sgml-xml-mode " checked=\"checked\"" " checked")))
-   (if sgml-xml-mode " />" ">")
-   (skeleton-read "Text: " (capitalize str))
-   (or (cdr v2) (setcdr v2 (if (y-or-n-p "Newline after text? ")
-
+-function
-                                        (if sgml-xml-mode "<br />" "<br>"))
-                             "")))