Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 1856695b1fa9
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1 ;;; $Id: hm--html.el,v 1.6 1997/05/09 03:28:00 steve Exp $ 1 ;;; $Id: hm--html.el,v 1.7 1997/05/29 23:49:43 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
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-preformatted () 847 (defun hm--html-add-preformatted ()
848 "Adds the HTML tags for preformatted text at the point in the current buffer." 848 "Adds the HTML tags for preformatted text at the current point."
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 (define-obsolete-function-alias 854
855 'hm--html-add-preformated 855 (define-obsolete-function-alias 'hm--html-add-preformated
856 'hm--html-add-preformatted) 856 'hm--html-add-preformatted)
857 857
858 (defun hm--html-add-preformatted-to-region () 858 (defun hm--html-add-preformatted-to-region ()
859 "Adds the HTML tags for preformatted text to the region." 859 "Adds the HTML tags for preformatted text to the region."
860 (interactive) 860 (interactive)
861 (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
862 "<PRE>" 862 "<PRE>"
863 'hm--html-insert-end-tag-with-newline 863 'hm--html-insert-end-tag-with-newline
864 "</PRE>")) 864 "</PRE>"))
865 (define-obsolete-function-alias 865
866 'hm--html-add-preformated-to-region 866 (define-obsolete-function-alias 'hm--html-add-preformated-to-region
867 'hm--html-add-preformatted-to-region) 867 'hm--html-add-preformatted-to-region)
868 868
869 (defun hm--html-add-blockquote () 869 (defun hm--html-add-blockquote ()
870 "Adds the HTML tags for blockquote." 870 "Adds the HTML tags for blockquote."
871 (interactive) 871 (interactive)
1425 (goto-char (point-min)) 1425 (goto-char (point-min))
1426 (let ((case-fold-search t)) 1426 (let ((case-fold-search t))
1427 (if (search-forward "<title>" nil t) 1427 (if (search-forward "<title>" nil t)
1428 (let ((point-after-start-tag (point))) 1428 (let ((point-after-start-tag (point)))
1429 (if (not (search-forward "</title>" nil t)) 1429 (if (not (search-forward "</title>" nil t))
1430 nil 1430 nil
1431 (goto-char (- (point) 8)) 1431 (goto-char (- (point) 8))
1432 (delete-backward-char (- (point) point-after-start-tag)) 1432 (delete-backward-char (- (point) point-after-start-tag))
1433 (let ((start (point))) 1433 (let ((start (point)))
1434 (insert title " (" (hm--date) ")") 1434 (if hm--html-automatic-create-title-date
1435 (insert title " (" (hm--date) ")")
1436 (insert title))
1435 (goto-char start)))) 1437 (goto-char start))))
1436 ;; Noch kein <TITLE> im Buffer vorhanden 1438 ;; Noch kein <TITLE> im Buffer vorhanden
1437 (hm--html-set-point-for-title) 1439 (hm--html-set-point-for-title)
1438 (hm--html-add-tags 'hm--html-insert-start-tag 1440 (hm--html-add-tags 'hm--html-insert-start-tag
1439 "<TITLE>" 1441 "<TITLE>"
1440 'hm--html-insert-end-tag 1442 'hm--html-insert-end-tag
1441 "</TITLE>" 1443 "</TITLE>"
1442 'insert 1444 'insert
1443 (concat title " (" (hm--date) ")")) 1445 (if hm--html-automatic-create-title-date
1446 (concat title " (" (hm--date) ")")
1447 title))
1444 (forward-char 8) 1448 (forward-char 8)
1445 (newline 1) 1449 (newline 1)
1446 )))) 1450 ))))
1447 1451
1448 1452
1456 (if (search-forward "<title>" nil t) 1460 (if (search-forward "<title>" nil t)
1457 (let ((point-after-start-tag (point))) 1461 (let ((point-after-start-tag (point)))
1458 (if (not (search-forward "</title>" nil t)) 1462 (if (not (search-forward "</title>" nil t))
1459 nil 1463 nil
1460 (goto-char (- (point) 8)) 1464 (goto-char (- (point) 8))
1461 (delete-backward-char (- (point) point-after-start-tag)) 1465 (delete-backward-char (- (point) point-after-start-tag))
1462 (insert title " (" (hm--date) ")"))) 1466 (if hm--html-automatic-create-title-date
1467 (insert title " (" (hm--date) ")")
1468 (insert title))))
1463 ;; Noch kein <TITLE> im Buffer vorhanden 1469 ;; Noch kein <TITLE> im Buffer vorhanden
1464 (hm--html-set-point-for-title) 1470 (hm--html-set-point-for-title)
1465 (hm--html-add-tags 'hm--html-insert-start-tag 1471 (hm--html-add-tags 'hm--html-insert-start-tag
1466 "<TITLE>" 1472 "<TITLE>"
1467 'hm--html-insert-end-tag 1473 'hm--html-insert-end-tag
1468 "</TITLE>" 1474 "</TITLE>"
1469 'insert 1475 'insert
1470 (concat title " (" (hm--date) ")")) 1476 (if hm--html-automatic-create-title-date
1477 (concat title " (" (hm--date) ")")
1478 title))
1471 (forward-char 8) 1479 (forward-char 8)
1472 ;(newline 1) 1480 ;(newline 1)
1473 )))) 1481 ))))
1474 1482
1475 1483
1631 (hm--html-add-doctype) 1639 (hm--html-add-doctype)
1632 (hm--html-add-html) 1640 (hm--html-add-html)
1633 (hm--html-add-head) 1641 (hm--html-add-head)
1634 (hm--html-add-body) 1642 (hm--html-add-body)
1635 (hm--html-add-title-and-header title) 1643 (hm--html-add-title-and-header title)
1636 (if hm--html-signature-file 1644 (when hm--html-signature-file
1637 (hm--html-add-signature)) 1645 (hm--html-add-signature))
1638 (goto-char (point-min)) 1646 (goto-char (point-min))
1639 (search-forward "</h1>" nil t) 1647 (search-forward "</h1>" nil t)
1640 (forward-line 1) 1648 (forward-line 1)
1641 (if hm--html-automatic-created-comment 1649 (when hm--html-automatic-created-comment
1642 (hm--html-insert-created-comment)))) 1650 (hm--html-insert-created-comment))
1651 (when hm--html-automatic-create-modified-line
1652 (hm--html-insert-modified-line))))
1643 1653
1644 1654
1645 (defun hm--html-add-full-html-frame-with-region () 1655 (defun hm--html-add-full-html-frame-with-region ()
1646 "Adds a full HTML frame to the current buffer with the use of a region. 1656 "Adds a full HTML frame to the current buffer with the use of a region.
1647 The frame consists of the elements html, head, body, title, 1657 The frame consists of the elements html, head, body, title,
1652 (hm--html-add-doctype) 1662 (hm--html-add-doctype)
1653 (hm--html-add-html) 1663 (hm--html-add-html)
1654 (hm--html-add-head) 1664 (hm--html-add-head)
1655 (hm--html-add-body) 1665 (hm--html-add-body)
1656 (hm--html-add-signature) 1666 (hm--html-add-signature)
1657 (if hm--html-automatic-created-comment 1667 (when hm--html-automatic-created-comment
1658 (hm--html-insert-created-comment))) 1668 (hm--html-insert-created-comment))
1669 (when hm--html-automatic-create-modified-line
1670 (hm--html-insert-modified-line)))
1659 1671
1660 1672
1661 (defun hm--html-add-link-target-to-region (name) 1673 (defun hm--html-add-link-target-to-region (name)
1662 "Adds the HTML tags for a link target to the region." 1674 "Adds the HTML tags for a link target to the region."
1663 (interactive "sName: ") 1675 (interactive "sName: ")
2720 ;;; Functions to update the date and the changelog entries 2732 ;;; Functions to update the date and the changelog entries
2721 2733
2722 2734
2723 (defun hm--html-maybe-new-date-and-changed-comment () 2735 (defun hm--html-maybe-new-date-and-changed-comment ()
2724 "Hook function which updates the date in the title line, if 2736 "Hook function which updates the date in the title line, if
2725 'hm--html-automatic-new-date' is t and which inserts a 2737 'hm--html-automatic-update-title-date' is t and which inserts a
2726 \"changed comment\" line, if 'hm--html-automatic-changed-comment' is t." 2738 \"changed comment\" line, if 'hm--html-automatic-changed-comment' is t."
2727 (if hm--html-automatic-new-date 2739 (when hm--html-automatic-update-title-date
2728 (hm--html-new-date)) 2740 (hm--html-new-date))
2729 (if hm--html-automatic-changed-comment 2741 (when hm--html-automatic-changed-comment
2730 (hm--html-insert-changed-comment t))) 2742 (hm--html-insert-changed-comment t))
2743 (when hm--html-automatic-update-modified-line
2744 (hm--html-insert-modified-line)))
2731 2745
2732 2746
2733 (defun hm--html-new-date () 2747 (defun hm--html-new-date ()
2734 "The function sets the date in the title line up." 2748 "The function sets the date in the title line up."
2735 (interactive) 2749 (interactive)
2768 (let ((case-fold-search t) 2782 (let ((case-fold-search t)
2769 (end-of-head (if (search-forward "</head>" nil t) 2783 (end-of-head (if (search-forward "</head>" nil t)
2770 (point) 2784 (point)
2771 (if (search-forward "<body>" nil t) 2785 (if (search-forward "<body>" nil t)
2772 (point) 2786 (point)
2773 (point-max))))) 2787 (point-max))))
2788 (comment-infix (or hm--html-comment-infix
2789 (concat (or hm--html-username (user-full-name))
2790 ", "))))
2774 (goto-char (point-min)) 2791 (goto-char (point-min))
2775 (if (not (search-forward "</title>" end-of-head t)) 2792 (if (not (search-forward "</title>" end-of-head t))
2776 (if (not noerror) 2793 (if (not noerror)
2777 (error "ERROR: Please insert a title in the document !")) 2794 (error "ERROR: Please insert a title in the document !"))
2778 ; (let ((end-of-title-position (point))) 2795 ; (let ((end-of-title-position (point)))
2779 (if (search-forward "<!-- Created by: " end-of-head t) 2796 (if (search-forward (concat "<!-- "
2797 hm--html-created-comment-prefix)
2798 end-of-head
2799 t)
2780 (if (yes-or-no-p 2800 (if (yes-or-no-p
2781 "Replace the old comment \"<!-- Created by: \" ") 2801 (concat "Replace the old comment \"<!-- "
2802 hm--html-created-comment-prefix
2803 "\" "))
2782 (progn 2804 (progn
2783 (goto-char (match-beginning 0)) 2805 (goto-char (match-beginning 0))
2784 (kill-line) 2806 (kill-line)
2785 (hm--html-add-comment) 2807 (hm--html-add-comment)
2786 (insert "Created by: " 2808 (insert hm--html-created-comment-prefix
2787 (or hm--html-username (user-full-name)) 2809 comment-infix
2788 ", " 2810 ; (or hm--html-username (user-full-name))
2811 ; ", "
2789 (hm--date)))) 2812 (hm--date))))
2790 (newline) 2813 (newline)
2791 (hm--html-add-comment) 2814 (hm--html-add-comment)
2792 (insert "Created by: " 2815 (insert hm--html-created-comment-prefix
2793 (or hm--html-username (user-full-name)) 2816 comment-infix
2794 ", " 2817 ; (insert "Created by: "
2818 ; (or hm--html-username (user-full-name))
2819 ; ", "
2795 (hm--date) 2820 (hm--date)
2796 )))))) 2821 ))))))
2797 2822
2798 2823
2799 (defun hm--html-insert-changed-comment-1 (newline username) 2824 (defun hm--html-insert-changed-comment-1 (newline)
2800 "Internal function of 'hm--html-insert-changed-comment'. 2825 "Internal function of 'hm--html-insert-changed-comment'.
2801 Inserts a newline if NEWLINE is t, before the comment is inserted. 2826 Inserts a newline if NEWLINE is t, before the comment is inserted."
2802 USERNAME is the name to be inserted in the comment."
2803 (if newline 2827 (if newline
2804 (progn 2828 (progn
2805 (newline))) 2829 (newline)))
2806 (hm--html-add-comment) 2830 (hm--html-add-comment)
2807 (insert "Changed by: " username ", " (hm--date))) 2831 (insert hm--html-changed-comment-prefix
2832 (or hm--html-comment-infix
2833 (concat (or hm--html-username (user-full-name)) ", "))
2834 (hm--date)))
2808 2835
2809 (defun hm--html-insert-changed-comment (&optional noerror) 2836 (defun hm--html-insert-changed-comment (&optional noerror)
2810 "The function inserts a \"changed comment\". 2837 "The function inserts a \"changed comment\".
2811 The comment looks like <!-- Changed by: Heiko Münkel, 10-Dec-1993 -->. 2838 The comment looks by default like
2839 <!-- Changed by: Heiko Münkel, 10-Dec-1993 -->.
2812 The comment will be inserted after the last \"changed comment\" line, or, 2840 The comment will be inserted after the last \"changed comment\" line, or,
2813 if there isn't such a line, after the \"created comment\" line, or, 2841 if there isn't such a line, after the \"created comment\" line, or,
2814 after the title line. If there is no title and NOERROR is nil, an error 2842 after the title line. If there is no title and NOERROR is nil, an error
2815 message is generated. The line is not inserted after the end of the head 2843 message is generated. The line is not inserted after the end of the head
2816 or the beginning of the body. 2844 or the beginning of the body.
2817 If the last \"changed line\" is from the same author, it is only replaced 2845 If the last \"changed line\" is from the same author, it is only replaced
2818 by the new one. 2846 by the new one.
2819 2847
2820 Attention: Don't change the format of the lines and don't write anything 2848 Look at the variables `hm--html-changed-comment-prefix' and
2821 else in such a line !" 2849 `hm--html-comment-infix', if you'd like to change the
2850 inserted comments. You should not use different values for this
2851 variables in the same HTML file.
2852
2853 Attention: Don't write anything else in such a line!"
2822 (interactive) 2854 (interactive)
2823 (save-excursion 2855 (save-excursion
2824 (goto-char (point-min)) 2856 (goto-char (point-min))
2825 (let ((case-fold-search t) 2857 (let ((case-fold-search t)
2826 (end-of-head (if (search-forward "</head>" nil t) 2858 (end-of-head (if (search-forward "</head>" nil t)
2827 (point) 2859 (point)
2828 (if (search-forward "<body>" nil t) 2860 (if (search-forward "<body>" nil t)
2829 (point) 2861 (point)
2830 (point-max)))) 2862 (point-max))))
2831 (username (or hm--html-username (user-full-name)))) 2863 (comment-infix (or hm--html-comment-infix
2864 hm--html-username
2865 (user-full-name))))
2866 ; (username (or hm--html-username (user-full-name))))
2832 (goto-char end-of-head) 2867 (goto-char end-of-head)
2833 (if (search-backward "<!-- Changed by: " nil t) 2868 ; (if (search-backward "<!-- Changed by: " nil t)
2834 (if (string-match username 2869 (if (search-backward (concat "<!-- "
2870 hm--html-changed-comment-prefix)
2871 nil
2872 t)
2873 ; (if (string-match username
2874 (if (string-match comment-infix
2835 (buffer-substring (point) 2875 (buffer-substring (point)
2836 (progn 2876 (progn
2837 (end-of-line) 2877 (end-of-line)
2838 (point)))) 2878 (point))))
2839 ;; exchange the comment line 2879 ;; exchange the comment line
2840 (progn 2880 (progn
2841 (beginning-of-line) 2881 (beginning-of-line)
2842 (delete-region (point) (progn 2882 (delete-region (point) (progn
2843 (end-of-line) 2883 (end-of-line)
2844 (point))) 2884 (point)))
2845 (hm--html-insert-changed-comment-1 nil username)) 2885 (hm--html-insert-changed-comment-1 nil))
2846 ;; new comment line 2886 ;; new comment line
2847 (end-of-line) 2887 (end-of-line)
2848 (hm--html-insert-changed-comment-1 t username)) 2888 (hm--html-insert-changed-comment-1 t))
2849 (if (search-backward "<!-- Created by: " nil t) 2889 ; (if (search-backward "<!-- Created by: " nil t)
2890 (if (search-backward (concat "<!-- "
2891 hm--html-created-comment-prefix)
2892 nil
2893 t)
2850 (progn 2894 (progn
2851 (end-of-line) 2895 (end-of-line)
2852 (hm--html-insert-changed-comment-1 t username)) 2896 (hm--html-insert-changed-comment-1 t))
2853 (if (search-backward "</title>" nil t) 2897 (if (search-backward "</title>" nil t)
2854 (progn 2898 (progn
2855 (goto-char (match-end 0)) 2899 (goto-char (match-end 0))
2856 (if (not (looking-at "\n")) 2900 (if (not (looking-at "\n"))
2857 (progn 2901 (progn
2858 (newline) 2902 (newline)
2859 (forward-char -1))) 2903 (forward-char -1)))
2860 (hm--html-insert-changed-comment-1 t username)) 2904 (hm--html-insert-changed-comment-1 t))
2861 (if (not noerror) 2905 (if (not noerror)
2862 (error 2906 (error
2863 "ERROR: Insert at first a title in the document !")))))))) 2907 "ERROR: Insert at first a title in the document !"))))))))
2864 2908
2865 2909 (defun hm--html-insert-modified-line ()
2910 "Inserts a modified line.
2911 By default the line looks like:
2912 <EM>Modified: 23-May-1997</EM>
2913
2914 Look at the variables `hm--html-automatic-create-modified-line',
2915 `hm--html-automatic-update-modified-line', `hm--html-modified-prefix',
2916 `hm--html-modified-start-tag', `hm--html-modified-end-tag' and
2917 `hm--html-modified-insert-before' to change the behaviour of this
2918 feature."
2919 (interactive)
2920 (save-excursion
2921 (goto-char (point-max))
2922 (if (search-backward-regexp (concat hm--html-modified-start-tag
2923 "[ \t\n]*"
2924 hm--html-modified-prefix)
2925 nil
2926 t)
2927 (progn ; old modified line exists
2928 (goto-char (match-end 0))
2929 (if (search-forward-regexp (concat "\\([ \t\n]*\\)"
2930 "\\([^ \t\n<]+\\)"
2931 "\\([ \t\n]*"
2932 hm--html-modified-end-tag
2933 "\\)"))
2934 (progn
2935 (delete-region (match-beginning 2) (match-end 2))
2936 (goto-char (match-beginning 2))
2937 (insert (hm--date)))
2938 ; (replace-match (concat "\\1" (hm--date)))
2939 (error "Destroyed \"Modified line\" found!")))
2940 (search-backward hm--html-modified-insert-before nil t)
2941 (search-backward "</html>" nil t)
2942 (search-backward "</body>" nil t)
2943 (newline)
2944 (indent-according-to-mode)
2945 (forward-line -1)
2946 (unless (= (util-return-end-of-line) (point))
2947 (end-of-line)
2948 (newline))
2949 (newline)
2950 (indent-according-to-mode)
2951 (insert hm--html-modified-start-tag
2952 hm--html-modified-prefix
2953 (hm--date)
2954 hm--html-modified-end-tag))))
2955
2866 2956
2867 ;;; Functions to insert templates 2957 ;;; Functions to insert templates
2868 2958
2869 (defvar hm--html-template-file-history nil 2959 (defvar hm--html-template-file-history nil
2870 "Historyvariable for the template files in the `hm--html-mode'.") 2960 "Historyvariable for the template files in the `hm--html-mode'.")
3832 (insert "&Ntilde;")) 3922 (insert "&Ntilde;"))
3833 3923
3834 (defun hm--html_acircumflex () 3924 (defun hm--html_acircumflex ()
3835 "Insert the character 'acircumflex'." 3925 "Insert the character 'acircumflex'."
3836 (interactive) 3926 (interactive)
3837 (insert "&acircumflex;")) 3927 (insert "&acirc;"))
3838 3928
3839 (defun hm--html_ecircumflex () 3929 (defun hm--html_ecircumflex ()
3840 "Insert the character 'ecircumflex'." 3930 "Insert the character 'ecircumflex'."
3841 (interactive) 3931 (interactive)
3842 (insert "&ecircumflex;")) 3932 (insert "&ecirc;"))
3843 3933
3844 (defun hm--html_icircumflex () 3934 (defun hm--html_icircumflex ()
3845 "Insert the character 'icircumflex'." 3935 "Insert the character 'icircumflex'."
3846 (interactive) 3936 (interactive)
3847 (insert "&icircumflex;")) 3937 (insert "&icirc;"))
3848 3938
3849 (defun hm--html_ocircumflex () 3939 (defun hm--html_ocircumflex ()
3850 "Insert the character 'ocircumflex'." 3940 "Insert the character 'ocircumflex'."
3851 (interactive) 3941 (interactive)
3852 (insert "&ocircumflex;")) 3942 (insert "&ocirc;"))
3853 3943
3854 (defun hm--html_ucircumflex () 3944 (defun hm--html_ucircumflex ()
3855 "Insert the character 'ucircumflex'." 3945 "Insert the character 'ucircumflex'."
3856 (interactive) 3946 (interactive)
3857 (insert "&ucircumflex;")) 3947 (insert "&ucirc;"))
3858 3948
3859 (defun hm--html_Acircumflex () 3949 (defun hm--html_Acircumflex ()
3860 "Insert the character 'Acircumflex'." 3950 "Insert the character 'Acircumflex'."
3861 (interactive) 3951 (interactive)
3862 (insert "&Acircumflex;")) 3952 (insert "&Acirc;"))
3863 3953
3864 (defun hm--html_Ecircumflex () 3954 (defun hm--html_Ecircumflex ()
3865 "Insert the character 'Ecircumflex'." 3955 "Insert the character 'Ecircumflex'."
3866 (interactive) 3956 (interactive)
3867 (insert "&Ecircumflex;")) 3957 (insert "&Ecirc;"))
3868 3958
3869 (defun hm--html_Icircumflex () 3959 (defun hm--html_Icircumflex ()
3870 "Insert the character 'Icircumflex'." 3960 "Insert the character 'Icircumflex'."
3871 (interactive) 3961 (interactive)
3872 (insert "&Icircumflex;")) 3962 (insert "&Icirc;"))
3873 3963
3874 (defun hm--html_Ocircumflex () 3964 (defun hm--html_Ocircumflex ()
3875 "Insert the character 'Ocircumflex'." 3965 "Insert the character 'Ocircumflex'."
3876 (interactive) 3966 (interactive)
3877 (insert "&Ocircumflex;")) 3967 (insert "&Ocirc;"))
3878 3968
3879 (defun hm--html_Ucircumflex () 3969 (defun hm--html_Ucircumflex ()
3880 "Insert the character 'Ucircumflex'." 3970 "Insert the character 'Ucircumflex'."
3881 (interactive) 3971 (interactive)
3882 (insert "&Ucircumflex;")) 3972 (insert "&Ucirc;"))
3883 3973
3884 (defun hm--html_ediaeresis () 3974 (defun hm--html_ediaeresis ()
3885 "Insert the character 'ediaeresis'." 3975 "Insert the character 'ediaeresis'."
3886 (interactive) 3976 (interactive)
3887 (insert "&euml;")) 3977 (insert "&euml;"))
4048 hm--html-menus-package-version) 4138 hm--html-menus-package-version)
4049 (list 'emacs-version 4139 (list 'emacs-version
4050 'major-mode 4140 'major-mode
4051 'hm--html-automatic-changed-comment 4141 'hm--html-automatic-changed-comment
4052 'hm--html-automatic-created-comment 4142 'hm--html-automatic-created-comment
4143 'hm--html-automatic-create-modified-line
4053 'hm--html-automatic-expand-templates 4144 'hm--html-automatic-expand-templates
4054 'hm--html-automatic-new-date 4145 'hm--html-automatic-update-modified-line
4146 'hm--html-automatic-update-title-date
4147 'hm--html-changed-comment-prefix
4148 'hm--html-comment-infix
4149 'hm--html-created-comment-prefix
4055 'hm--html-expert 4150 'hm--html-expert
4056 'hm--html-favorite-http-server-host-name 4151 'hm--html-favorite-http-server-host-name
4057 'hm--html-file-path-alist 4152 'hm--html-file-path-alist
4058 'hm--html-ftp-hostname:port-alist 4153 'hm--html-ftp-hostname:port-alist
4059 'hm--html-ftp-hostname:port-default 4154 'hm--html-ftp-hostname:port-default
4073 'hm--html-mail-hostname:port-alist 4168 'hm--html-mail-hostname:port-alist
4074 'hm--html-mail-hostname:port-default 4169 'hm--html-mail-hostname:port-default
4075 'hm--html-mail-path-alist 4170 'hm--html-mail-path-alist
4076 'hm--html-marc 4171 'hm--html-marc
4077 'hm--html-menu-load-hook 4172 'hm--html-menu-load-hook
4173 'hm--html-modified-end-tag
4174 'hm--html-modified-insert-before
4175 'hm--html-modified-prefix
4176 'hm--html-modified-start-tag
4078 'hm--html-proggate-allowed-file 4177 'hm--html-proggate-allowed-file
4079 'hm--html-proggate-hostname:port-alist 4178 'hm--html-proggate-hostname:port-alist
4080 'hm--html-proggate-hostname:port-default 4179 'hm--html-proggate-hostname:port-default
4081 'hm--html-server-side-include-command-alist 4180 'hm--html-server-side-include-command-alist
4082 'hm--html-server-side-include-command-with-parameter-alist 4181 'hm--html-server-side-include-command-with-parameter-alist