Mercurial > emacs
annotate lisp/textmodes/sgml-mode.el @ 103508:b3c1a923f213
* xdisp.c (Qbefore_string, Qafter_string): Add externs.
(load_overlay_strings): Remove externs.
(fast_find_position): Function deleted.
(mouse_face_from_buffer_pos): New function, based on
fast_find_position. Correctly handle before-strings,
display-strings, and after-strings (Bug#1220).
(note_mouse_highlight): Use mouse_face_from_buffer_pos.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 22 Jun 2009 01:53:11 +0000 |
parents | cc189e8cf211 |
children | c730723a8c88 |
rev | line source |
---|---|
68223
69be9c945c82
Add `coding: iso-2022-7bit' cookie.
Juri Linkov <juri@jurta.org>
parents:
66963
diff
changeset
|
1 ;;; sgml-mode.el --- SGML- and HTML-editing modes -*- coding: iso-2022-7bit -*- |
809 | 2 |
64751
5b1a238fcbb4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, |
100908 | 4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
844
bf829a2d63b4
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
828
diff
changeset
|
5 |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
6 ;; Author: James Clark <jjc@jclark.com> |
43692
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
7 ;; Maintainer: FSF |
23869 | 8 ;; Adapted-By: ESR, Daniel Pfeiffer <occitan@esperanto.org>, |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
9 ;; F.Potorti@cnuce.cnr.it |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
10 ;; Keywords: wp, hypermedia, comm, languages |
809 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92748
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
809 | 15 ;; it under the terms of the GNU General Public License as published by |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92748
diff
changeset
|
16 ;; the Free Software Foundation, either version 3 of the License, or |
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92748
diff
changeset
|
17 ;; (at your option) any later version. |
809 | 18 |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
94670
f4a69fedbd46
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92748
diff
changeset
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
809 | 26 |
27 ;;; Commentary: | |
28 | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
29 ;; Configurable major mode for editing document in the SGML standard general |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
30 ;; markup language. As an example contains a mode for editing the derived |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
31 ;; HTML hypertext markup language. |
809 | 32 |
33 ;;; Code: | |
34 | |
25175 | 35 (eval-when-compile |
36 (require 'skeleton) | |
44388
01d388c4b0a3
Remember to (require 'cl).
Mike Williams <mdub@bigfoot.com>
parents:
44387
diff
changeset
|
37 (require 'outline) |
01d388c4b0a3
Remember to (require 'cl).
Mike Williams <mdub@bigfoot.com>
parents:
44387
diff
changeset
|
38 (require 'cl)) |
23726 | 39 |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
40 (defgroup sgml nil |
64058
7e00d33823d3
(sgml): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63521
diff
changeset
|
41 "SGML editing mode." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
65175
diff
changeset
|
42 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
43 :group 'languages) |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
44 |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
45 (defcustom sgml-basic-offset 2 |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
46 "Specifies the basic indentation level for `sgml-indent-line'." |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
47 :type 'integer |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
48 :group 'sgml) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
49 |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
50 (defcustom sgml-transformation-function 'identity |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
51 "Default value for `skeleton-transformation-function' in SGML mode." |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
52 :type 'function |
17530
9fb83ef40566
(sgml-transformation): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
17500
diff
changeset
|
53 :group 'sgml) |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
54 |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
55 (put 'sgml-transformation-function 'variable-interactive |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
56 "aTransformation function: ") |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
57 (defvaralias 'sgml-transformation 'sgml-transformation-function) |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
58 |
25175 | 59 (defcustom sgml-mode-hook nil |
60 "Hook run by command `sgml-mode'. | |
61 `text-mode-hook' is run first." | |
62 :group 'sgml | |
63 :type 'hook) | |
64 | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
65 ;; As long as Emacs' syntax can't be complemented with predicates to context |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
66 ;; sensitively confirm the syntax of characters, we have to live with this |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
67 ;; kludgy kind of tradeoff. |
16404
0cdf66e69ad8
(sgml-specials): Delete `-' from the list.
Richard M. Stallman <rms@gnu.org>
parents:
15867
diff
changeset
|
68 (defvar sgml-specials '(?\") |
17551 | 69 "List of characters that have a special meaning for SGML mode. |
43589
57e4f81f3346
(sgml-specials, sgml-quick-keys): Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
40624
diff
changeset
|
70 This list is used when first loading the `sgml-mode' library. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
71 The supported characters and potential disadvantages are: |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
72 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
73 ?\\\" Makes \" in text start a string. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
74 ?' Makes ' in text start a string. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
75 ?- Makes -- in text start a comment. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
76 |
22319
18b5b2445726
(sgml-font-lock-keywords-1): Add -. as
Dave Love <fx@gnu.org>
parents:
22222
diff
changeset
|
77 When only one of ?\\\" or ?' are included, \"'\" or '\"', as can be found in |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
78 DTDs, start a string. To partially avoid this problem this also makes these |
16404
0cdf66e69ad8
(sgml-specials): Delete `-' from the list.
Richard M. Stallman <rms@gnu.org>
parents:
15867
diff
changeset
|
79 self insert as named entities depending on `sgml-quick-keys'. |
0cdf66e69ad8
(sgml-specials): Delete `-' from the list.
Richard M. Stallman <rms@gnu.org>
parents:
15867
diff
changeset
|
80 |
0cdf66e69ad8
(sgml-specials): Delete `-' from the list.
Richard M. Stallman <rms@gnu.org>
parents:
15867
diff
changeset
|
81 Including ?- has the problem of affecting dashes that have nothing to do |
0cdf66e69ad8
(sgml-specials): Delete `-' from the list.
Richard M. Stallman <rms@gnu.org>
parents:
15867
diff
changeset
|
82 with comments, so we normally turn it off.") |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
83 |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
84 (defvar sgml-quick-keys nil |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
85 "Use <, >, &, /, SPC and `sgml-specials' keys \"electrically\" when non-nil. |
43589
57e4f81f3346
(sgml-specials, sgml-quick-keys): Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
40624
diff
changeset
|
86 This takes effect when first loading the `sgml-mode' library.") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
87 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
88 (defvar sgml-mode-map |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
89 (let ((map (make-keymap)) ;`sparse' doesn't allow binding to charsets. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
90 (menu-map (make-sparse-keymap "SGML"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
91 (define-key map "\C-c\C-i" 'sgml-tags-invisible) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
92 (define-key map "/" 'sgml-slash) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
93 (define-key map "\C-c\C-n" 'sgml-name-char) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
94 (define-key map "\C-c\C-t" 'sgml-tag) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
95 (define-key map "\C-c\C-a" 'sgml-attributes) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
96 (define-key map "\C-c\C-b" 'sgml-skip-tag-backward) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
97 (define-key map [?\C-c left] 'sgml-skip-tag-backward) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
98 (define-key map "\C-c\C-f" 'sgml-skip-tag-forward) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
99 (define-key map [?\C-c right] 'sgml-skip-tag-forward) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
100 (define-key map "\C-c\C-d" 'sgml-delete-tag) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
101 (define-key map "\C-c\^?" 'sgml-delete-tag) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
102 (define-key map "\C-c?" 'sgml-tag-help) |
44333
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
103 (define-key map "\C-c/" 'sgml-close-tag) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
104 (define-key map "\C-c8" 'sgml-name-8bit-mode) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
105 (define-key map "\C-c\C-v" 'sgml-validate) |
39616
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
106 (when sgml-quick-keys |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
107 (define-key map "&" 'sgml-name-char) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
108 (define-key map "<" 'sgml-tag) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
109 (define-key map " " 'sgml-auto-attributes) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
110 (define-key map ">" 'sgml-maybe-end-tag) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
111 (when (memq ?\" sgml-specials) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
112 (define-key map "\"" 'sgml-name-self)) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
113 (when (memq ?' sgml-specials) |
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
114 (define-key map "'" 'sgml-name-self))) |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
115 (let ((c 127) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
116 (map (nth 1 map))) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
117 (while (< (setq c (1+ c)) 256) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
118 (aset map c 'sgml-maybe-name-self))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
119 (define-key map [menu-bar sgml] (cons "SGML" menu-map)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
120 (define-key menu-map [sgml-validate] '("Validate" . sgml-validate)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
121 (define-key menu-map [sgml-name-8bit-mode] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
122 '("Toggle 8 Bit Insertion" . sgml-name-8bit-mode)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
123 (define-key menu-map [sgml-tags-invisible] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
124 '("Toggle Tag Visibility" . sgml-tags-invisible)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
125 (define-key menu-map [sgml-tag-help] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
126 '("Describe Tag" . sgml-tag-help)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
127 (define-key menu-map [sgml-delete-tag] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
128 '("Delete Tag" . sgml-delete-tag)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
129 (define-key menu-map [sgml-skip-tag-forward] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
130 '("Forward Tag" . sgml-skip-tag-forward)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
131 (define-key menu-map [sgml-skip-tag-backward] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
132 '("Backward Tag" . sgml-skip-tag-backward)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
133 (define-key menu-map [sgml-attributes] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
134 '("Insert Attributes" . sgml-attributes)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
135 (define-key menu-map [sgml-tag] '("Insert Tag" . sgml-tag)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
136 map) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
137 "Keymap for SGML mode. See also `sgml-specials'.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
138 |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
139 (defun sgml-make-syntax-table (specials) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
140 (let ((table (make-syntax-table text-mode-syntax-table))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
141 (modify-syntax-entry ?< "(>" table) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
142 (modify-syntax-entry ?> ")<" table) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
143 (modify-syntax-entry ?: "_" table) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
144 (modify-syntax-entry ?_ "_" table) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
145 (modify-syntax-entry ?. "_" table) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
146 (if (memq ?- specials) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
147 (modify-syntax-entry ?- "_ 1234" table)) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
148 (if (memq ?\" specials) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
149 (modify-syntax-entry ?\" "\"\"" table)) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
150 (if (memq ?' specials) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
151 (modify-syntax-entry ?\' "\"'" table)) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
152 table)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
153 |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
154 (defvar sgml-mode-syntax-table (sgml-make-syntax-table sgml-specials) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
155 "Syntax table used in SGML mode. See also `sgml-specials'.") |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
156 |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
157 (defconst sgml-tag-syntax-table |
87684
9349c39d2ae0
* testmodes/sgml-mode.el (sgml-tag-syntax-table): Initialize this
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
87567
diff
changeset
|
158 (let ((table (sgml-make-syntax-table sgml-specials))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
159 (dolist (char '(?\( ?\) ?\{ ?\} ?\[ ?\] ?$ ?% ?& ?* ?+ ?/)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
160 (modify-syntax-entry char "." table)) |
98237
fc3f7f475220
(sgml-tag-syntax-table): Remove prefix
Martin Rudalics <rudalics@gmx.at>
parents:
96509
diff
changeset
|
161 (unless (memq ?' sgml-specials) |
fc3f7f475220
(sgml-tag-syntax-table): Remove prefix
Martin Rudalics <rudalics@gmx.at>
parents:
96509
diff
changeset
|
162 ;; Avoid that skipping a tag backwards skips any "'" prefixing it. |
fc3f7f475220
(sgml-tag-syntax-table): Remove prefix
Martin Rudalics <rudalics@gmx.at>
parents:
96509
diff
changeset
|
163 (modify-syntax-entry ?' "w" table)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
164 table) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
165 "Syntax table used to parse SGML tags.") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
166 |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
167 (defcustom sgml-name-8bit-mode nil |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
168 "When non-nil, insert non-ASCII characters as named entities." |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
169 :type 'boolean |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
170 :group 'sgml) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
171 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
172 (defvar sgml-char-names |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
173 [nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
174 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
175 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
176 nil nil nil nil nil nil nil nil |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
177 "nbsp" "excl" "quot" "num" "dollar" "percnt" "amp" "apos" |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
178 "lpar" "rpar" "ast" "plus" "comma" "hyphen" "period" "sol" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
179 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
180 nil nil "colon" "semi" "lt" "eq" "gt" "quest" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
181 "commat" nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
182 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
183 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
184 nil nil nil "lsqb" nil "rsqb" "uarr" "lowbar" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
185 "lsquo" nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
186 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
187 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
188 nil nil nil "lcub" "verbar" "rcub" "tilde" nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
189 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
190 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
191 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
192 nil nil nil nil nil nil nil nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
193 "nbsp" "iexcl" "cent" "pound" "curren" "yen" "brvbar" "sect" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
194 "uml" "copy" "ordf" "laquo" "not" "shy" "reg" "macr" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
195 "ring" "plusmn" "sup2" "sup3" "acute" "micro" "para" "middot" |
26250
194bcc8d17db
* textmodes/sgml-mode.el (sgml-char-names): Change "half" to
Gerd Moellmann <gerd@gnu.org>
parents:
25175
diff
changeset
|
196 "cedil" "sup1" "ordm" "raquo" "frac14" "frac12" "frac34" "iquest" |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
197 "Agrave" "Aacute" "Acirc" "Atilde" "Auml" "Aring" "AElig" "Ccedil" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
198 "Egrave" "Eacute" "Ecirc" "Euml" "Igrave" "Iacute" "Icirc" "Iuml" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
199 "ETH" "Ntilde" "Ograve" "Oacute" "Ocirc" "Otilde" "Ouml" nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
200 "Oslash" "Ugrave" "Uacute" "Ucirc" "Uuml" "Yacute" "THORN" "szlig" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
201 "agrave" "aacute" "acirc" "atilde" "auml" "aring" "aelig" "ccedil" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
202 "egrave" "eacute" "ecirc" "euml" "igrave" "iacute" "icirc" "iuml" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
203 "eth" "ntilde" "ograve" "oacute" "ocirc" "otilde" "ouml" "divide" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
204 "oslash" "ugrave" "uacute" "ucirc" "uuml" "yacute" "thorn" "yuml"] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
205 "Vector of symbolic character names without `&' and `;'.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
206 |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
207 (put 'sgml-table 'char-table-extra-slots 0) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
208 |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
209 (defvar sgml-char-names-table |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
210 (let ((table (make-char-table 'sgml-table)) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
211 (i 32) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
212 elt) |
88415
8fb7bc8f8acc
(sgml-mode-map): Use encode-char instead
Kenichi Handa <handa@m17n.org>
parents:
40624
diff
changeset
|
213 (while (< i 128) |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
214 (setq elt (aref sgml-char-names i)) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
215 (if elt (aset table (make-char 'latin-iso8859-1 i) elt)) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
216 (setq i (1+ i))) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
217 table) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
218 "A table for mapping non-ASCII characters into SGML entity names. |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
219 Currently, only Latin-1 characters are supported.") |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
220 |
25052
d2a4359531e0
(sgml-validate-command): Use nsgmls.
Dave Love <fx@gnu.org>
parents:
24463
diff
changeset
|
221 ;; nsgmls is a free SGML parser in the SP suite available from |
d2a4359531e0
(sgml-validate-command): Use nsgmls.
Dave Love <fx@gnu.org>
parents:
24463
diff
changeset
|
222 ;; ftp.jclark.com and otherwise packaged for GNU systems. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
223 ;; Its error messages can be parsed by next-error. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
224 ;; The -s option suppresses output. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
225 |
25052
d2a4359531e0
(sgml-validate-command): Use nsgmls.
Dave Love <fx@gnu.org>
parents:
24463
diff
changeset
|
226 (defcustom sgml-validate-command "nsgmls -s" ; replaced old `sgmls' |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
227 "The command to validate an SGML document. |
809 | 228 The file name of current buffer file name will be appended to this, |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
229 separated by a space." |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
230 :type 'string |
25175 | 231 :version "21.1" |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
232 :group 'sgml) |
809 | 233 |
234 (defvar sgml-saved-validate-command nil | |
235 "The command last used to validate in this buffer.") | |
236 | |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
237 ;; I doubt that null end tags are used much for large elements, |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
238 ;; so use a small distance here. |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
239 (defcustom sgml-slash-distance 1000 |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
240 "If non-nil, is the maximum distance to search for matching `/'." |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
241 :type '(choice (const nil) integer) |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
242 :group 'sgml) |
809 | 243 |
50955
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
244 (defconst sgml-namespace-re "[_[:alpha:]][-_.[:alnum:]]*") |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
245 (defconst sgml-name-re "[_:[:alpha:]][-_.:[:alnum:]]*") |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
246 (defconst sgml-tag-name-re (concat "<\\([!/?]?" sgml-name-re "\\)")) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
247 (defconst sgml-attrs-re "\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*") |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
248 (defconst sgml-start-tag-regex (concat "<" sgml-name-re sgml-attrs-re) |
809 | 249 "Regular expression that matches a non-empty start tag. |
17551 | 250 Any terminating `>' or `/' is not matched.") |
809 | 251 |
63226
33e854825b44
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390
Miles Bader <miles@gnu.org>
parents:
62809
diff
changeset
|
252 (defface sgml-namespace |
50955
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
253 '((t (:inherit font-lock-builtin-face))) |
62809
e38d2ae61b0a
(sgml-namespace-face): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
61014
diff
changeset
|
254 "`sgml-mode' face used to highlight the namespace part of identifiers." |
e38d2ae61b0a
(sgml-namespace-face): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
61014
diff
changeset
|
255 :group 'sgml) |
63226
33e854825b44
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390
Miles Bader <miles@gnu.org>
parents:
62809
diff
changeset
|
256 (defvar sgml-namespace-face 'sgml-namespace) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
257 |
21780
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
258 ;; internal |
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
259 (defconst sgml-font-lock-keywords-1 |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
260 `((,(concat "<\\([!?]" sgml-name-re "\\)") 1 font-lock-keyword-face) |
50955
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
261 ;; We could use the simpler "\\(" sgml-namespace-re ":\\)?" instead, |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
262 ;; but it would cause a bit more backtracking in the re-matcher. |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
263 (,(concat "</?\\(" sgml-namespace-re "\\)\\(?::\\(" sgml-name-re "\\)\\)?") |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
264 (1 (if (match-end 2) sgml-namespace-face font-lock-function-name-face)) |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
265 (2 font-lock-function-name-face nil t)) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
266 ;; FIXME: this doesn't cover the variables using a default value. |
74397
429f18443ca0
(sgml-font-lock-keywords-1): Fix pathological O(n^2) regexp-search by
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70823
diff
changeset
|
267 ;; The first shy-group is an important anchor: it prevents an O(n^2) |
429f18443ca0
(sgml-font-lock-keywords-1): Fix pathological O(n^2) regexp-search by
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70823
diff
changeset
|
268 ;; pathological case where we otherwise keep retrying a failing match |
429f18443ca0
(sgml-font-lock-keywords-1): Fix pathological O(n^2) regexp-search by
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70823
diff
changeset
|
269 ;; against a very long word at every possible position within the word. |
429f18443ca0
(sgml-font-lock-keywords-1): Fix pathological O(n^2) regexp-search by
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70823
diff
changeset
|
270 (,(concat "\\(?:^\\|[ \t]\\)\\(" sgml-namespace-re "\\)\\(?::\\(" |
50955
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
271 sgml-name-re "\\)\\)?=[\"']") |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
272 (1 (if (match-end 2) sgml-namespace-face font-lock-variable-name-face)) |
7a718ea39fba
(sgml-namespace-re): New const.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49153
diff
changeset
|
273 (2 font-lock-variable-name-face nil t)) |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
274 (,(concat "[&%]" sgml-name-re ";?") . font-lock-variable-name-face))) |
21780
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
275 |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
276 (defconst sgml-font-lock-keywords-2 |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
277 (append |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
278 sgml-font-lock-keywords-1 |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
279 '((eval |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
280 . (cons (concat "<" |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
281 (regexp-opt (mapcar 'car sgml-tag-face-alist) t) |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
282 "\\([ \t][^>]*\\)?>\\([^<]+\\)</\\1>") |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
283 '(3 (cdr (assoc-string (match-string 1) sgml-tag-face-alist t)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
284 prepend)))))) |
21780
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
285 |
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
286 ;; for font-lock, but must be defvar'ed after |
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
287 ;; sgml-font-lock-keywords-1 and sgml-font-lock-keywords-2 above |
5dc3fe7cd300
(sgml-font-lock-keywords-1): Copy initialization from sgml-font-lock-keywords.
Richard M. Stallman <rms@gnu.org>
parents:
20922
diff
changeset
|
288 (defvar sgml-font-lock-keywords sgml-font-lock-keywords-1 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
289 "*Rules for highlighting SGML code. See also `sgml-tag-face-alist'.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
290 |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
291 (defvar sgml-font-lock-syntactic-keywords |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
292 ;; Use the `b' style of comments to avoid interference with the -- ... -- |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
293 ;; comments recognized when `sgml-specials' includes ?-. |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
294 ;; FIXME: beware of <!--> blabla <!--> !! |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
295 '(("\\(<\\)!--" (1 "< b")) |
92748
ef656c281e1e
(sgml-font-lock-syntactic-keywords): Mark " outside of tags as punctuation.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
296 ("--[ \t\n]*\\(>\\)" (1 "> b")) |
ef656c281e1e
(sgml-font-lock-syntactic-keywords): Mark " outside of tags as punctuation.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
297 ;; Double quotes outside of tags should not introduce strings. |
96509
0b35188a36dd
(sgml-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94670
diff
changeset
|
298 ;; Be careful to call `syntax-ppss' on a position before the one we're |
0b35188a36dd
(sgml-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94670
diff
changeset
|
299 ;; going to change, so as not to need to flush the data we just computed. |
0b35188a36dd
(sgml-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94670
diff
changeset
|
300 ("\"" (0 (if (prog1 (zerop (car (syntax-ppss (match-beginning 0)))) |
0b35188a36dd
(sgml-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94670
diff
changeset
|
301 (goto-char (match-end 0))) |
0b35188a36dd
(sgml-font-lock-syntactic-keywords):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94670
diff
changeset
|
302 ".")))) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
303 "Syntactic keywords for `sgml-mode'.") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
304 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
305 ;; internal |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
306 (defvar sgml-face-tag-alist () |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
307 "Alist of face and tag name for facemenu.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
308 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
309 (defvar sgml-tag-face-alist () |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
310 "Tag names and face or list of faces to fontify with when invisible. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
311 When `font-lock-maximum-decoration' is 1 this is always used for fontifying. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
312 When more these are fontified together with `sgml-font-lock-keywords'.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
313 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
314 (defvar sgml-display-text () |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
315 "Tag names as lowercase symbols, and display string when invisible.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
316 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
317 ;; internal |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
318 (defvar sgml-tags-invisible nil) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
319 |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
320 (defcustom sgml-tag-alist |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
321 '(("![" ("ignore" t) ("include" t)) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
322 ("!attlist") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
323 ("!doctype") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
324 ("!element") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
325 ("!entity")) |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
326 "Alist of tag names for completing read and insertion rules. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
327 This alist is made up as |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
328 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
329 ((\"tag\" . TAGRULE) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
330 ...) |
809 | 331 |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
332 TAGRULE is a list of optionally t (no endtag) or `\\n' (separate endtag by |
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
333 newlines) or a skeleton with nil, t or `\\n' in place of the interactor |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
334 followed by an ATTRIBUTERULE (for an always present attribute) or an |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
335 attribute alist. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
336 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
337 The attribute alist is made up as |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
338 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
339 ((\"attribute\" . ATTRIBUTERULE) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
340 ...) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
341 |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
342 ATTRIBUTERULE is a list of optionally t (no value when no input) followed by |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
343 an optional alist of possible values." |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
344 :type '(repeat (cons (string :tag "Tag Name") |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
345 (repeat :tag "Tag Rule" sexp))) |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
346 :group 'sgml) |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
347 (put 'sgml-tag-alist 'risky-local-variable t) |
809 | 348 |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
349 (defcustom sgml-tag-help |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
350 '(("!" . "Empty declaration for comment") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
351 ("![" . "Embed declarations with parser directive") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
352 ("!attlist" . "Tag attributes declaration") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
353 ("!doctype" . "Document type (DTD) declaration") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
354 ("!element" . "Tag declaration") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
355 ("!entity" . "Entity (macro) declaration")) |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
356 "Alist of tag name and short description." |
17432
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
357 :type '(repeat (cons (string :tag "Tag Name") |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
358 (string :tag "Description"))) |
5d2e0051fe39
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17309
diff
changeset
|
359 :group 'sgml) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
360 |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
361 (defcustom sgml-xml-mode nil |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
362 "When non-nil, tag insertion functions will be XML-compliant. |
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
363 It is set to be buffer-local when the file has |
60521 | 364 a DOCTYPE or an XML declaration." |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
365 :type 'boolean |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59519
diff
changeset
|
366 :version "22.1" |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
367 :group 'sgml) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
368 |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
369 (defvar sgml-empty-tags nil |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
370 "List of tags whose !ELEMENT definition says EMPTY.") |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
371 |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
372 (defvar sgml-unclosed-tags nil |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
373 "List of tags whose !ELEMENT definition says the end-tag is optional.") |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
374 |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
375 (defun sgml-xml-guess () |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
376 "Guess whether the current buffer is XML. Return non-nil if so." |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
377 (save-excursion |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
378 (goto-char (point-min)) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
379 (or (string= "xml" (file-name-extension (or buffer-file-name ""))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
380 (looking-at "\\s-*<\\?xml") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
381 (when (re-search-forward |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
382 (eval-when-compile |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
383 (mapconcat 'identity |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
384 '("<!DOCTYPE" "\\(\\w+\\)" "\\(\\w+\\)" |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
385 "\"\\([^\"]+\\)\"" "\"\\([^\"]+\\)\"") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
386 "\\s-+")) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
387 nil t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
388 (string-match "X\\(HT\\)?ML" (match-string 3)))))) |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
389 |
23726 | 390 (defvar v2) ; free for skeleton |
391 | |
44443
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
392 (defun sgml-comment-indent-new-line (&optional soft) |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
393 (let ((comment-start "-- ") |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
394 (comment-start-skip "\\(<!\\)?--[ \t]*") |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
395 (comment-end " --") |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
396 (comment-style 'plain)) |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
397 (comment-indent-new-line soft))) |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
398 |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
399 (defun sgml-mode-facemenu-add-face-function (face end) |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
400 (if (setq face (cdr (assq face sgml-face-tag-alist))) |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
401 (progn |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
402 (setq face (funcall skeleton-transformation-function face)) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
403 (setq facemenu-end-add-face (concat "</" face ">")) |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
404 (concat "<" face ">")) |
87567
4c3c683cdff8
* erc-ibuffer.el (erc-channel-modes):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
405 (error "Face not configured for %s mode" (format-mode-line mode-name)))) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
406 |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
407 (defun sgml-fill-nobreak () |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
408 ;; Don't break between a tag name and its first argument. |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
409 (save-excursion |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
410 (skip-chars-backward " \t") |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
411 (and (not (zerop (skip-syntax-backward "w_"))) |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
412 (skip-chars-backward "/?!") |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
413 (eq (char-before) ?<)))) |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
414 |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
415 ;;;###autoload |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
416 (define-derived-mode sgml-mode text-mode '(sgml-xml-mode "XML" "SGML") |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
417 "Major mode for editing SGML documents. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
418 Makes > match <. |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
419 Keys <, &, SPC within <>, \", / and ' can be electric depending on |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
420 `sgml-quick-keys'. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
421 |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
422 An argument of N to a tag-inserting command means to wrap it around |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
423 the next N words. In Transient Mark mode, when the mark is active, |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
424 N defaults to -1, which means to wrap it around the current region. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
425 |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
426 If you like upcased tags, put (setq sgml-transformation-function 'upcase) |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
427 in your `.emacs' file. |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
428 |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
429 Use \\[sgml-validate] to validate your document with an SGML parser. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
430 |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
431 Do \\[describe-variable] sgml- SPC to see available variables. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
432 Do \\[describe-key] on the following bindings to discover what they do. |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
433 \\{sgml-mode-map}" |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
434 (make-local-variable 'sgml-saved-validate-command) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
435 (make-local-variable 'facemenu-end-add-face) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
436 ;;(make-local-variable 'facemenu-remove-face-function) |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
437 ;; A start or end tag by itself on a line separates a paragraph. |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
438 ;; This is desirable because SGML discards a newline that appears |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
439 ;; immediately after a start tag or immediately before an end tag. |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
440 (set (make-local-variable 'paragraph-start) (concat "[ \t]*$\\|\ |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
441 \[ \t]*</?\\(" sgml-name-re sgml-attrs-re "\\)?>")) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
442 (set (make-local-variable 'paragraph-separate) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
443 (concat paragraph-start "$")) |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
444 (set (make-local-variable 'adaptive-fill-regexp) "[ \t]*") |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
445 (add-hook 'fill-nobreak-predicate 'sgml-fill-nobreak nil t) |
44293
a1bba2ef8c34
(sgml-mode): Set indent-line-function to sgml-indent-line.
Mike Williams <mdub@bigfoot.com>
parents:
44286
diff
changeset
|
446 (set (make-local-variable 'indent-line-function) 'sgml-indent-line) |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
447 (set (make-local-variable 'comment-start) "<!-- ") |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
448 (set (make-local-variable 'comment-end) " -->") |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
449 (set (make-local-variable 'comment-indent-function) 'sgml-comment-indent) |
44443
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
450 (set (make-local-variable 'comment-line-break-function) |
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
451 'sgml-comment-indent-new-line) |
40377
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
452 (set (make-local-variable 'skeleton-further-elements) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
453 '((completion-ignore-case t))) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
454 (set (make-local-variable 'skeleton-end-hook) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
455 (lambda () |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
456 (or (eolp) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
457 (not (or (eq v2 '\n) (eq (car-safe v2) '\n))) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
458 (newline-and-indent)))) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
459 (set (make-local-variable 'font-lock-defaults) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
460 '((sgml-font-lock-keywords |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
461 sgml-font-lock-keywords-1 |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
462 sgml-font-lock-keywords-2) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
463 nil t nil nil |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
464 (font-lock-syntactic-keywords |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
465 . sgml-font-lock-syntactic-keywords))) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
466 (set (make-local-variable 'facemenu-add-face-function) |
ea7ef845ccf3
renamed `html-xhtml' to `sgml-xml' and generalized accordingly
Sam Steingold <sds@gnu.org>
parents:
40350
diff
changeset
|
467 'sgml-mode-facemenu-add-face-function) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
468 (set (make-local-variable 'sgml-xml-mode) (sgml-xml-guess)) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
469 (if sgml-xml-mode |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
470 () |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
471 (set (make-local-variable 'skeleton-transformation-function) |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
472 sgml-transformation-function)) |
36609
8e1755c3dd2b
(sgml-mode-common): Correct value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27683
diff
changeset
|
473 ;; This will allow existing comments within declarations to be |
8e1755c3dd2b
(sgml-mode-common): Correct value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27683
diff
changeset
|
474 ;; recognized. |
80120
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
475 ;; I can't find a clear description of SGML/XML comments, but it seems that |
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
476 ;; the only reliable ones are <!-- ... --> although it's not clear what |
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
477 ;; "..." can contain. It used to accept -- ... -- as well, but that was |
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
478 ;; apparently a mistake. |
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
479 (set (make-local-variable 'comment-start-skip) "<!--[ \t]*") |
09b5c9664c42
(sgml-mode): Fix comment syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79719
diff
changeset
|
480 (set (make-local-variable 'comment-end-skip) "[ \t]*--[ \t\n]*>") |
57718
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
481 ;; This definition has an HTML leaning but probably fits well for other modes. |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
482 (setq imenu-generic-expression |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
483 `((nil |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
484 ,(concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\(" |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
485 sgml-name-re "\\)") |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
486 2) |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
487 ("Id" |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
488 ,(concat "<[^>]+[ \t\n]+[Ii][Dd]=\\(['\"]" |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
489 (if sgml-xml-mode "" "?") |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
490 "\\)\\(" sgml-name-re "\\)\\1") |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
491 2) |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
492 ("Name" |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
493 ,(concat "<[^>]+[ \t\n]+[Nn][Aa][Mm][Ee]=\\(['\"]" |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
494 (if sgml-xml-mode "" "?") |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
495 "\\)\\(" sgml-name-re "\\)\\1") |
e60d53125cf2
(sgml-mode): Fix imenu-generic-expression and add "Id" and "Name" submenus to it.
Daniel Pfeiffer <occitan@esperanto.org>
parents:
52401
diff
changeset
|
496 2)))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
497 |
45557
1cae8564d2c7
(xml-mode): New alias for `sgml-mode'.
Colin Walters <walters@gnu.org>
parents:
45463
diff
changeset
|
498 ;; Some programs (such as Glade 2) generate XML which has |
1cae8564d2c7
(xml-mode): New alias for `sgml-mode'.
Colin Walters <walters@gnu.org>
parents:
45463
diff
changeset
|
499 ;; -*- mode: xml -*-. |
51795
cd4ac91f52c9
(xml-mode): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
51478
diff
changeset
|
500 ;;;###autoload |
45557
1cae8564d2c7
(xml-mode): New alias for `sgml-mode'.
Colin Walters <walters@gnu.org>
parents:
45463
diff
changeset
|
501 (defalias 'xml-mode 'sgml-mode) |
1cae8564d2c7
(xml-mode): New alias for `sgml-mode'.
Colin Walters <walters@gnu.org>
parents:
45463
diff
changeset
|
502 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
503 (defun sgml-comment-indent () |
36609
8e1755c3dd2b
(sgml-mode-common): Correct value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27683
diff
changeset
|
504 (if (looking-at "--") comment-column 0)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
505 |
809 | 506 (defun sgml-slash (arg) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
507 "Insert ARG slash characters. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
508 Behaves electrically if `sgml-quick-keys' is non-nil." |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
509 (interactive "p") |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
510 (cond |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
511 ((not (and (eq (char-before) ?<) (= arg 1))) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
512 (sgml-slash-matching arg)) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
513 ((eq sgml-quick-keys 'indent) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
514 (insert-char ?/ 1) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
515 (indent-according-to-mode)) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
516 ((eq sgml-quick-keys 'close) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
517 (delete-backward-char 1) |
44333
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
518 (sgml-close-tag)) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
519 (t |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
520 (sgml-slash-matching arg)))) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
521 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
522 (defun sgml-slash-matching (arg) |
17551 | 523 "Insert `/' and display any previous matching `/'. |
524 Two `/'s are treated as matching if the first `/' ends a net-enabling | |
525 start tag, and the second `/' is the corresponding null end tag." | |
809 | 526 (interactive "p") |
527 (insert-char ?/ arg) | |
528 (if (> arg 0) | |
529 (let ((oldpos (point)) | |
530 (blinkpos) | |
531 (level 0)) | |
532 (save-excursion | |
533 (save-restriction | |
534 (if sgml-slash-distance | |
535 (narrow-to-region (max (point-min) | |
536 (- (point) sgml-slash-distance)) | |
537 oldpos)) | |
538 (if (and (re-search-backward sgml-start-tag-regex (point-min) t) | |
539 (eq (match-end 0) (1- oldpos))) | |
540 () | |
541 (goto-char (1- oldpos)) | |
542 (while (and (not blinkpos) | |
543 (search-backward "/" (point-min) t)) | |
544 (let ((tagend (save-excursion | |
545 (if (re-search-backward sgml-start-tag-regex | |
546 (point-min) t) | |
547 (match-end 0) | |
548 nil)))) | |
549 (if (eq tagend (point)) | |
550 (if (eq level 0) | |
551 (setq blinkpos (point)) | |
552 (setq level (1- level))) | |
553 (setq level (1+ level))))))) | |
40343
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
554 (when blinkpos |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
555 (goto-char blinkpos) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
556 (if (pos-visible-in-window-p) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
557 (sit-for 1) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
558 (message "Matches %s" |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
559 (buffer-substring (line-beginning-position) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
560 (1+ blinkpos))))))))) |
809 | 561 |
43692
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
562 ;; Why doesn't this use the iso-cvt table or, preferably, generate the |
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
563 ;; inverse of the extensive table in the SGML Quail input method? -- fx |
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
564 ;; I guess that's moot since it only works with Latin-1 anyhow. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
565 (defun sgml-name-char (&optional char) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
566 "Insert a symbolic character name according to `sgml-char-names'. |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
567 Non-ASCII chars may be inserted either with the meta key, as in M-SPC for |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
568 no-break space or M-- for a soft hyphen; or via an input method or |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
569 encoded keyboard operation." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
570 (interactive "*") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
571 (insert ?&) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
572 (or char |
17500
e8d7c7e2acab
(sgml-name-char): Ask user with a prompt.
Richard M. Stallman <rms@gnu.org>
parents:
17491
diff
changeset
|
573 (setq char (read-quoted-char "Enter char or octal number"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
574 (delete-backward-char 1) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
575 (insert char) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
576 (undo-boundary) |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
577 (sgml-namify-char)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
578 |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
579 (defun sgml-namify-char () |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
580 "Change the char before point into its `&name;' equivalent. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
581 Uses `sgml-char-names'." |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
582 (interactive) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
583 (let* ((char (char-before)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
584 (name |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
585 (cond |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
586 ((null char) (error "No char before point")) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
587 ((< char 256) (or (aref sgml-char-names char) char)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
588 ((aref sgml-char-names-table char)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
589 ((encode-char char 'ucs))))) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
590 (if (not name) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
591 (error "Don't know the name of `%c'" char) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
592 (delete-backward-char 1) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
593 (insert (format (if (numberp name) "&#%d;" "&%s;") name))))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
594 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
595 (defun sgml-name-self () |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
596 "Insert a symbolic character name according to `sgml-char-names'." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
597 (interactive "*") |
101003
cc189e8cf211
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
598 (sgml-name-char last-command-event)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
599 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
600 (defun sgml-maybe-name-self () |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
601 "Insert a symbolic character name according to `sgml-char-names'." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
602 (interactive "*") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
603 (if sgml-name-8bit-mode |
101003
cc189e8cf211
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
604 (let ((mc last-command-event)) |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
605 (if (< mc 256) |
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
606 (setq mc (unibyte-char-to-multibyte mc))) |
101003
cc189e8cf211
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
607 (or mc (setq mc last-command-event)) |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
608 (sgml-name-char mc)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
609 (self-insert-command 1))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
610 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
611 (defun sgml-name-8bit-mode () |
43692
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
612 "Toggle whether to insert named entities instead of non-ASCII characters. |
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
613 This only works for Latin-1 input." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
614 (interactive) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
615 (setq sgml-name-8bit-mode (not sgml-name-8bit-mode)) |
40176
744190a4880c
(sgml-mode-map): Bind 8-bit codes above 127 to sgml-maybe-name-self.
Eli Zaretskii <eliz@gnu.org>
parents:
39616
diff
changeset
|
616 (message "sgml name entity mode is now %s" |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
617 (if sgml-name-8bit-mode "ON" "OFF"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
618 |
17551 | 619 ;; When an element of a skeleton is a string "str", it is passed |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
620 ;; through `skeleton-transformation-function' and inserted. |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
621 ;; If "str" is to be inserted literally, one should obtain it as |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
622 ;; the return value of a function, e.g. (identity "str"). |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
623 |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
624 (defvar sgml-tag-last nil) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
625 (defvar sgml-tag-history nil) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
626 (define-skeleton sgml-tag |
17551 | 627 "Prompt for a tag and insert it, optionally with attributes. |
628 Completion and configuration are done according to `sgml-tag-alist'. | |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
629 If you like tags and attributes in uppercase do \\[set-variable] |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
630 `skeleton-transformation-function' RET `upcase' RET, or put this |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
631 in your `.emacs': |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
632 (setq sgml-transformation-function 'upcase)" |
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
633 (funcall (or skeleton-transformation-function 'identity) |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
634 (setq sgml-tag-last |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
635 (completing-read |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
636 (if (> (length sgml-tag-last) 0) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
637 (format "Tag (default %s): " sgml-tag-last) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
638 "Tag: ") |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
639 sgml-tag-alist nil nil nil 'sgml-tag-history sgml-tag-last))) |
36609
8e1755c3dd2b
(sgml-mode-common): Correct value of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27683
diff
changeset
|
640 ?< str | |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
641 (("") -1 '(undo-boundary) (identity "<")) | ; see comment above |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
642 `(("") '(setq v2 (sgml-attributes ,str t)) ?> |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
643 (cond |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
644 ((string= "![" ,str) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
645 (backward-char) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
646 '(("") " [ " _ " ]]")) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
647 ((and (eq v2 t) sgml-xml-mode (member ,str sgml-empty-tags)) |
60521 | 648 '(("") -1 " />")) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
649 ((or (and (eq v2 t) (not sgml-xml-mode)) (string-match "^[/!?]" ,str)) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
650 nil) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
651 ((symbolp v2) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
652 ;; Make sure we don't fall into an infinite loop. |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
653 ;; For xhtml's `tr' tag, we should maybe use \n instead. |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
654 (if (eq v2 t) (setq v2 nil)) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
655 ;; We use `identity' to prevent skeleton from passing |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
656 ;; `str' through `skeleton-transformation-function' a second time. |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
657 '(("") v2 _ v2 "</" (identity ',str) ?>)) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
658 ((eq (car v2) t) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
659 (cons '("") (cdr v2))) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
660 (t |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
661 (append '(("") (car v2)) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
662 (cdr v2) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
663 '(resume: (car v2) _ "</" (identity ',str) ?>)))))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
664 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
665 (autoload 'skeleton-read "skeleton") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
666 |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
667 (defun sgml-attributes (tag &optional quiet) |
17551 | 668 "When at top level of a tag, interactively insert attributes. |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
669 |
17551 | 670 Completion and configuration of TAG are done according to `sgml-tag-alist'. |
671 If QUIET, do not print a message when there are no attributes for TAG." | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
672 (interactive (list (save-excursion (sgml-beginning-of-tag t)))) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
673 (or (stringp tag) (error "Wrong context for adding attribute")) |
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
674 (if tag |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
675 (let ((completion-ignore-case t) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
676 (alist (cdr (assoc (downcase tag) sgml-tag-alist))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
677 car attribute i) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
678 (if (or (symbolp (car alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
679 (symbolp (car (car alist)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
680 (setq car (car alist) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
681 alist (cdr alist))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
682 (or quiet |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
683 (message "No attributes configured.")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
684 (if (stringp (car alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
685 (progn |
64058
7e00d33823d3
(sgml): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63521
diff
changeset
|
686 (insert (if (eq (preceding-char) ?\s) "" ?\s) |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
687 (funcall skeleton-transformation-function (car alist))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
688 (sgml-value alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
689 (setq i (length alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
690 (while (> i 0) |
64058
7e00d33823d3
(sgml): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63521
diff
changeset
|
691 (insert ?\s) |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
692 (insert (funcall skeleton-transformation-function |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
693 (setq attribute |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
694 (skeleton-read '(completing-read |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
695 "Attribute: " |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
696 alist))))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
697 (if (string= "" attribute) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
698 (setq i 0) |
20922
3ae81bc17b19
(sgml-mode-common): Downcase key for
Dave Love <fx@gnu.org>
parents:
20394
diff
changeset
|
699 (sgml-value (assoc (downcase attribute) alist)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
700 (setq i (1- i)))) |
64058
7e00d33823d3
(sgml): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63521
diff
changeset
|
701 (if (eq (preceding-char) ?\s) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
702 (delete-backward-char 1))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
703 car))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
704 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
705 (defun sgml-auto-attributes (arg) |
17551 | 706 "Self insert the character typed; at top level of tag, prompt for attributes. |
707 With prefix argument, only self insert." | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
708 (interactive "*P") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
709 (let ((point (point)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
710 tag) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
711 (if (or arg |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
712 (not sgml-tag-alist) ; no message when nothing configured |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
713 (symbolp (setq tag (save-excursion (sgml-beginning-of-tag t)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
714 (eq (aref tag 0) ?/)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
715 (self-insert-command (prefix-numeric-value arg)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
716 (sgml-attributes tag) |
101003
cc189e8cf211
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
717 (setq last-command-event ?\s) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
718 (or (> (point) point) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
719 (self-insert-command 1))))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
720 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
721 (defun sgml-tag-help (&optional tag) |
17551 | 722 "Display description of tag TAG. If TAG is omitted, use the tag at point." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
723 (interactive) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
724 (or tag |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
725 (save-excursion |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
726 (if (eq (following-char) ?<) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
727 (forward-char)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
728 (setq tag (sgml-beginning-of-tag)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
729 (or (stringp tag) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
730 (error "No tag selected")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
731 (setq tag (downcase tag)) |
14328
5d0e329a44d8
(sgml-tag-help): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14270
diff
changeset
|
732 (message "%s" |
20922
3ae81bc17b19
(sgml-mode-common): Downcase key for
Dave Love <fx@gnu.org>
parents:
20394
diff
changeset
|
733 (or (cdr (assoc (downcase tag) sgml-tag-help)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
734 (and (eq (aref tag 0) ?/) |
20922
3ae81bc17b19
(sgml-mode-common): Downcase key for
Dave Love <fx@gnu.org>
parents:
20394
diff
changeset
|
735 (cdr (assoc (downcase (substring tag 1)) sgml-tag-help))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
736 "No description available"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
737 |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
738 (defun sgml-maybe-end-tag (&optional arg) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
739 "Name self unless in position to end a tag or a prefix ARG is given." |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
740 (interactive "P") |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
741 (if (or arg (eq (car (sgml-lexical-context)) 'tag)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
742 (self-insert-command (prefix-numeric-value arg)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
743 (sgml-name-self))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
744 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
745 (defun sgml-skip-tag-backward (arg) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
746 "Skip to beginning of tag or matching opening tag if present. |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
747 With prefix argument ARG, repeat this ARG times. |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
748 Return non-nil if we skipped over matched tags." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
749 (interactive "p") |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
750 ;; FIXME: use sgml-get-context or something similar. |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
751 (let ((return t)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
752 (while (>= arg 1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
753 (search-backward "<" nil t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
754 (if (looking-at "</\\([^ \n\t>]+\\)") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
755 ;; end tag, skip any nested pairs |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
756 (let ((case-fold-search t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
757 (re (concat "</?" (regexp-quote (match-string 1)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
758 ;; Ignore empty tags like <foo/>. |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
759 "\\([^>]*[^/>]\\)?>"))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
760 (while (and (re-search-backward re nil t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
761 (eq (char-after (1+ (point))) ?/)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
762 (forward-char 1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
763 (sgml-skip-tag-backward 1))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
764 (setq return nil)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
765 (setq arg (1- arg))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
766 return)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
767 |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
768 (defvar sgml-electric-tag-pair-overlays nil) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
769 (defvar sgml-electric-tag-pair-timer nil) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
770 |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
771 (defun sgml-electric-tag-pair-before-change-function (beg end) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
772 (condition-case err |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
773 (save-excursion |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
774 (goto-char end) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
775 (skip-chars-backward "[:alnum:]-_.:") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
776 (if (and ;; (<= (point) beg) ; This poses problems for downcase-word. |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
777 (or (eq (char-before) ?<) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
778 (and (eq (char-before) ?/) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
779 (eq (char-before (1- (point))) ?<))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
780 (null (get-char-property (point) 'text-clones))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
781 (let* ((endp (eq (char-before) ?/)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
782 (cl-start (point)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
783 (cl-end (progn (skip-chars-forward "[:alnum:]-_.:") (point))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
784 (match |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
785 (if endp |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
786 (when (sgml-skip-tag-backward 1) (forward-char 1) t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
787 (with-syntax-table sgml-tag-syntax-table |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
788 (up-list -1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
789 (when (sgml-skip-tag-forward 1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
790 (backward-sexp 1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
791 (forward-char 2) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
792 t)))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
793 (clones (get-char-property (point) 'text-clones))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
794 (when (and match |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
795 (/= cl-end cl-start) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
796 (equal (buffer-substring cl-start cl-end) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
797 (buffer-substring (point) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
798 (save-excursion |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
799 (skip-chars-forward "[:alnum:]-_.:") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
800 (point)))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
801 (or (not endp) (eq (char-after cl-end) ?>))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
802 (when clones |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
803 (message "sgml-electric-tag-pair-before-change-function: deleting old OLs") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
804 (mapc 'delete-overlay clones)) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
805 (message "sgml-electric-tag-pair-before-change-function: new clone") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
806 (text-clone-create cl-start cl-end 'spread "[[:alnum:]-_.:]+") |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
807 (setq sgml-electric-tag-pair-overlays |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
808 (append (get-char-property (point) 'text-clones) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
809 sgml-electric-tag-pair-overlays)))))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
810 (scan-error nil) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
811 (error (message "Error in sgml-electric-pair-mode: %s" err)))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
812 |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
813 (defun sgml-electric-tag-pair-flush-overlays () |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
814 (while sgml-electric-tag-pair-overlays |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
815 (delete-overlay (pop sgml-electric-tag-pair-overlays)))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
816 |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
817 (define-minor-mode sgml-electric-tag-pair-mode |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
818 "Automatically update the closing tag when editing the opening one." |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
819 :lighter "/e" |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
820 (if sgml-electric-tag-pair-mode |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
821 (progn |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
822 (add-hook 'before-change-functions |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
823 'sgml-electric-tag-pair-before-change-function |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
824 nil t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
825 (unless sgml-electric-tag-pair-timer |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
826 (setq sgml-electric-tag-pair-timer |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
827 (run-with-idle-timer 5 'repeat 'sgml-electric-tag-pair-flush-overlays)))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
828 (remove-hook 'before-change-functions |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
829 'sgml-electric-tag-pair-before-change-function |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
830 t) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
831 ;; We leave the timer running for other buffers. |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
832 )) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
833 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
834 |
48109
2c2ce75616ef
(sgml-skip-tag-backward, sgml-skip-tag-forward):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47933
diff
changeset
|
835 (defun sgml-skip-tag-forward (arg) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
836 "Skip to end of tag or matching closing tag if present. |
17551 | 837 With prefix argument ARG, repeat this ARG times. |
78482
80e300a489d6
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78225
diff
changeset
|
838 Return t if after a closing tag." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
839 (interactive "p") |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
840 ;; FIXME: Use sgml-get-context or something similar. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
841 ;; It currently might jump to an unrelated </P> if the <P> |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
842 ;; we're skipping has no matching </P>. |
48109
2c2ce75616ef
(sgml-skip-tag-backward, sgml-skip-tag-forward):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47933
diff
changeset
|
843 (let ((return t)) |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
844 (with-syntax-table sgml-tag-syntax-table |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
845 (while (>= arg 1) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
846 (skip-chars-forward "^<>") |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
847 (if (eq (following-char) ?>) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
848 (up-list -1)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
849 (if (looking-at "<\\([^/ \n\t>]+\\)\\([^>]*[^/>]\\)?>") |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
850 ;; start tag, skip any nested same pairs _and_ closing tag |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
851 (let ((case-fold-search t) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
852 (re (concat "</?" (regexp-quote (match-string 1)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
853 ;; Ignore empty tags like <foo/>. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
854 "\\([^>]*[^/>]\\)?>")) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
855 point close) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
856 (forward-list 1) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
857 (setq point (point)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
858 ;; FIXME: This re-search-forward will mistakenly match |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
859 ;; tag-like text inside attributes. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
860 (while (and (re-search-forward re nil t) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
861 (not (setq close |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
862 (eq (char-after (1+ (match-beginning 0))) ?/))) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
863 (goto-char (match-beginning 0)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
864 (sgml-skip-tag-forward 1)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
865 (setq close nil)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
866 (unless close |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
867 (goto-char point) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
868 (setq return nil))) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
869 (forward-list 1)) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
870 (setq arg (1- arg))) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
871 return))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
872 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
873 (defun sgml-delete-tag (arg) |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
874 ;; FIXME: Should be called sgml-kill-tag or should not touch the kill-ring. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
875 "Delete tag on or after cursor, and matching closing or opening tag. |
17551 | 876 With prefix argument ARG, repeat this ARG times." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
877 (interactive "p") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
878 (while (>= arg 1) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
879 (save-excursion |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
880 (let* (close open) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
881 (if (looking-at "[ \t\n]*<") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
882 ;; just before tag |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
883 (if (eq (char-after (match-end 0)) ?/) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
884 ;; closing tag |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
885 (progn |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
886 (setq close (point)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
887 (goto-char (match-end 0)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
888 ;; on tag? |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
889 (or (save-excursion (setq close (sgml-beginning-of-tag) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
890 close (and (stringp close) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
891 (eq (aref close 0) ?/) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
892 (point)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
893 ;; not on closing tag |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
894 (let ((point (point))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
895 (sgml-skip-tag-backward 1) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
896 (if (or (not (eq (following-char) ?<)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
897 (save-excursion |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
898 (forward-list 1) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
899 (<= (point) point))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
900 (error "Not on or before tag"))))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
901 (if close |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
902 (progn |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
903 (sgml-skip-tag-backward 1) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
904 (setq open (point)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
905 (goto-char close) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
906 (kill-sexp 1)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
907 (setq open (point)) |
60521 | 908 (when (and (sgml-skip-tag-forward 1) |
909 (not (looking-back "/>"))) | |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
910 (kill-sexp -1))) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
911 ;; Delete any resulting empty line. If we didn't kill-sexp, |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
912 ;; this *should* do nothing, because we're right after the tag. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
913 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?")) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
914 (delete-region (match-beginning 0) (match-end 0))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
915 (goto-char open) |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
916 (kill-sexp 1) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
917 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?")) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
918 (delete-region (match-beginning 0) (match-end 0))))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
919 (setq arg (1- arg)))) |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
920 |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
921 |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
922 ;; Put read-only last to enable setting this even when read-only enabled. |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
923 (or (get 'sgml-tag 'invisible) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
924 (setplist 'sgml-tag |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
925 (append '(invisible t |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
926 point-entered sgml-point-entered |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
927 rear-nonsticky t |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
928 read-only t) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
929 (symbol-plist 'sgml-tag)))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
930 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
931 (defun sgml-tags-invisible (arg) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
932 "Toggle visibility of existing tags." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
933 (interactive "P") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
934 (let ((modified (buffer-modified-p)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
935 (inhibit-read-only t) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
936 (inhibit-modification-hooks t) |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
937 ;; Avoid spurious the `file-locked' checks. |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
938 (buffer-file-name nil) |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
939 ;; This is needed in case font lock gets called, |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
940 ;; since it moves point and might call sgml-point-entered. |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
941 ;; How could it get called? -stef |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
942 (inhibit-point-motion-hooks t) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
943 string) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
944 (unwind-protect |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
945 (save-excursion |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
946 (goto-char (point-min)) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
947 (if (set (make-local-variable 'sgml-tags-invisible) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
948 (if arg |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
949 (>= (prefix-numeric-value arg) 0) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
950 (not sgml-tags-invisible))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
951 (while (re-search-forward sgml-tag-name-re nil t) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
952 (setq string |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
953 (cdr (assq (intern-soft (downcase (match-string 1))) |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
954 sgml-display-text))) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
955 (goto-char (match-beginning 0)) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
956 (and (stringp string) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
957 (not (overlays-at (point))) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
958 (let ((ol (make-overlay (point) (match-beginning 1)))) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
959 (overlay-put ol 'before-string string) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
960 (overlay-put ol 'sgml-tag t))) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
961 (put-text-property (point) |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
962 (progn (forward-list) (point)) |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
963 'category 'sgml-tag)) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
964 (let ((pos (point-min))) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
965 (while (< (setq pos (next-overlay-change pos)) (point-max)) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
966 (dolist (ol (overlays-at pos)) |
40393
591afd36f0b3
(sgml-tags-invisible): Typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40392
diff
changeset
|
967 (if (overlay-get ol 'sgml-tag) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
968 (delete-overlay ol))))) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
969 (remove-text-properties (point-min) (point-max) '(category nil)))) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
970 (restore-buffer-modified-p modified)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
971 (run-hooks 'sgml-tags-invisible-hook) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
972 (message ""))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
973 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
974 (defun sgml-point-entered (x y) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
975 ;; Show preceding or following hidden tag, depending of cursor direction. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
976 (let ((inhibit-point-motion-hooks t)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
977 (save-excursion |
77825
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
978 (condition-case nil |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
979 (message "Invisible tag: %s" |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
980 ;; Strip properties, otherwise, the text is invisible. |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
981 (buffer-substring-no-properties |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
982 (point) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
983 (if (or (and (> x y) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
984 (not (eq (following-char) ?<))) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
985 (and (< x y) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
986 (eq (preceding-char) ?>))) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
987 (backward-list) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
988 (forward-list)))) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
989 (error nil))))) |
72e7efdd6433
(sgml-point-entered): Use condition-case.
Chong Yidong <cyd@stupidchicken.com>
parents:
76104
diff
changeset
|
990 |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
991 |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
992 |
809 | 993 (defun sgml-validate (command) |
994 "Validate an SGML document. | |
995 Runs COMMAND, a shell command, in a separate process asynchronously | |
17551 | 996 with output going to the buffer `*compilation*'. |
809 | 997 You can then use the command \\[next-error] to find the next error message |
998 and move to the line in the SGML document that caused it." | |
999 (interactive | |
1000 (list (read-string "Validate command: " | |
1001 (or sgml-saved-validate-command | |
1002 (concat sgml-validate-command | |
1003 " " | |
76104
33363c78b671
(sgml-validate): Quote the file name with shell-quote-argument.
Eli Zaretskii <eliz@gnu.org>
parents:
75347
diff
changeset
|
1004 (shell-quote-argument |
33363c78b671
(sgml-validate): Quote the file name with shell-quote-argument.
Eli Zaretskii <eliz@gnu.org>
parents:
75347
diff
changeset
|
1005 (let ((name (buffer-file-name))) |
33363c78b671
(sgml-validate): Quote the file name with shell-quote-argument.
Eli Zaretskii <eliz@gnu.org>
parents:
75347
diff
changeset
|
1006 (and name |
33363c78b671
(sgml-validate): Quote the file name with shell-quote-argument.
Eli Zaretskii <eliz@gnu.org>
parents:
75347
diff
changeset
|
1007 (file-name-nondirectory name))))))))) |
809 | 1008 (setq sgml-saved-validate-command command) |
23970
d1d08f461c9c
(sgml-validate): Ask whether to save only
Richard M. Stallman <rms@gnu.org>
parents:
23869
diff
changeset
|
1009 (save-some-buffers (not compilation-ask-about-save) nil) |
65133
265f46863d5b
(sgml-validate): Use `compilation-start'
Romain Francoise <romain@orebokech.com>
parents:
64993
diff
changeset
|
1010 (compilation-start command)) |
809 | 1011 |
44619
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1012 (defsubst sgml-at-indentation-p () |
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1013 "Return true if point is at the first non-whitespace character on the line." |
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1014 (save-excursion |
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1015 (skip-chars-backward " \t") |
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1016 (bolp))) |
504c3192243a
(sgml-at-indentation-p): Move to fix compilation error.
Mike Williams <mdub@bigfoot.com>
parents:
44582
diff
changeset
|
1017 |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1018 (defun sgml-lexical-context (&optional limit) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1019 "Return the lexical context at point as (TYPE . START). |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1020 START is the location of the start of the lexical element. |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1021 TYPE is one of `string', `comment', `tag', `cdata', `pi', or `text'. |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1022 |
44460
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1023 Optional argument LIMIT is the position to start parsing from. |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1024 If nil, start from a preceding tag at indentation." |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1025 (save-excursion |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1026 (let ((pos (point)) |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1027 text-start state) |
44460
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1028 (if limit |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1029 (goto-char limit) |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1030 ;; Skip tags backwards until we find one at indentation |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1031 (while (and (ignore-errors (sgml-parse-tag-backward)) |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1032 (not (sgml-at-indentation-p))))) |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1033 (with-syntax-table sgml-tag-syntax-table |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1034 (while (< (point) pos) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1035 ;; When entering this loop we're inside text. |
44335
1a7be1d554f5
(sgml-looking-back-at): Short-circuit at beg of buffer.
Mike Williams <mdub@bigfoot.com>
parents:
44333
diff
changeset
|
1036 (setq text-start (point)) |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1037 (skip-chars-forward "^<" pos) |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1038 (setq state |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1039 (cond |
44443
9e6f2afa9f19
(sgml-comment-indent-new-line): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44388
diff
changeset
|
1040 ((= (point) pos) |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1041 ;; We got to the end without seeing a tag. |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1042 nil) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1043 ((looking-at "<!\\[[A-Z]+\\[") |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1044 ;; We've found a CDATA section or similar. |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1045 (let ((cdata-start (point))) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1046 (unless (search-forward "]]>" pos 'move) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1047 (list 0 nil nil 'cdata nil nil nil nil cdata-start)))) |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1048 ((and sgml-xml-mode (looking-at "<\\?")) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1049 ;; Processing Instructions. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1050 ;; In SGML, it's basically a normal tag of the form |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1051 ;; <?NAME ...> but in XML, it takes the form <? ... ?>. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1052 (let ((pi-start (point))) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1053 (unless (search-forward "?>" pos 'move) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1054 (list 0 nil nil 'pi nil nil nil nil pi-start)))) |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1055 (t |
44502
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1056 ;; We've reached a tag. Parse it. |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1057 ;; FIXME: Handle net-enabling start-tags |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1058 (parse-partial-sexp (point) pos 0)))))) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1059 (cond |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1060 ((memq (nth 3 state) '(cdata pi)) (cons (nth 3 state) (nth 8 state))) |
44387
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1061 ((nth 3 state) (cons 'string (nth 8 state))) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1062 ((nth 4 state) (cons 'comment (nth 8 state))) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1063 ((and state (> (nth 0 state) 0)) (cons 'tag (nth 1 state))) |
a8edf3f6811d
(sgml-lexical-context): Fix up CDATA detection for boundary cases.
Mike Williams <mdub@bigfoot.com>
parents:
44362
diff
changeset
|
1064 (t (cons 'text text-start)))))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1065 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1066 (defun sgml-beginning-of-tag (&optional top-level) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1067 "Skip to beginning of tag and return its name. |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1068 If this can't be done, return nil." |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1069 (let ((context (sgml-lexical-context))) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1070 (if (eq (car context) 'tag) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1071 (progn |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1072 (goto-char (cdr context)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1073 (when (looking-at sgml-tag-name-re) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1074 (match-string-no-properties 1))) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1075 (if top-level nil |
44244
31f1fc31fd45
(sgml-lexical-context): Return (text . START)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44241
diff
changeset
|
1076 (when (not (eq (car context) 'text)) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1077 (goto-char (cdr context)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1078 (sgml-beginning-of-tag t)))))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1079 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1080 (defun sgml-value (alist) |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1081 "Interactively insert value taken from attribute-rule ALIST. |
40343
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1082 See `sgml-tag-alist' for info about attribute rules." |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1083 (setq alist (cdr alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1084 (if (stringp (car alist)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1085 (insert "=\"" (car alist) ?\") |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1086 (if (and (eq (car alist) t) (not sgml-xml-mode)) |
40343
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1087 (when (cdr alist) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1088 (insert "=\"") |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1089 (setq alist (skeleton-read '(completing-read "Value: " (cdr alist)))) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1090 (if (string< "" alist) |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1091 (insert alist ?\") |
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1092 (delete-backward-char 2))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1093 (insert "=\"") |
80889
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
1094 (if (cdr alist) |
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
1095 (insert (skeleton-read '(completing-read "Value: " alist))) |
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
1096 (when (null alist) |
8938fa90afdb
(sgml-value): Fix handling of attributes which can take any number of values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80876
diff
changeset
|
1097 (insert (skeleton-read '(read-string "Value: "))))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1098 (insert ?\")))) |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1099 |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1100 (defun sgml-quote (start end &optional unquotep) |
46352
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1101 "Quote SGML text in region START ... END. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1102 Only &, < and > are quoted, the rest is left untouched. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1103 With prefix argument UNQUOTEP, unquote the region." |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1104 (interactive "r\nP") |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1105 (save-restriction |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1106 (narrow-to-region start end) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1107 (goto-char (point-min)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1108 (if unquotep |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1109 ;; FIXME: We should unquote other named character references as well. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1110 (while (re-search-forward |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1111 "\\(&\\(amp\\|\\(l\\|\\(g\\)\\)t\\)\\)[][<>&;\n\t \"%!'(),/=?]" |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1112 nil t) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1113 (replace-match (if (match-end 4) ">" (if (match-end 3) "<" "&")) t t |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1114 nil (if (eq (char-before (match-end 0)) ?\;) 0 1))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1115 (while (re-search-forward "[&<>]" nil t) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1116 (replace-match (cdr (assq (char-before) '((?& . "&") |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1117 (?< . "<") |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1118 (?> . ">")))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1119 t t))))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1120 |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1121 (defun sgml-pretty-print (beg end) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1122 "Simple-minded pretty printer for SGML. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1123 Re-indents the code and inserts newlines between BEG and END. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1124 You might want to turn on `auto-fill-mode' to get better results." |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1125 ;; TODO: |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1126 ;; - insert newline between some start-tag and text. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1127 ;; - don't insert newline in front of some end-tags. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1128 (interactive "r") |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1129 (save-excursion |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1130 (if (< beg end) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1131 (goto-char beg) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1132 (goto-char end) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1133 (setq end beg) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1134 (setq beg (point))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1135 ;; Don't use narrowing because it screws up auto-indent. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1136 (setq end (copy-marker end t)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1137 (with-syntax-table sgml-tag-syntax-table |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1138 (while (re-search-forward "<" end t) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1139 (goto-char (match-beginning 0)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1140 (unless (or ;;(looking-at "</") |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1141 (progn (skip-chars-backward " \t") (bolp))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1142 (reindent-then-newline-and-indent)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1143 (forward-sexp 1))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1144 ;; (indent-region beg end) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1145 )) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1146 |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1147 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1148 ;; Parsing |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1149 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1150 (defstruct (sgml-tag |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1151 (:constructor sgml-make-tag (type start end name))) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1152 type start end name) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1153 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1154 (defsubst sgml-parse-tag-name () |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1155 "Skip past a tag-name, and return the name." |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1156 (buffer-substring-no-properties |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1157 (point) (progn (skip-syntax-forward "w_") (point)))) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1158 |
44460
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1159 (defsubst sgml-looking-back-at (str) |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1160 "Return t if the test before point matches STR." |
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1161 (let ((start (- (point) (length str)))) |
44335
1a7be1d554f5
(sgml-looking-back-at): Short-circuit at beg of buffer.
Mike Williams <mdub@bigfoot.com>
parents:
44333
diff
changeset
|
1162 (and (>= start (point-min)) |
44460
45c30120001e
(sgml-lexical-context): Use sgml-parse-tag-backward to find start point.
Mike Williams <mdub@bigfoot.com>
parents:
44459
diff
changeset
|
1163 (equal str (buffer-substring-no-properties start (point)))))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1164 |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1165 (defun sgml-tag-text-p (start end) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1166 "Return non-nil if text between START and END is a tag. |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1167 Checks among other things that the tag does not contain spurious |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1168 unquoted < or > chars inside, which would indicate that it |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1169 really isn't a tag after all." |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1170 (save-excursion |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1171 (with-syntax-table sgml-tag-syntax-table |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1172 (let ((pps (parse-partial-sexp start end 2))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1173 (and (= (nth 0 pps) 0)))))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1174 |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1175 (defun sgml-parse-tag-backward (&optional limit) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1176 "Parse an SGML tag backward, and return information about the tag. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1177 Assume that parsing starts from within a textual context. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1178 Leave point at the beginning of the tag." |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1179 (catch 'found |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1180 (let (tag-type tag-start tag-end name) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1181 (or (re-search-backward "[<>]" limit 'move) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1182 (error "No tag found")) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1183 (when (eq (char-after) ?<) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1184 ;; Oops!! Looks like we were not in a textual context after all!. |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1185 ;; Let's try to recover. |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1186 ;; Remember the tag-start so we don't need to look for it later. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1187 ;; This is not just an optimization but also makes sure we don't get |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1188 ;; stuck in infloops in cases where "looking back for <" would not go |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1189 ;; back far enough. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1190 (setq tag-start (point)) |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1191 (with-syntax-table sgml-tag-syntax-table |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1192 (let ((pos (point))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1193 (condition-case nil |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1194 ;; FIXME: This does not correctly skip over PI an CDATA tags. |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1195 (forward-sexp) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1196 (scan-error |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1197 ;; This < seems to be just a spurious one, let's ignore it. |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1198 (goto-char pos) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1199 (throw 'found (sgml-parse-tag-backward limit)))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1200 ;; Check it is really a tag, without any extra < or > inside. |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1201 (unless (sgml-tag-text-p pos (point)) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1202 (goto-char pos) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1203 (throw 'found (sgml-parse-tag-backward limit))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1204 (forward-char -1)))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1205 (setq tag-end (1+ (point))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1206 (cond |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1207 ((sgml-looking-back-at "--") ; comment |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1208 (setq tag-type 'comment |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1209 tag-start (or tag-start (search-backward "<!--" nil t)))) |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1210 ((sgml-looking-back-at "]]") ; cdata |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1211 (setq tag-type 'cdata |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1212 tag-start (or tag-start |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1213 (re-search-backward "<!\\[[A-Z]+\\[" nil t)))) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1214 ((sgml-looking-back-at "?") ; XML processing-instruction |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1215 (setq tag-type 'pi |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1216 ;; IIUC: SGML processing instructions take the form <?foo ...> |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1217 ;; i.e. a "normal" tag, handled below. In XML this is changed |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1218 ;; to <?foo ... ?> where "..." can contain < and > and even <? |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1219 ;; but not ?>. This means that when parsing backward, there's |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1220 ;; no easy way to make sure that we find the real beginning of |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1221 ;; the PI. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1222 tag-start (or tag-start (search-backward "<?" nil t)))) |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1223 (t |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1224 (unless tag-start |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1225 (setq tag-start |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1226 (with-syntax-table sgml-tag-syntax-table |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1227 (goto-char tag-end) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1228 (condition-case nil |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1229 (backward-sexp) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1230 (scan-error |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1231 ;; This > isn't really the end of a tag. Skip it. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1232 (goto-char (1- tag-end)) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1233 (throw 'found (sgml-parse-tag-backward limit)))) |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1234 (point)))) |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1235 (goto-char (1+ tag-start)) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1236 (case (char-after) |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1237 (?! (setq tag-type 'decl)) ; declaration |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1238 (?? (setq tag-type 'pi)) ; processing-instruction |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1239 (?% (setq tag-type 'jsp)) ; JSP tags |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1240 (?/ ; close-tag |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1241 (forward-char 1) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1242 (setq tag-type 'close |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1243 name (sgml-parse-tag-name))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1244 (t ; open or empty tag |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1245 (setq tag-type 'open |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1246 name (sgml-parse-tag-name)) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1247 (if (or (eq ?/ (char-before (- tag-end 1))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1248 (sgml-empty-tag-p name)) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1249 (setq tag-type 'empty)))))) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1250 (goto-char tag-start) |
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
1251 (sgml-make-tag tag-type tag-start tag-end name)))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1252 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1253 (defun sgml-get-context (&optional until) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1254 "Determine the context of the current position. |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1255 By default, parse until we find a start-tag as the first thing on a line. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1256 If UNTIL is `empty', return even if the context is empty (i.e. |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1257 we just skipped over some element and got to a beginning of line). |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1258 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1259 The context is a list of tag-info structures. The last one is the tag |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1260 immediately enclosing the current position. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1261 |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1262 Point is assumed to be outside of any tag. If we discover that it's |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1263 not the case, the first tag returned is the one inside which we are." |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1264 (let ((here (point)) |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1265 (stack nil) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1266 (ignore nil) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1267 (context nil) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1268 tag-info) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1269 ;; CONTEXT keeps track of the tag-stack |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1270 ;; STACK keeps track of the end tags we've seen (and thus the start-tags |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1271 ;; we'll have to ignore) when skipping over matching open..close pairs. |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1272 ;; IGNORE is a list of tags that can be ignored because they have been |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1273 ;; closed implicitly. |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1274 (skip-chars-backward " \t\n") ; Make sure we're not at indentation. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1275 (while |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1276 (and (not (eq until 'now)) |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1277 (or stack |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1278 (not (if until (eq until 'empty) context)) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1279 (not (sgml-at-indentation-p)) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1280 (and context |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1281 (/= (point) (sgml-tag-start (car context))) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1282 (sgml-unclosed-tag-p (sgml-tag-name (car context))))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1283 (setq tag-info (ignore-errors (sgml-parse-tag-backward)))) |
47933
b5ddbda34d8e
(sgml-close-tag, html-imenu-index): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47679
diff
changeset
|
1284 |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1285 ;; This tag may enclose things we thought were tags. If so, |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1286 ;; discard them. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1287 (while (and context |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1288 (> (sgml-tag-end tag-info) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1289 (sgml-tag-end (car context)))) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1290 (setq context (cdr context))) |
47933
b5ddbda34d8e
(sgml-close-tag, html-imenu-index): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47679
diff
changeset
|
1291 |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1292 (cond |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1293 ((> (sgml-tag-end tag-info) here) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1294 ;; Oops!! Looks like we were not outside of any tag, after all. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1295 (push tag-info context) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1296 (setq until 'now)) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1297 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1298 ;; start-tag |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1299 ((eq (sgml-tag-type tag-info) 'open) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1300 (cond |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1301 ((null stack) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1302 (if (assoc-string (sgml-tag-name tag-info) ignore t) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1303 ;; There was an implicit end-tag. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1304 nil |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1305 (push tag-info context) |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1306 ;; We're changing context so the tags implicitly closed inside |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1307 ;; the previous context aren't implicitly closed here any more. |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1308 ;; [ Well, actually it depends, but we don't have the info about |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1309 ;; when it doesn't and when it does. --Stef ] |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1310 (setq ignore nil))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1311 ((eq t (compare-strings (sgml-tag-name tag-info) nil nil |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1312 (car stack) nil nil t)) |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1313 (setq stack (cdr stack))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1314 (t |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1315 ;; The open and close tags don't match. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1316 (if (not sgml-xml-mode) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1317 (unless (sgml-unclosed-tag-p (sgml-tag-name tag-info)) |
46352
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1318 (message "Unclosed tag <%s>" (sgml-tag-name tag-info)) |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1319 (let ((tmp stack)) |
46352
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1320 ;; We could just assume that the tag is simply not closed |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1321 ;; but it's a bad assumption when tags *are* closed but |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1322 ;; not properly nested. |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1323 (while (and (cdr tmp) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1324 (not (eq t (compare-strings |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1325 (sgml-tag-name tag-info) nil nil |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1326 (cadr tmp) nil nil t)))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1327 (setq tmp (cdr tmp))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1328 (if (cdr tmp) (setcdr tmp (cddr tmp))))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1329 (message "Unmatched tags <%s> and </%s>" |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1330 (sgml-tag-name tag-info) (pop stack))))) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59519
diff
changeset
|
1331 |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1332 (if (and (null stack) (sgml-unclosed-tag-p (sgml-tag-name tag-info))) |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1333 ;; This is a top-level open of an implicitly closed tag, so any |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1334 ;; occurrence of such an open tag at the same level can be ignored |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1335 ;; because it's been implicitly closed. |
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1336 (push (sgml-tag-name tag-info) ignore))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1337 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1338 ;; end-tag |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1339 ((eq (sgml-tag-type tag-info) 'close) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1340 (if (sgml-empty-tag-p (sgml-tag-name tag-info)) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1341 (message "Spurious </%s>: empty tag" (sgml-tag-name tag-info)) |
59519
e51199adcfb0
(sgml-fill-nobreak): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58122
diff
changeset
|
1342 (push (sgml-tag-name tag-info) stack))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1343 )) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1344 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1345 ;; return context |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1346 context)) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1347 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1348 (defun sgml-show-context (&optional full) |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1349 "Display the current context. |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1350 If FULL is non-nil, parse back to the beginning of the buffer." |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1351 (interactive "P") |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1352 (with-output-to-temp-buffer "*XML Context*" |
46352
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1353 (save-excursion |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1354 (let ((context (sgml-get-context))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1355 (when full |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1356 (let ((more nil)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1357 (while (setq more (sgml-get-context)) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1358 (setq context (nconc more context))))) |
66fb3c24b4ba
(sgml-quote): Use narrowing. Improve the regexp used when unquoting.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45557
diff
changeset
|
1359 (pp context))))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1360 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1361 |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1362 ;; Editing shortcuts |
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1363 |
44333
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1364 (defun sgml-close-tag () |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1365 "Close current element. |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1366 Depending on context, inserts a matching close-tag, or closes |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1367 the current start-tag or the current comment or the current cdata, ..." |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1368 (interactive) |
44333
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1369 (case (car (sgml-lexical-context)) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1370 (comment (insert " -->")) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1371 (cdata (insert "]]>")) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1372 (pi (insert " ?>")) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1373 (jsp (insert " %>")) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1374 (tag (insert " />")) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1375 (text |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1376 (let ((context (save-excursion (sgml-get-context)))) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1377 (if context |
44502
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1378 (progn |
44333
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1379 (insert "</" (sgml-tag-name (car (last context))) ">") |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1380 (indent-according-to-mode))))) |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1381 (otherwise |
efbd9e76f0a4
(sgml-close-tag): Rename from
Mike Williams <mdub@bigfoot.com>
parents:
44330
diff
changeset
|
1382 (error "Nothing to close")))) |
44330
96c839b7b4c2
(sgml-at-indentation-p, sgml-tag)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44293
diff
changeset
|
1383 |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1384 (defun sgml-empty-tag-p (tag-name) |
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1385 "Return non-nil if TAG-NAME is an implicitly empty tag." |
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1386 (and (not sgml-xml-mode) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1387 (assoc-string tag-name sgml-empty-tags 'ignore-case))) |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1388 |
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1389 (defun sgml-unclosed-tag-p (tag-name) |
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1390 "Return non-nil if TAG-NAME is a tag for which an end-tag is optional." |
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1391 (and (not sgml-xml-mode) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1392 (assoc-string tag-name sgml-unclosed-tags 'ignore-case))) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1393 |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1394 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1395 (defun sgml-calculate-indent (&optional lcon) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1396 "Calculate the column to which this line should be indented. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1397 LCON is the lexical context, if any." |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1398 (unless lcon (setq lcon (sgml-lexical-context))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1399 |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1400 ;; Indent comment-start markers inside <!-- just like comment-end markers. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1401 (if (and (eq (car lcon) 'tag) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1402 (looking-at "--") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1403 (save-excursion (goto-char (cdr lcon)) (looking-at "<!--"))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1404 (setq lcon (cons 'comment (+ (cdr lcon) 2)))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1405 |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1406 (case (car lcon) |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1407 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1408 (string |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1409 ;; Go back to previous non-empty line. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1410 (while (and (> (point) (cdr lcon)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1411 (zerop (forward-line -1)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1412 (looking-at "[ \t]*$"))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1413 (if (> (point) (cdr lcon)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1414 ;; Previous line is inside the string. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1415 (current-indentation) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1416 (goto-char (cdr lcon)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1417 (1+ (current-column)))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1418 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1419 (comment |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1420 (let ((mark (looking-at "--"))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1421 ;; Go back to previous non-empty line. |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1422 (while (and (> (point) (cdr lcon)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1423 (zerop (forward-line -1)) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1424 (or (looking-at "[ \t]*$") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1425 (if mark (not (looking-at "[ \t]*--")))))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1426 (if (> (point) (cdr lcon)) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1427 ;; Previous line is inside the comment. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1428 (skip-chars-forward " \t") |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1429 (goto-char (cdr lcon)) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1430 ;; Skip `<!' to get to the `--' with which we want to align. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1431 (search-forward "--") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1432 (goto-char (match-beginning 0))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1433 (when (and (not mark) (looking-at "--")) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1434 (forward-char 2) (skip-chars-forward " \t")) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1435 (current-column))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1436 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1437 ;; We don't know how to indent it. Let's be honest about it. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1438 (cdata nil) |
80876
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1439 ;; We don't know how to indent it. Let's be honest about it. |
f46158b1c8bc
(sgml-lexical-context): Add handling of XML style Processing Instructions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76104
diff
changeset
|
1440 (pi nil) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1441 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1442 (tag |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1443 (goto-char (1+ (cdr lcon))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1444 (skip-chars-forward "^ \t\n") ;Skip tag name. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1445 (skip-chars-forward " \t") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1446 (if (not (eolp)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1447 (current-column) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1448 ;; This is the first attribute: indent. |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1449 (goto-char (1+ (cdr lcon))) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1450 (+ (current-column) sgml-basic-offset))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1451 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1452 (text |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1453 (while (looking-at "</") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1454 (forward-sexp 1) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1455 (skip-chars-forward " \t")) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1456 (let* ((here (point)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1457 (unclosed (and ;; (not sgml-xml-mode) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1458 (looking-at sgml-tag-name-re) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1459 (assoc-string (match-string 1) |
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1460 sgml-unclosed-tags 'ignore-case) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1461 (match-string 1))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1462 (context |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1463 ;; If possible, align on the previous non-empty text line. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1464 ;; Otherwise, do a more serious parsing to find the |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1465 ;; tag(s) relative to which we should be indenting. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1466 (if (and (not unclosed) (skip-chars-backward " \t") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1467 (< (skip-chars-backward " \t\n") 0) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1468 (back-to-indentation) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1469 (> (point) (cdr lcon))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1470 nil |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1471 (goto-char here) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1472 (nreverse (sgml-get-context (if unclosed nil 'empty))))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1473 (there (point))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1474 ;; Ignore previous unclosed start-tag in context. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1475 (while (and context unclosed |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1476 (eq t (compare-strings |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1477 (sgml-tag-name (car context)) nil nil |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1478 unclosed nil nil t))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1479 (setq context (cdr context))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1480 ;; Indent to reflect nesting. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1481 (cond |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1482 ;; If we were not in a text context after all, let's try again. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1483 ((and context (> (sgml-tag-end (car context)) here)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1484 (goto-char here) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1485 (sgml-calculate-indent |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1486 (cons (if (memq (sgml-tag-type (car context)) '(comment cdata)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1487 (sgml-tag-type (car context)) 'tag) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1488 (sgml-tag-start (car context))))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1489 ;; Align on the first element after the nearest open-tag, if any. |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1490 ((and context |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1491 (goto-char (sgml-tag-end (car context))) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1492 (skip-chars-forward " \t\n") |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1493 (< (point) here) (sgml-at-indentation-p)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1494 (current-column)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1495 (t |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1496 (goto-char there) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1497 (+ (current-column) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1498 (* sgml-basic-offset (length context))))))) |
47933
b5ddbda34d8e
(sgml-close-tag, html-imenu-index): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47679
diff
changeset
|
1499 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1500 (otherwise |
63521
0f90f64f45d8
(sgml-calculate-indent, html-tag-help): Fix spellings.
Juanma Barranquero <lekktu@gmail.com>
parents:
63226
diff
changeset
|
1501 (error "Unrecognized context %s" (car lcon))) |
44286
1d7ee8515c45
Add an explicit check for 'text syntax, to protect against future
Mike Williams <mdub@bigfoot.com>
parents:
44244
diff
changeset
|
1502 |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1503 )) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1504 |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1505 (defun sgml-indent-line () |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1506 "Indent the current line as SGML." |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1507 (interactive) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1508 (let* ((savep (point)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1509 (indent-col |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1510 (save-excursion |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1511 (back-to-indentation) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1512 (if (>= (point) savep) (setq savep nil)) |
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1513 (sgml-calculate-indent)))) |
51478
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1514 (if (null indent-col) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1515 'noindent |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1516 (if savep |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1517 (save-excursion (indent-line-to indent-col)) |
cc38ef483a77
(sgml-parse-tag-backward): Try and detect
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50955
diff
changeset
|
1518 (indent-line-to indent-col))))) |
44200
3ea526b58b9e
(sgml-make-syntax-table): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43979
diff
changeset
|
1519 |
44502
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1520 (defun sgml-guess-indent () |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1521 "Guess an appropriate value for `sgml-basic-offset'. |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1522 Base the guessed identation level on the first indented tag in the buffer. |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1523 Add this to `sgml-mode-hook' for convenience." |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1524 (interactive) |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1525 (save-excursion |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1526 (goto-char (point-min)) |
45463
62d5e10140e7
(sgml-guess-indent): Look further into the buffer.
Mike Williams <mdub@bigfoot.com>
parents:
45286
diff
changeset
|
1527 (if (re-search-forward "^\\([ \t]+\\)<" 500 'noerror) |
44502
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1528 (progn |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1529 (set (make-local-variable 'sgml-basic-offset) |
47679
96093793b6b4
(sgml-guess-indent): Handle tabs correctly.
Mike Williams <mdub@bigfoot.com>
parents:
46352
diff
changeset
|
1530 (1- (current-column))) |
44502
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1531 (message "Guessed sgml-basic-offset = %d" |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1532 sgml-basic-offset) |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1533 )))) |
4067d1e7f884
(sgml-guess-indent): New function.
Mike Williams <mdub@bigfoot.com>
parents:
44460
diff
changeset
|
1534 |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1535 (defun sgml-parse-dtd () |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1536 "Simplistic parse of the current buffer as a DTD. |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1537 Currently just returns (EMPTY-TAGS UNCLOSED-TAGS)." |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1538 (goto-char (point-min)) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1539 (let ((empty nil) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1540 (unclosed nil)) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1541 (while (re-search-forward "<!ELEMENT[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+[-O][ \t\n]+\\([-O]\\)[ \t\n]+\\([^ \t\n]+\\)" nil t) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1542 (cond |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1543 ((string= (match-string 3) "EMPTY") |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1544 (push (match-string-no-properties 1) empty)) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1545 ((string= (match-string 2) "O") |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1546 (push (match-string-no-properties 1) unclosed)))) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1547 (setq empty (sort (mapcar 'downcase empty) 'string<)) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1548 (setq unclosed (sort (mapcar 'downcase unclosed) 'string<)) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1549 (list empty unclosed))) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1550 |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1551 ;;; HTML mode |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1552 |
25175 | 1553 (defcustom html-mode-hook nil |
1554 "Hook run by command `html-mode'. | |
1555 `text-mode-hook' and `sgml-mode-hook' are run first." | |
1556 :group 'sgml | |
1557 :type 'hook | |
1558 :options '(html-autoview-mode)) | |
1559 | |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1560 (defvar html-quick-keys sgml-quick-keys |
14377 | 1561 "Use C-c X combinations for quick insertion of frequent tags when non-nil. |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1562 This defaults to `sgml-quick-keys'. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1563 This takes effect when first loading the library.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1564 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1565 (defvar html-mode-map |
37252
5db39c2eba1e
Add unknown maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
36609
diff
changeset
|
1566 (let ((map (make-sparse-keymap)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1567 (menu-map (make-sparse-keymap "HTML"))) |
37252
5db39c2eba1e
Add unknown maintainer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
36609
diff
changeset
|
1568 (set-keymap-parent map sgml-mode-map) |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1569 (define-key map "\C-c6" 'html-headline-6) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1570 (define-key map "\C-c5" 'html-headline-5) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1571 (define-key map "\C-c4" 'html-headline-4) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1572 (define-key map "\C-c3" 'html-headline-3) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1573 (define-key map "\C-c2" 'html-headline-2) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1574 (define-key map "\C-c1" 'html-headline-1) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1575 (define-key map "\C-c\r" 'html-paragraph) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1576 (define-key map "\C-c\n" 'html-line) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1577 (define-key map "\C-c\C-c-" 'html-horizontal-rule) |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1578 (define-key map "\C-c\C-co" 'html-ordered-list) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1579 (define-key map "\C-c\C-cu" 'html-unordered-list) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1580 (define-key map "\C-c\C-cr" 'html-radio-buttons) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1581 (define-key map "\C-c\C-cc" 'html-checkboxes) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1582 (define-key map "\C-c\C-cl" 'html-list-item) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1583 (define-key map "\C-c\C-ch" 'html-href-anchor) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1584 (define-key map "\C-c\C-cn" 'html-name-anchor) |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1585 (define-key map "\C-c\C-ci" 'html-image) |
40343
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1586 (when html-quick-keys |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1587 (define-key map "\C-c-" 'html-horizontal-rule) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1588 (define-key map "\C-co" 'html-ordered-list) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1589 (define-key map "\C-cu" 'html-unordered-list) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1590 (define-key map "\C-cr" 'html-radio-buttons) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1591 (define-key map "\C-cc" 'html-checkboxes) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1592 (define-key map "\C-cl" 'html-list-item) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1593 (define-key map "\C-ch" 'html-href-anchor) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1594 (define-key map "\C-cn" 'html-name-anchor) |
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1595 (define-key map "\C-ci" 'html-image)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1596 (define-key map "\C-c\C-s" 'html-autoview-mode) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1597 (define-key map "\C-c\C-v" 'browse-url-of-buffer) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1598 (define-key map [menu-bar html] (cons "HTML" menu-map)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1599 (define-key menu-map [html-autoview-mode] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1600 '("Toggle Autoviewing" . html-autoview-mode)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1601 (define-key menu-map [browse-url-of-buffer] |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1602 '("View Buffer Contents" . browse-url-of-buffer)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1603 (define-key menu-map [nil] '("--")) |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1604 ;;(define-key menu-map "6" '("Heading 6" . html-headline-6)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1605 ;;(define-key menu-map "5" '("Heading 5" . html-headline-5)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1606 ;;(define-key menu-map "4" '("Heading 4" . html-headline-4)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1607 (define-key menu-map "3" '("Heading 3" . html-headline-3)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1608 (define-key menu-map "2" '("Heading 2" . html-headline-2)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1609 (define-key menu-map "1" '("Heading 1" . html-headline-1)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1610 (define-key menu-map "l" '("Radio Buttons" . html-radio-buttons)) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1611 (define-key menu-map "c" '("Checkboxes" . html-checkboxes)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1612 (define-key menu-map "l" '("List Item" . html-list-item)) |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1613 (define-key menu-map "u" '("Unordered List" . html-unordered-list)) |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
1614 (define-key menu-map "o" '("Ordered List" . html-ordered-list)) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1615 (define-key menu-map "-" '("Horizontal Rule" . html-horizontal-rule)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1616 (define-key menu-map "\n" '("Line Break" . html-line)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1617 (define-key menu-map "\r" '("Paragraph" . html-paragraph)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1618 (define-key menu-map "i" '("Image" . html-image)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1619 (define-key menu-map "h" '("Href Anchor" . html-href-anchor)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1620 (define-key menu-map "n" '("Name Anchor" . html-name-anchor)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1621 map) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1622 "Keymap for commands for use in HTML mode.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1623 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1624 (defvar html-face-tag-alist |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1625 '((bold . "b") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1626 (italic . "i") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1627 (underline . "u") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1628 (modeline . "rev")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1629 "Value of `sgml-face-tag-alist' for HTML mode.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1630 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1631 (defvar html-tag-face-alist |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1632 '(("b" . bold) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1633 ("big" . bold) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1634 ("blink" . highlight) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1635 ("cite" . italic) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1636 ("em" . italic) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1637 ("h1" bold underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1638 ("h2" bold-italic underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1639 ("h3" italic underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1640 ("h4" . underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1641 ("h5" . underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1642 ("h6" . underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1643 ("i" . italic) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1644 ("rev" . modeline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1645 ("s" . underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1646 ("small" . default) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1647 ("strong" . bold) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1648 ("title" bold underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1649 ("tt" . default) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1650 ("u" . underline) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1651 ("var" . italic)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1652 "Value of `sgml-tag-face-alist' for HTML mode.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1653 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1654 (defvar html-display-text |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1655 '((img . "[/]") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1656 (hr . "----------") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1657 (li . "o ")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1658 "Value of `sgml-display-text' for HTML mode.") |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
1659 |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1660 |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1661 ;; should code exactly HTML 3 here when that is finished |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1662 (defvar html-tag-alist |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1663 (let* ((1-7 '(("1") ("2") ("3") ("4") ("5") ("6") ("7"))) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1664 (1-9 `(,@1-7 ("8") ("9"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1665 (align '(("align" ("left") ("center") ("right")))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1666 (valign '(("top") ("middle") ("bottom") ("baseline"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1667 (rel '(("next") ("previous") ("parent") ("subdocument") ("made"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1668 (href '("href" ("ftp:") ("file:") ("finger:") ("gopher:") ("http:") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1669 ("mailto:") ("news:") ("rlogin:") ("telnet:") ("tn3270:") |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1670 ("wais:") ("/cgi-bin/"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1671 (name '("name")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1672 (link `(,href |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1673 ("rel" ,@rel) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1674 ("rev" ,@rel) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1675 ("title"))) |
39616
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
1676 (list '((nil \n ("List item: " "<li>" str |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1677 (if sgml-xml-mode "</li>") \n)))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1678 (cell `(t |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1679 ,@align |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1680 ("valign" ,@valign) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1681 ("colspan" ,@1-9) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1682 ("rowspan" ,@1-9) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1683 ("nowrap" t)))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1684 ;; put ,-expressions first, else byte-compile chokes (as of V19.29) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1685 ;; and like this it's more efficient anyway |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1686 `(("a" ,name ,@link) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1687 ("base" t ,@href) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1688 ("dir" ,@list) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1689 ("font" nil "size" ("-1") ("+1") ("-2") ("+2") ,@1-7) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1690 ("form" (\n _ \n "<input type=\"submit\" value=\"\"" |
60521 | 1691 (if sgml-xml-mode " />" ">")) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1692 ("action" ,@(cdr href)) ("method" ("get") ("post"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1693 ("h1" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1694 ("h2" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1695 ("h3" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1696 ("h4" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1697 ("h5" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1698 ("h6" ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1699 ("hr" t ("size" ,@1-9) ("width") ("noshade" t) ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1700 ("img" t ("align" ,@valign ("texttop") ("absmiddle") ("absbottom")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1701 ("src") ("alt") ("width" "1") ("height" "1") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1702 ("border" "1") ("vspace" "1") ("hspace" "1") ("ismap" t)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1703 ("input" t ("size" ,@1-9) ("maxlength" ,@1-9) ("checked" t) ,name |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1704 ("type" ("text") ("password") ("checkbox") ("radio") |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1705 ("submit") ("reset")) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1706 ("value")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1707 ("link" t ,@link) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1708 ("menu" ,@list) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1709 ("ol" ,@list ("type" ("A") ("a") ("I") ("i") ("1"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1710 ("p" t ,@align) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1711 ("select" (nil \n |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1712 ("Text: " |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1713 "<option>" str (if sgml-xml-mode "</option>") \n)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1714 ,name ("size" ,@1-9) ("multiple" t)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1715 ("table" (nil \n |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1716 ((completing-read "Cell kind: " '(("td") ("th")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1717 nil t "t") |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1718 "<tr><" str ?> _ |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1719 (if sgml-xml-mode (concat "<" str "></tr>")) \n)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1720 ("border" t ,@1-9) ("width" "10") ("cellpadding")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1721 ("td" ,@cell) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1722 ("textarea" ,name ("rows" ,@1-9) ("cols" ,@1-9)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1723 ("th" ,@cell) |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1724 ("ul" ,@list ("type" ("disc") ("circle") ("square"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1725 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1726 ,@sgml-tag-alist |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1727 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1728 ("abbrev") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1729 ("acronym") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1730 ("address") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1731 ("array" (nil \n |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1732 ("Item: " "<item>" str (if sgml-xml-mode "</item>") \n)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1733 "align") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1734 ("au") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1735 ("b") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1736 ("big") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1737 ("blink") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1738 ("blockquote" \n) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1739 ("body" \n ("background" ".gif") ("bgcolor" "#") ("text" "#") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1740 ("link" "#") ("alink" "#") ("vlink" "#")) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1741 ("box" (nil _ "<over>" _ (if sgml-xml-mode "</over>"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1742 ("br" t ("clear" ("left") ("right"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1743 ("caption" ("valign" ("top") ("bottom"))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1744 ("center" \n) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1745 ("cite") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1746 ("code" \n) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1747 ("dd" ,(not sgml-xml-mode)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1748 ("del") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1749 ("dfn") |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1750 ("div") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1751 ("dl" (nil \n |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1752 ( "Term: " |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1753 "<dt>" str (if sgml-xml-mode "</dt>") |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1754 "<dd>" _ (if sgml-xml-mode "</dd>") \n))) |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1755 ("dt" (t _ (if sgml-xml-mode "</dt>") |
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1756 "<dd>" (if sgml-xml-mode "</dd>") \n)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1757 ("em") |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1758 ;("fn" "id" "fn") ; ??? |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1759 ("head" \n) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1760 ("html" (\n |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1761 "<head>\n" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1762 "<title>" (setq str (read-input "Title: ")) "</title>\n" |
24413
e2c5b1571392
(html-tag-alist): Add /head and /body to the "html" template.
Richard M. Stallman <rms@gnu.org>
parents:
23970
diff
changeset
|
1763 "</head>\n" |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1764 "<body>\n<h1>" str "</h1>\n" _ |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1765 "\n<address>\n<a href=\"mailto:" |
14518
5b2bc060c90d
(html-tag-alist): within the <ADDRESS> tag
Richard M. Stallman <rms@gnu.org>
parents:
14377
diff
changeset
|
1766 user-mail-address |
24413
e2c5b1571392
(html-tag-alist): Add /head and /body to the "html" template.
Richard M. Stallman <rms@gnu.org>
parents:
23970
diff
changeset
|
1767 "\">" (user-full-name) "</a>\n</address>\n" |
e2c5b1571392
(html-tag-alist): Add /head and /body to the "html" template.
Richard M. Stallman <rms@gnu.org>
parents:
23970
diff
changeset
|
1768 "</body>" |
e2c5b1571392
(html-tag-alist): Add /head and /body to the "html" template.
Richard M. Stallman <rms@gnu.org>
parents:
23970
diff
changeset
|
1769 )) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1770 ("i") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1771 ("ins") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1772 ("isindex" t ("action") ("prompt")) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1773 ("kbd") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1774 ("lang") |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
1775 ("li" ,(not sgml-xml-mode)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1776 ("math" \n) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1777 ("nobr") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1778 ("option" t ("value") ("label") ("selected" t)) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1779 ("over" t) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1780 ("person") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1781 ("pre" \n) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1782 ("q") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1783 ("rev") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1784 ("s") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1785 ("samp") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1786 ("small") |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1787 ("span" nil |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1788 ("class" |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1789 ("builtin") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1790 ("comment") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1791 ("constant") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1792 ("function-name") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1793 ("keyword") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1794 ("string") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1795 ("type") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1796 ("variable-name") |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1797 ("warning"))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1798 ("strong") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1799 ("sub") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1800 ("sup") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1801 ("title") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1802 ("tr" t) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1803 ("tt") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1804 ("u") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1805 ("var") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1806 ("wbr" t))) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1807 "*Value of `sgml-tag-alist' for HTML mode.") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1808 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1809 (defvar html-tag-help |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1810 `(,@sgml-tag-help |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1811 ("a" . "Anchor of point or link elsewhere") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1812 ("abbrev" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1813 ("acronym" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1814 ("address" . "Formatted mail address") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1815 ("array" . "Math array") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1816 ("au" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1817 ("b" . "Bold face") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1818 ("base" . "Base address for URLs") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1819 ("big" . "Font size") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1820 ("blink" . "Blinking text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1821 ("blockquote" . "Indented quotation") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1822 ("body" . "Document body") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1823 ("box" . "Math fraction") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1824 ("br" . "Line break") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1825 ("caption" . "Table caption") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1826 ("center" . "Centered text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1827 ("changed" . "Change bars") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1828 ("cite" . "Citation of a document") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1829 ("code" . "Formatted source code") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1830 ("dd" . "Definition of term") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1831 ("del" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1832 ("dfn" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1833 ("dir" . "Directory list (obsolete)") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1834 ("dl" . "Definition list") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1835 ("dt" . "Term to be definined") |
63521
0f90f64f45d8
(sgml-calculate-indent, html-tag-help): Fix spellings.
Juanma Barranquero <lekktu@gmail.com>
parents:
63226
diff
changeset
|
1836 ("em" . "Emphasized") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1837 ("embed" . "Embedded data in foreign format") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1838 ("fig" . "Figure") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1839 ("figa" . "Figure anchor") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1840 ("figd" . "Figure description") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1841 ("figt" . "Figure text") |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
1842 ;("fn" . "?") ; ??? |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1843 ("font" . "Font size") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1844 ("form" . "Form with input fields") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1845 ("group" . "Document grouping") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1846 ("h1" . "Most important section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1847 ("h2" . "Important section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1848 ("h3" . "Section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1849 ("h4" . "Minor section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1850 ("h5" . "Unimportant section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1851 ("h6" . "Least important section headline") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1852 ("head" . "Document header") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1853 ("hr" . "Horizontal rule") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1854 ("html" . "HTML Document") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1855 ("i" . "Italic face") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1856 ("img" . "Graphic image") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1857 ("input" . "Form input field") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1858 ("ins" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1859 ("isindex" . "Input field for index search") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1860 ("kbd" . "Keybard example face") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1861 ("lang" . "Natural language") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1862 ("li" . "List item") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1863 ("link" . "Link relationship") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1864 ("math" . "Math formula") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1865 ("menu" . "Menu list (obsolete)") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1866 ("mh" . "Form mail header") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1867 ("nextid" . "Allocate new id") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1868 ("nobr" . "Text without line break") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1869 ("ol" . "Ordered list") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1870 ("option" . "Selection list item") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1871 ("over" . "Math fraction rule") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1872 ("p" . "Paragraph start") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1873 ("panel" . "Floating panel") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1874 ("person" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1875 ("pre" . "Preformatted fixed width text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1876 ("q" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1877 ("rev" . "Reverse video") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1878 ("s" . "?") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1879 ("samp" . "Sample text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1880 ("select" . "Selection list") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1881 ("small" . "Font size") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1882 ("sp" . "Nobreak space") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1883 ("strong" . "Standout text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1884 ("sub" . "Subscript") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1885 ("sup" . "Superscript") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1886 ("table" . "Table with rows and columns") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1887 ("tb" . "Table vertical break") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1888 ("td" . "Table data cell") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1889 ("textarea" . "Form multiline edit area") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1890 ("th" . "Table header cell") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1891 ("title" . "Document title") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1892 ("tr" . "Table row separator") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1893 ("tt" . "Typewriter face") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1894 ("u" . "Underlined text") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1895 ("ul" . "Unordered list") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1896 ("var" . "Math variable face") |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1897 ("wbr" . "Enable <br> within <nobr>")) |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1898 "*Value of `sgml-tag-help' for HTML mode.") |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
1899 |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1900 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1901 ;;;###autoload |
81456
2be88db9aeed
(sgml-xml-guess): Return the result rather than setting sgml-xml-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81097
diff
changeset
|
1902 (define-derived-mode html-mode sgml-mode '(sgml-xml-mode "XHTML" "HTML") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1903 "Major mode based on SGML mode for editing HTML documents. |
23652 | 1904 This allows inserting skeleton constructs used in hypertext documents with |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1905 completion. See below for an introduction to HTML. Use |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1906 \\[browse-url-of-buffer] to see how this comes out. See also `sgml-mode' on |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1907 which this is based. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1908 |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1909 Do \\[describe-variable] html- SPC and \\[describe-variable] sgml- SPC to see available variables. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1910 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1911 To write fairly well formatted pages you only need to know few things. Most |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1912 browsers have a function to read the source code of the page being seen, so |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1913 you can imitate various tricks. Here's a very short HTML primer which you |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1914 can also view with a browser to see what happens: |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1915 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1916 <title>A Title Describing Contents</title> should be on every page. Pages can |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1917 have <h1>Very Major Headlines</h1> through <h6>Very Minor Headlines</h6> |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1918 <hr> Parts can be separated with horizontal rules. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1919 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1920 <p>Paragraphs only need an opening tag. Line breaks and multiple spaces are |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1921 ignored unless the text is <pre>preformatted.</pre> Text can be marked as |
61014
9a8eaf5d664a
(html-mode): Doc update.
Luc Teirlinck <teirllm@auburn.edu>
parents:
60521
diff
changeset
|
1922 <b>bold</b>, <i>italic</i> or <u>underlined</u> using the normal M-o or |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1923 Edit/Text Properties/Face commands. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1924 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1925 Pages can have <a name=\"SOMENAME\">named points</a> and can link other points |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1926 to them with <a href=\"#SOMENAME\">see also somename</a>. In the same way <a |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1927 href=\"URL\">see also URL</a> where URL is a filename relative to current |
17551 | 1928 directory, or absolute as in `http://www.cs.indiana.edu/elisp/w3/docs.html'. |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1929 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1930 Images in many formats can be inlined with <img src=\"URL\">. |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1931 |
17551 | 1932 If you mainly create your own documents, `sgml-specials' might be |
1933 interesting. But note that some HTML 2 browsers can't handle `''. | |
1934 To work around that, do: | |
1935 (eval-after-load \"sgml-mode\" '(aset sgml-char-names ?' nil)) | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1936 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1937 \\{html-mode-map}" |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1938 (set (make-local-variable 'sgml-display-text) html-display-text) |
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1939 (set (make-local-variable 'sgml-tag-face-alist) html-tag-face-alist) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1940 (make-local-variable 'sgml-tag-alist) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1941 (make-local-variable 'sgml-face-tag-alist) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1942 (make-local-variable 'sgml-tag-help) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1943 (make-local-variable 'outline-regexp) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1944 (make-local-variable 'outline-heading-end-regexp) |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1945 (make-local-variable 'outline-level) |
68223
69be9c945c82
Add `coding: iso-2022-7bit' cookie.
Juri Linkov <juri@jurta.org>
parents:
66963
diff
changeset
|
1946 (make-local-variable 'sentence-end-base) |
69be9c945c82
Add `coding: iso-2022-7bit' cookie.
Juri Linkov <juri@jurta.org>
parents:
66963
diff
changeset
|
1947 (setq sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*\\(<[^>]*>\\)*" |
69be9c945c82
Add `coding: iso-2022-7bit' cookie.
Juri Linkov <juri@jurta.org>
parents:
66963
diff
changeset
|
1948 sgml-tag-alist html-tag-alist |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1949 sgml-face-tag-alist html-face-tag-alist |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1950 sgml-tag-help html-tag-help |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1951 outline-regexp "^.*<[Hh][1-6]\\>" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1952 outline-heading-end-regexp "</[Hh][1-6]>" |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1953 outline-level (lambda () |
43692
568974ab1796
Change maintainer to FSF.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43589
diff
changeset
|
1954 (char-before (match-end 0)))) |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1955 (setq imenu-create-index-function 'html-imenu-index) |
40392
e4b72489cdc4
(sgml-empty-tags): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40377
diff
changeset
|
1956 (set (make-local-variable 'sgml-empty-tags) |
44241
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1957 ;; From HTML-4.01's loose.dtd, parsed with `sgml-parse-dtd', |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1958 ;; plus manual addition of "wbr". |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1959 '("area" "base" "basefont" "br" "col" "frame" "hr" "img" "input" |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1960 "isindex" "link" "meta" "param" "wbr")) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1961 (set (make-local-variable 'sgml-unclosed-tags) |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1962 ;; From HTML-4.01's loose.dtd, parsed with `sgml-parse-dtd'. |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1963 '("body" "colgroup" "dd" "dt" "head" "html" "li" "option" |
600b7e53cf18
(sgml-basic-offset): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44200
diff
changeset
|
1964 "p" "tbody" "td" "tfoot" "th" "thead" "tr")) |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1965 ;; It's for the user to decide if it defeats it or not -stef |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1966 ;; (make-local-variable 'imenu-sort-function) |
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
1967 ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose |
40320
66ba1d523634
(sgml-font-lock-keywords-1): Ignore comments.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40176
diff
changeset
|
1968 ) |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
1969 |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1970 (defvar html-imenu-regexp |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1971 "\\s-*<h\\([1-9]\\)[^\n<>]*>\\(<[^\n<>]*>\\)*\\s-*\\([^\n<>]*\\)" |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1972 "*A regular expression matching a head line to be added to the menu. |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1973 The first `match-string' should be a number from 1-9. |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1974 The second `match-string' matches extra tags and is ignored. |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1975 The third `match-string' will be the used in the menu.") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1976 |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1977 (defun html-imenu-index () |
47933
b5ddbda34d8e
(sgml-close-tag, html-imenu-index): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47679
diff
changeset
|
1978 "Return a table of contents for an HTML buffer for use with Imenu." |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1979 (let (toc-index) |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1980 (save-excursion |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1981 (goto-char (point-min)) |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1982 (while (re-search-forward html-imenu-regexp nil t) |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1983 (setq toc-index |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1984 (cons (cons (concat (make-string |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1985 (* 2 (1- (string-to-number (match-string 1)))) |
64058
7e00d33823d3
(sgml): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
63521
diff
changeset
|
1986 ?\s) |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1987 (match-string 3)) |
40343
25129ef47b45
some code simplifications: when instead of if+progn;
Sam Steingold <sds@gnu.org>
parents:
40320
diff
changeset
|
1988 (line-beginning-position)) |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1989 toc-index)))) |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1990 (nreverse toc-index))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
1991 |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1992 (define-minor-mode html-autoview-mode |
25175 | 1993 "Toggle automatic viewing via `browse-url-of-buffer' upon saving buffer. |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1994 With positive prefix ARG always turns viewing on, with negative ARG always off. |
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
1995 Can be used as a value for `html-mode-hook'." |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1996 nil nil nil |
48402
f4682f3c8e03
(html-autoview-mode): Add group.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48262
diff
changeset
|
1997 :group 'sgml |
48262
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1998 (if html-autoview-mode |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
1999 (add-hook 'after-save-hook 'browse-url-of-buffer nil t) |
1ef1bf10c03c
(sgml-namify-char): New cmd.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48109
diff
changeset
|
2000 (remove-hook 'after-save-hook 'browse-url-of-buffer t))) |
44459
25c3c51b0375
(sgml-tag-alist): Doc fix.
Mike Williams <mdub@bigfoot.com>
parents:
44443
diff
changeset
|
2001 |
22629
5d51b13e0d1f
(html-imenu-regexp): New defvar.
Richard M. Stallman <rms@gnu.org>
parents:
22319
diff
changeset
|
2002 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2003 (define-skeleton html-href-anchor |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2004 "HTML anchor tag with href attribute." |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2005 "URL: " |
60521 | 2006 ;; '(setq input "http:") |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2007 "<a href=\"" str "\">" _ "</a>") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2008 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2009 (define-skeleton html-name-anchor |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2010 "HTML anchor tag with name attribute." |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2011 "Name: " |
60521 | 2012 "<a name=\"" str "\"" |
2013 (if sgml-xml-mode (concat " id=\"" str "\"")) | |
2014 ">" _ "</a>") | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2015 |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2016 (define-skeleton html-headline-1 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2017 "HTML level 1 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2018 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2019 "<h1>" _ "</h1>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2020 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2021 (define-skeleton html-headline-2 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2022 "HTML level 2 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2023 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2024 "<h2>" _ "</h2>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2025 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2026 (define-skeleton html-headline-3 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2027 "HTML level 3 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2028 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2029 "<h3>" _ "</h3>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2030 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2031 (define-skeleton html-headline-4 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2032 "HTML level 4 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2033 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2034 "<h4>" _ "</h4>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2035 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2036 (define-skeleton html-headline-5 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2037 "HTML level 5 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2038 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2039 "<h5>" _ "</h5>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2040 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2041 (define-skeleton html-headline-6 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2042 "HTML level 6 headline tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2043 nil |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2044 "<h6>" _ "</h6>") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2045 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2046 (define-skeleton html-horizontal-rule |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2047 "HTML horizontal rule tag." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2048 nil |
60521 | 2049 (if sgml-xml-mode "<hr />" "<hr>") \n) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2050 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2051 (define-skeleton html-image |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2052 "HTML image tag." |
60521 | 2053 "Image URL: " |
2054 "<img src=\"" str "\" alt=\"" _ "\"" | |
2055 (if sgml-xml-mode " />" ">")) | |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2056 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2057 (define-skeleton html-line |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2058 "HTML line break tag." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2059 nil |
60521 | 2060 (if sgml-xml-mode "<br />" "<br>") \n) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2061 |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2062 (define-skeleton html-ordered-list |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2063 "HTML ordered list tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2064 nil |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2065 "<ol>" \n |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
2066 "<li>" _ (if sgml-xml-mode "</li>") \n |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2067 "</ol>") |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2068 |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2069 (define-skeleton html-unordered-list |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2070 "HTML unordered list tags." |
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2071 nil |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2072 "<ul>" \n |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
2073 "<li>" _ (if sgml-xml-mode "</li>") \n |
15437
43b1f8a3af53
(html-list): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
14518
diff
changeset
|
2074 "</ul>") |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2075 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2076 (define-skeleton html-list-item |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2077 "HTML list item tag." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2078 nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2079 (if (bolp) nil '\n) |
43979
6dff5806cdcd
(sgml-xml-mode): Renamed from sgml-xml.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43692
diff
changeset
|
2080 "<li>" _ (if sgml-xml-mode "</li>")) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2081 |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2082 (define-skeleton html-paragraph |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2083 "HTML paragraph tag." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2084 nil |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2085 (if (bolp) nil ?\n) |
60521 | 2086 "<p>" _ (if sgml-xml-mode "</p>")) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2087 |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
2088 (define-skeleton html-checkboxes |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
2089 "Group of connected checkbox inputs." |
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
2090 nil |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2091 '(setq v1 nil |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2092 v2 nil) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2093 ("Value: " |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
2094 "<input type=\"" (identity "checkbox") ; see comment above about identity |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2095 "\" name=\"" (or v1 (setq v1 (skeleton-read "Name: "))) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
2096 "\" value=\"" str ?\" |
39616
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
2097 (when (y-or-n-p "Set \"checked\" attribute? ") |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
2098 (funcall skeleton-transformation-function |
60521 | 2099 (if sgml-xml-mode " checked=\"checked\"" " checked"))) |
2100 (if sgml-xml-mode " />" ">") | |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2101 (skeleton-read "Text: " (capitalize str)) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2102 (or v2 (setq v2 (if (y-or-n-p "Newline after text? ") |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
2103 (funcall skeleton-transformation-function |
60521 | 2104 (if sgml-xml-mode "<br />" "<br>")) |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2105 ""))) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2106 \n)) |
14270
15c3d6255a1c
(sgml-quick-keys): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
2107 |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2108 (define-skeleton html-radio-buttons |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2109 "Group of connected radio button inputs." |
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2110 nil |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2111 '(setq v1 nil |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2112 v2 (cons nil nil)) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2113 ("Value: " |
17545
c67787f92aea
(sgml-value): Use 'identity as default value.
Richard M. Stallman <rms@gnu.org>
parents:
17530
diff
changeset
|
2114 "<input type=\"" (identity "radio") ; see comment above about identity |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2115 "\" name=\"" (or (car v2) (setcar v2 (skeleton-read "Name: "))) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2116 "\" value=\"" str ?\" |
39616
13a1b8cf5135
added `html-xhtml' for XHTML input
Sam Steingold <sds@gnu.org>
parents:
38431
diff
changeset
|
2117 (when (and (not v1) (setq v1 (y-or-n-p "Set \"checked\" attribute? "))) |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
2118 (funcall skeleton-transformation-function |
60521 | 2119 (if sgml-xml-mode " checked=\"checked\"" " checked"))) |
2120 (if sgml-xml-mode " />" ">") | |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2121 (skeleton-read "Text: " (capitalize str)) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2122 (or (cdr v2) (setcdr v2 (if (y-or-n-p "Newline after text? ") |
70823
ca1b3788f58d
(sgml-transformation): Make this the alias for the following variable.
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
68648
diff
changeset
|
2123 (funcall skeleton-transformation-function |
60521 | 2124 (if sgml-xml-mode "<br />" "<br>")) |
17491
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2125 ""))) |
4c6505ca34a7
(sgml-value): Don't perform the skeleton-transformation
Richard M. Stallman <rms@gnu.org>
parents:
17433
diff
changeset
|
2126 \n)) |
14159
93175ed23e01
Also load for .sgm and .dtd files.
Richard M. Stallman <rms@gnu.org>
parents:
12244
diff
changeset
|
2127 |
38068
e3bd229672c1
Move `provide' to the end. Update copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
37252
diff
changeset
|
2128 (provide 'sgml-mode) |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38108
diff
changeset
|
2129 |
58122
1e9ea828c37a
(sgml-tag-text-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57718
diff
changeset
|
2130 ;; arch-tag: 9675da94-b7f9-4bda-ad19-73ed7b4fb401 |
809 | 2131 ;;; sgml-mode.el ends here |