Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-html.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
638 (let ((time (current-time-string))) 638 (let ((time (current-time-string)))
639 (insert "Last modified: " 639 (insert "Last modified: "
640 (substring time 0 20) 640 (substring time 0 20)
641 (nth 1 (current-time-zone)) 641 (nth 1 (current-time-zone))
642 " " 642 " "
643 (substring time -4)
643 "\n"))) 644 "\n")))
644 645
645 (defun html-helper-insert-timestamp-delimiter-at-point () 646 (defun html-helper-insert-timestamp-delimiter-at-point ()
646 "Simple function that inserts timestamp delimiters at point. 647 "Simple function that inserts timestamp delimiters at point.
647 Useful for adding timestamps to existing buffers." 648 Useful for adding timestamps to existing buffers."
731 (current-buffer))] 732 (current-buffer))]
732 ["View in W3" w3-preview-this-buffer t] 733 ["View in W3" w3-preview-this-buffer t]
733 "---" 734 "---"
734 ["HTML-Quote Region" html-quote-region t] 735 ["HTML-Quote Region" html-quote-region t]
735 "---") 736 "---")
736 (cdr sgml-sgml-menu)))) 737 (cdr sgml-main-menu))))
737 738
738 (defun sgml-html-netscape-file () 739 (defun sgml-html-netscape-file ()
739 "Preview the file for the current buffer in Netscape." 740 "Preview the file for the current buffer in Netscape."
740 (interactive) 741 (interactive)
741 (highlight-headers-follow-url-netscape 742 (highlight-headers-follow-url-netscape