Re: emacspeak-w3m.el

[Mitsugu SAKAMOTO <sakamoto@kgs-jpn.co.jp>]

坂本です。
うう、昼休みにいじりました。
ちょっとうるさいかしら。
これで少しは安心して使えるでしょうか？
diffです。
#diffがちゃんと取れてるかも心配...
#さあ、皆さんたたいてください。
--- emacspeak-w3m.el	Tue Mar 27 13:38:22 2001
+++ emacspeak-w3m.el.new	Tue Mar 27 13:30:52 2001
@@ -1,5 +1,31 @@
 ;;; emacspeak-w3m.el -- speech enable emacs-w3m -- frontend for w3m WEB browser.
 
+;;; LCD Archive Entry:
+;;; emacspeak| T. V. Raman |raman@cs.cornell.edu 
+;;; A speech interface to Emacs |
+
+;;}}}
+;;{{{  Copyright:
+;;;Copyright (C) 1995 -- 2000, T. V. Raman 
+;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
+;;; All Rights Reserved. 
+;;;
+;;; This file is not part of GNU Emacs, but the same permissions apply.
+;;;
+;;; GNU Emacs is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Emacs is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Emacs; see the file COPYING.  If not, write to
+;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 ;;; code:
 (eval-when (compile)
   (require 'voice-lock)
@@ -7,7 +33,8 @@
   (require 'emacspeak-fix-interactive))
 (require 'emacspeak-speak)
 
-;;;
+;;{{{ Advise top-level command
+
 (require 'emacspeak-sounds)
 
 (defadvice w3m-next-anchor (after emacspeak pre act)
@@ -32,4 +59,23 @@
   (emacspeak-speak-mode-line)
 )
 
+(defadvice w3m-view-this-url (after emacspeak pre act)
+  "speak mode line"
+  (emacspeak-speak-mode-line))
+(defadvice w3m-reload-this-page (after emacspeak pre act)
+  "speak the mode line"
+  (emacspeak-speak-mode-line))
+(defadvice w3m-view-previous-page (after emacspeak pre act)
+  "speak the mode line"
+  (emacspeak-speak-mode-line))
+(defadvice w3m-view-next-page (after emacspeak pre act)
+  "speak the mode line"
+  (emacspeak-speak-mode-line))
+(defadvice w3m-view-parent-page (after emacspeak pre act)
+  "speak the mode line"
+  (emacspeak-speak-mode-line))
+
+;;}}}
+
 (provide 'emacspeak-w3m)
+