Mercurial > hg > xemacs-beta
comparison lisp/w3/w3-speak.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | 6a378aca36af |
| children | 34a5b81f86ba |
comparison
equal
deleted
inserted
replaced
| 97:498bf5da1c90 | 98:0d2f883870bc |
|---|---|
| 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) |