diff -r 0722f3949eda -r 2a081d4e2e7c .emacs-my
--- a/.emacs-my Sun Sep 04 23:38:40 2011 +0300
+++ b/.emacs-my Mon Sep 19 21:04:48 2011 +0300
@@ -1639,26 +1639,32 @@
;;; ----------------------------------------------------------------
(message "psgml")
+(setq my-html-template
+ '("html"
+ (nil
+ "\n" \n
+ "" \n
+ "" (setq str (read-input "Title: ")) "\n"
+ "\n"
+ "\n" str "
"
+ "\n" \n
+ "" (user-full-name) "" \n
+ "" \n
+ "\n"
+ ))
+ )
+
(setq sgml-set-face t) ; for highlighting in sgml
(eval-after-load 'sgml-mode
'(progn
- (setq html-tag-alist
- (cons
- '("html" (nil
- "\n" \n
- "" \n
- "" (setq str (read-input "Title: ")) "\n"
- "\n"
- "\n" str "
"
- "\n" \n
- "" (user-full-name) "" \n
- "" \n
- "\n"
- ))
- (my-filter
- (lambda (item) (not (equal (car item) "html")))
- html-tag-alist)))
- ))
+ (unless (featurep 'psgml)
+ (setq html-tag-alist
+ (cons
+ my-html-template
+ (my-filter
+ (lambda (item) (not (equal (car item) "html")))
+ html-tag-alist)))
+ )))
;;; ----------------------------------------------------------------
(message "sh, bash")