Mercurial > emacs
changeset 44459:25c3c51b0375
(sgml-tag-alist): Doc fix.
| author | Mike Williams <mdub@bigfoot.com> |
|---|---|
| date | Tue, 09 Apr 2002 12:02:20 +0000 |
| parents | 36e16d9ae91b |
| children | 45c30120001e |
| files | lisp/textmodes/sgml-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el Tue Apr 09 09:25:44 2002 +0000 +++ b/lisp/textmodes/sgml-mode.el Tue Apr 09 12:02:20 2002 +0000 @@ -84,7 +84,6 @@ "Use <, >, &, /, SPC and `sgml-specials' keys \"electrically\" when non-nil. This takes effect when first loading the `sgml-mode' library.") - (defvar sgml-mode-map (let ((map (make-keymap)) ;`sparse' doesn't allow binding to charsets. (menu-map (make-sparse-keymap "SGML"))) @@ -138,7 +137,6 @@ map) "Keymap for SGML mode. See also `sgml-specials'.") - (defun sgml-make-syntax-table (specials) (let ((table (make-syntax-table text-mode-syntax-table))) (modify-syntax-entry ?< "(>" table) @@ -164,7 +162,6 @@ table) "Syntax table used to parse SGML tags.") - (defcustom sgml-name-8bit-mode nil "*When non-nil, insert non-ASCII characters as named entities." :type 'boolean @@ -219,7 +216,6 @@ "A table for mapping non-ASCII characters into SGML entity names. Currently, only Latin-1 characters are supported.") - ;; nsgmls is a free SGML parser in the SP suite available from ;; ftp.jclark.com and otherwise packaged for GNU systems. ;; Its error messages can be parsed by next-error. @@ -236,7 +232,6 @@ (defvar sgml-saved-validate-command nil "The command last used to validate in this buffer.") - ;; I doubt that null end tags are used much for large elements, ;; so use a small distance here. (defcustom sgml-slash-distance 1000 @@ -292,14 +287,12 @@ When `font-lock-maximum-decoration' is 1 this is always used for fontifying. When more these are fontified together with `sgml-font-lock-keywords'.") - (defvar sgml-display-text () "Tag names as lowercase symbols, and display string when invisible.") ;; internal (defvar sgml-tags-invisible nil) - (defcustom sgml-tag-alist '(("![" ("ignore" t) ("include" t)) ("!attlist") @@ -312,8 +305,8 @@ ((\"tag\" . TAGRULE) ...) -TAGRULE is a list of optionally `t' (no endtag) or `\\n' (separate endtag by -newlines) or a skeleton with `nil', `t' or `\\n' in place of the interactor +TAGRULE is a list of optionally t (no endtag) or `\\n' (separate endtag by +newlines) or a skeleton with nil, t or `\\n' in place of the interactor followed by an ATTRIBUTERULE (for an always present attribute) or an attribute alist. @@ -322,7 +315,7 @@ ((\"attribute\" . ATTRIBUTERULE) ...) -ATTRIBUTERULE is a list of optionally `t' (no value when no input) followed by +ATTRIBUTERULE is a list of optionally t (no value when no input) followed by an optional alist of possible values." :type '(repeat (cons (string :tag "Tag Name") (repeat :tag "Tag Rule" sexp))) @@ -388,7 +381,6 @@ (concat "<" face ">")) (error "Face not configured for %s mode" mode-name))) - ;;;###autoload (define-derived-mode sgml-mode text-mode "SGML" "Major mode for editing SGML documents. @@ -454,12 +446,9 @@ (concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\(" sgml-name-re "\\)"))) - (defun sgml-comment-indent () (if (looking-at "--") comment-column 0)) - - (defun sgml-slash (arg) "Insert ARG slash characters. Behaves electrically if `sgml-quick-keys' is non-nil." @@ -516,7 +505,6 @@ (buffer-substring (line-beginning-position) (1+ blinkpos))))))))) - ;; Why doesn't this use the iso-cvt table or, preferably, generate the ;; inverse of the extensive table in the SGML Quail input method? -- fx ;; I guess that's moot since it only works with Latin-1 anyhow. @@ -666,7 +654,6 @@ (or (> (point) point) (self-insert-command 1))))) - (defun sgml-tag-help (&optional tag) "Display description of tag TAG. If TAG is omitted, use the tag at point." (interactive) @@ -684,7 +671,6 @@ (cdr (assoc (downcase (substring tag 1)) sgml-tag-help))) "No description available"))) - (defun sgml-maybe-end-tag (&optional arg) "Name self unless in position to end a tag or a prefix ARG is given." (interactive "P") @@ -781,6 +767,7 @@ (goto-char open) (kill-sexp 1))) (setq arg (1- arg)))) + ;; Put read-only last to enable setting this even when read-only enabled. (or (get 'sgml-tag 'invisible) @@ -849,6 +836,7 @@ (eq (preceding-char) ?>))) (backward-list) (forward-list))))))) + (autoload 'compile-internal "compile") @@ -870,7 +858,6 @@ (save-some-buffers (not compilation-ask-about-save) nil) (compile-internal command "No more errors")) - (defun sgml-lexical-context (&optional limit) "Return the lexical context at point as (TYPE . START). START is the location of the start of the lexical element. @@ -960,7 +947,6 @@ (replace-match (cdr (assq (char-before) '((?& . "&") (?< . "<") (?> . ">")))))))) - (defsubst sgml-at-indentation-p () "Return true if point is at the first non-whitespace character on the line." @@ -1330,7 +1316,6 @@ map) "Keymap for commands for use in HTML mode.") - (defvar html-face-tag-alist '((bold . "b") (italic . "i") @@ -1361,14 +1346,13 @@ ("var" . italic)) "Value of `sgml-tag-face-alist' for HTML mode.") - (defvar html-display-text '((img . "[/]") (hr . "----------") (li . "o ")) "Value of `sgml-display-text' for HTML mode.") + - ;; should code exactly HTML 3 here when that is finished (defvar html-tag-alist (let* ((1-7 '(("1") ("2") ("3") ("4") ("5") ("6") ("7"))) @@ -1607,6 +1591,7 @@ ("var" . "Math variable face") ("wbr" . "Enable <br> within <nobr>")) "*Value of `sgml-tag-help' for HTML mode.") + ;;;###autoload (define-derived-mode html-mode sgml-mode "HTML" @@ -1680,7 +1665,7 @@ ;; (make-local-variable 'imenu-sort-function) ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose ) - + (defvar html-imenu-regexp "\\s-*<h\\([1-9]\\)[^\n<>]*>\\(<[^\n<>]*>\\)*\\s-*\\([^\n<>]*\\)" "*A regular expression matching a head line to be added to the menu. @@ -1716,6 +1701,7 @@ (add-hook 'after-save-hook 'browse-url-of-buffer nil t)) (message "Autoviewing turned %s." (if arg "off" "on"))) + (define-skeleton html-href-anchor "HTML anchor tag with href attribute."