[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
patch for emacspeak-w3m.el
- To: bep@argv.org
- Subject: patch for emacspeak-w3m.el
- From: Mitsugu SAKAMOTO <mitsugu@argv.org>
- Date: Thu, 19 Apr 2001 14:12:57 +0900
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- User-Agent: Wanderlust/2.5.8 (Smooth Criminal) SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.3 Emacs/21.0.102 (i386-mingw-windows98.2222) MULE/5.0 (SAKAKI)
坂本です。
emacspeak-w3m.elへのパッチです。bepのカレントのtarballに入っている
emacspeak-w3m.elからのパッチになっています。
* w3mへのdefadviceの時のコメントが本来行っていることと違うので書き換えた。
* w3m-find-fileと、w3m-edit-current-urlへのadviceを追加した。
===File ~/emacspeak-w3m.el.diff=============================
--- emacspeak-w3m.el.origi Thu Apr 19 13:45:22 2001
+++ emacspeak-w3m.el Thu Apr 19 13:50:30 2001
@@ -73,7 +73,12 @@
)
(defadvice w3m (after emacspeak pre act)
- "speak mode line"
+ "speak page title"
+ (dtk-speak w3m-current-title)
+)
+
+(defadvice w3m-find-file (after emacspeak pre act)
+ "speak page title"
(dtk-speak w3m-current-title)
)
@@ -101,6 +106,9 @@
(defadvice w3m-view-parent-page (after emacspeak pre act)
"speak page title"
(dtk-speak w3m-current-title))
+(defadvice w3m-edit-current-url (after emacspeak pre act)
+ "enter edit page speak the mode line"
+(emacspeak-speak-mode-line))
;;}}}
============================================================