Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-speak.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 34a5b81f86ba
children 15872534500d
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
190 (declare (special url-speak-last-progress-indication )) 190 (declare (special url-speak-last-progress-indication ))
191 (let ((now (nth 1 (current-time)))) 191 (let ((now (nth 1 (current-time))))
192 (when (> now 192 (when (> now
193 (+ 3 url-speak-last-progress-indication)) 193 (+ 3 url-speak-last-progress-indication))
194 (setq url-speak-last-progress-indication now) 194 (setq url-speak-last-progress-indication now)
195 (apply 'message (ad-get-args 0))
195 (emacspeak-auditory-icon 'progress)))) 196 (emacspeak-auditory-icon 'progress))))
196 197
197 (provide 'w3-speak) 198 (provide 'w3-speak)