Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 9f59509498e1
children 25f70ba0133c
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
1 ;;; $Id: hm--html.el,v 1.5 1997/03/28 02:28:42 steve Exp $ 1 ;;; $Id: hm--html.el,v 1.6 1997/05/09 03:28:00 steve Exp $
2 ;;; 2 ;;;
3 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 3 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
4 ;;; email: muenkel@tnt.uni-hannover.de 4 ;;; email: muenkel@tnt.uni-hannover.de
5 ;;; 5 ;;;
6 ;;; This program is free software; you can redistribute it and/or modify 6 ;;; This program is free software; you can redistribute it and/or modify
842 (concat "<DIV ALIGN=\"" alignment "\">") 842 (concat "<DIV ALIGN=\"" alignment "\">")
843 'hm--html-insert-end-tag-with-newline 843 'hm--html-insert-end-tag-with-newline
844 "</DIV>")) 844 "</DIV>"))
845 845
846 846
847 (defun hm--html-add-preformated () 847 (defun hm--html-add-preformatted ()
848 "Adds the HTML tags for preformated text at the point in the current buffer." 848 "Adds the HTML tags for preformatted text at the point in the current buffer."
849 (interactive) 849 (interactive)
850 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline 850 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
851 "<PRE>" 851 "<PRE>"
852 'hm--html-insert-end-tag-with-newline 852 'hm--html-insert-end-tag-with-newline
853 "</PRE>")) 853 "</PRE>"))
854 854 (define-obsolete-function-alias
855 855 'hm--html-add-preformated
856 (defun hm--html-add-preformated-to-region () 856 'hm--html-add-preformatted)
857 "Adds the HTML tags for preformated text to the region." 857
858 (defun hm--html-add-preformatted-to-region ()
859 "Adds the HTML tags for preformatted text to the region."
858 (interactive) 860 (interactive)
859 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline 861 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
860 "<PRE>" 862 "<PRE>"
861 'hm--html-insert-end-tag-with-newline 863 'hm--html-insert-end-tag-with-newline
862 "</PRE>")) 864 "</PRE>"))
863 865 (define-obsolete-function-alias
866 'hm--html-add-preformated-to-region
867 'hm--html-add-preformatted-to-region)
864 868
865 (defun hm--html-add-blockquote () 869 (defun hm--html-add-blockquote ()
866 "Adds the HTML tags for blockquote." 870 "Adds the HTML tags for blockquote."
867 (interactive) 871 (interactive)
868 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline 872 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline