Mercurial > hg > xemacs-beta
comparison lisp/w3/w3-speak.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:50:29 +0200 |
| parents | 0293115a14e9 |
| children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
| 21:b88636d63495 | 22:8fc7fe29b841 |
|---|---|
| 166 "Tells w3 to start using voice locking. | 166 "Tells w3 to start using voice locking. |
| 167 This is done by setting the w3 variables so that anchors etc are not marked by | 167 This is done by setting the w3 variables so that anchors etc are not marked by |
| 168 delimiters. We then turn on voice-lock-mode. | 168 delimiters. We then turn on voice-lock-mode. |
| 169 Interactive prefix arg does the opposite. " | 169 Interactive prefix arg does the opposite. " |
| 170 (interactive "P") | 170 (interactive "P") |
| 171 (declare (special w3-delimit-links w3-delimit-emphasis w3-echo-link)) | 171 (declare (special w3-echo-link)) |
| 172 (setq w3-echo-link 'text) | 172 (setq w3-echo-link 'text) |
| 173 (if arg | 173 (if arg |
| 174 (progn | 174 (remove-hook 'w3-mode-hook 'w3-speak-mode-hook) |
| 175 (setq w3-delimit-links 'guess | |
| 176 w3-delimit-emphasis 'guess) | |
| 177 (remove-hook 'w3-mode-hook 'w3-speak-mode-hook)) | |
| 178 (setq w3-delimit-links nil | |
| 179 w3-delimit-emphasis nil) | |
| 180 (add-hook 'w3-mode-hook 'w3-speak-mode-hook))) | 175 (add-hook 'w3-mode-hook 'w3-speak-mode-hook))) |
| 181 | 176 |
| 182 (defun w3-speak-browse-page () | 177 (defun w3-speak-browse-page () |
| 183 "Browse a WWW page" | 178 "Browse a WWW page" |
| 184 (interactive) | 179 (interactive) |