Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-html.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children 4103f0995bd7
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details. 17 ;; General Public License for more details.
18 18
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free 20 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
22 23
23 ;;; Synched up with: FSF 19.30. 24 ;;; Synched up with: FSF 19.30.
24 25
25 ;;; Author: Ben Wing. 26 ;;; Author: Ben Wing.
26 27
27 ;;; Commentary: 28 ;;; Commentary:
28 29
29 ; Parts were taken from html-helper-mode and from code by Alastair Burt. 30 ; Parts were taken from html-helper-mode and from code by Alastair Burt.
30 31
31 ;;; Code: 32 ;;; Code:
33
34 (defvar html-auto-sgml-entity-conversion nil
35 "*Control automatic sgml entity to ISO-8859-1 conversion")
32 36
33 (require 'psgml) 37 (require 'psgml)
34 (require 'derived) 38 (require 'derived)
35 (require 'iso-sgml) 39 (when html-auto-sgml-entity-conversion
40 (require 'iso-sgml))
36 (require 'tempo) ;essential part of html-helper-mode 41 (require 'tempo) ;essential part of html-helper-mode
37 42
38 ;;{{{ user variables 43 ;;{{{ user variables
39 44
40 ;; Set this to be whatever signature you want on the bottom of your pages. 45 ;; Set this to be whatever signature you want on the bottom of your pages.
196 (if (and html-helper-build-new-buffer (zerop (buffer-size))) 201 (if (and html-helper-build-new-buffer (zerop (buffer-size)))
197 (html-helper-insert-new-buffer-strings)) 202 (html-helper-insert-new-buffer-strings))
198 203
199 (set (make-local-variable 'sgml-custom-markup) 204 (set (make-local-variable 'sgml-custom-markup)
200 '(("<A>" "<A HREF=\"\">\r</a>"))) 205 '(("<A>" "<A HREF=\"\">\r</a>")))
206
207 ;; Set up the syntax table.
208 (modify-syntax-entry ?< "(>" html-mode-syntax-table)
209 (modify-syntax-entry ?> ")<" html-mode-syntax-table)
210 (modify-syntax-entry ?\" ". " html-mode-syntax-table)
211 (modify-syntax-entry ?\\ ". " html-mode-syntax-table)
212 (modify-syntax-entry ?' "w " html-mode-syntax-table)
213
201 ; sigh ... need to call this now to get things working. 214 ; sigh ... need to call this now to get things working.
202 (sgml-build-custom-menus) 215 (sgml-build-custom-menus)
203 (add-submenu nil sgml-html-menu "SGML") 216 (add-submenu nil sgml-html-menu "SGML")
204 (delete-menu-item '("SGML"))) 217 (delete-menu-item '("SGML")))
205 218