1.1 --- a/yahtml.el	Thu Oct 15 23:14:53 2009 +0900
     1.2 +++ b/yahtml.el	Fri Oct 16 21:49:51 2009 +0900
     1.3 @@ -1,9 +1,9 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; (c) 1994-2009 by HIROSE Yuuji [yuuji@yatex.org]
     1.6 -;;; Last modified Tue Oct 13 11:52:40 2009 on firestorm
     1.7 -;;; $Id: yahtml.el,v ce2deaceb818 2009/09/28 02:37:27 yuuji $
     1.8 +;;; Last modified Fri Oct 16 21:48:53 2009 on firestorm
     1.9 +;;; $Id$
    1.10  
    1.11 -(defconst yahtml-revision-number "1.72"
    1.12 +(defconst yahtml-revision-number "1.74.1"
    1.13    "Revision number of running yahtml.el")
    1.14  
    1.15  ;;;[Installation]
    1.16 @@ -14,8 +14,8 @@
    1.17  ;;; 	(setq auto-mode-alist
    1.18  ;;; 		(cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
    1.19  ;;; 	(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
    1.20 -;;; 	(setq yahtml-www-browser "netscape")
    1.21 -;;;      ;Write your favorite browser.  But netscape is advantageous.
    1.22 +;;; 	(setq yahtml-www-browser "firefox")
    1.23 +;;;      ;Write your favorite browser.  But firefox is advantageous.
    1.24  ;;; 	(setq yahtml-path-url-alist
    1.25  ;;; 	      '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji")
    1.26  ;;; 		("/home/staff/yuuji/html" . "http://www.othernet/~yuuji")))
    1.27 @@ -30,8 +30,8 @@
    1.28  ;;; 	(setq auto-mode-alist
    1.29  ;;; 		(cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
    1.30  ;;; 	(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
    1.31 -;;; 	(setq yahtml-www-browser "netscape")
    1.32 -;;;      ;お気に入りのブラウザを書いて下さい。netscapeが便利です。
    1.33 +;;; 	(setq yahtml-www-browser "firefox")
    1.34 +;;;      ;お気に入りのブラウザを書いて下さい。firefoxが便利です。
    1.35  ;;; 	(setq yahtml-path-url-alist
    1.36  ;;; 	      '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji")
    1.37  ;;; 		("/home/staff/yuuji/html" . "http://www.othernet/~yuuji")))
    1.38 @@ -91,7 +91,7 @@
    1.39  ;;;  * [prefix] t p	View current html with WWW browser
    1.40  ;;; 			(To activate this, never fail to set the lisp
    1.41  ;;; 			 variable yahtml-www-browser.  Recommended value
    1.42 -;;; 			 is "netscape")
    1.43 +;;; 			 is "firefox")
    1.44  ;;;  * [prefix] a	YaTeX's accent mark's equivalent of yahtml.
    1.45  ;;;			This function can input $lt, $gt or so.
    1.46  ;;;  * [prefix] ;	Translate chars of `>', `<', `&', and `"' to 
    1.47 @@ -144,9 +144,7 @@
    1.48  ;;;			す。
    1.49  ;;;  * [prefix] t p	WWW ブラウザでカレントファイルを表示します。
    1.50  ;;;			(lisp変数 yahtml-www-browser の設定をお忘れな
    1.51 -;;;			く。お推めは "netscape" で、ねすけの場合既にねす
    1.52 -;;;			けが起動されていた場合そのねすけに Reload 命令を
    1.53 -;;;			送るという芸当が出来ます)
    1.54 +;;;			く。お推めは "firefox" です)
    1.55  ;;;  * [prefix] a	YaTeX のアクセント記号補完と同じです。
    1.56  ;;;			&lt; &gt; 等が入力できます。
    1.57  ;;;  * [prefix] ;	指定したリジョン中の > < & " をそれぞれ
    1.58 @@ -2544,7 +2542,7 @@
    1.59    (yahtml-browse-html (yahtml-file-to-url (buffer-file-name))))
    1.60  
    1.61  (defun yahtml-browse-reload ()
    1.62 -  "Send `reload' event to netzscape."
    1.63 +  "Send `reload' event to netscape."
    1.64    (let ((pb "* WWW Browser *") (cb (current-buffer)))
    1.65      (cond
    1.66       ((string-match "[Nn]etscape" yahtml-www-browser)