Mercurial > hg > xemacs-beta

diff lisp/w3/w3-speak.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children 34a5b81f86ba
line wrap: on
line diff
--- a/lisp/w3/w3-speak.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/w3/w3-speak.el	Mon Aug 13 09:13:56 2007 +0200
@@ -168,15 +168,10 @@
 delimiters. We then turn on voice-lock-mode. 
 Interactive prefix arg does the opposite. "
   (interactive "P")
-  (declare (special w3-delimit-links w3-delimit-emphasis w3-echo-link))
+  (declare (special w3-echo-link))
   (setq w3-echo-link 'text)
   (if arg
-      (progn
-	(setq w3-delimit-links 'guess 
-	      w3-delimit-emphasis 'guess)
-	(remove-hook 'w3-mode-hook 'w3-speak-mode-hook))
-    (setq w3-delimit-links nil
-          w3-delimit-emphasis nil)
+      (remove-hook 'w3-mode-hook 'w3-speak-mode-hook)
     (add-hook 'w3-mode-hook 'w3-speak-mode-hook)))
 
 (defun w3-speak-browse-page ()