Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-speak.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 0d2f883870bc
children b980b6286996
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
73 ;;; Movement notification 73 ;;; Movement notification
74 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 74 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
75 (defadvice w3-widget-forward (after emacspeak pre act comp) 75 (defadvice w3-widget-forward (after emacspeak pre act comp)
76 (when (interactive-p) 76 (when (interactive-p)
77 (emacspeak-auditory-icon 'large-movement) 77 (emacspeak-auditory-icon 'large-movement)
78 (emacspeak-widget-summarize (emacspeak-widget-at (point ))))) 78 (emacspeak-widget-summarize (widget-at (point )))))
79
80 79
81 (defadvice w3-widget-backward (after emacspeak pre act comp) 80 (defadvice w3-widget-backward (after emacspeak pre act comp)
82 (when (interactive-p) 81 (when (interactive-p)
83 (emacspeak-auditory-icon 'large-movement) 82 (emacspeak-auditory-icon 'large-movement)
84 (emacspeak-widget-summarize (emacspeak-widget-at (point ))))) 83 (emacspeak-widget-summarize (widget-at (point )))))
85 84
86 (defadvice w3-scroll-up (after emacspeak pre act comp) 85 (defadvice w3-scroll-up (after emacspeak pre act comp)
87 "Provide auditory feedback" 86 "Provide auditory feedback"
88 (when (interactive-p) 87 (when (interactive-p)
89 (let ((start (point ))) 88 (let ((start (point )))