/[emacs]/emacs/lisp/net/goto-addr.el
ViewVC logotype

Diff of /emacs/lisp/net/goto-addr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by eliz, Fri Nov 4 14:32:13 2005 UTC revision 1.25 by jpw, Tue Nov 22 22:07:15 2005 UTC
# Line 174  and `goto-address-fontify-p'." Line 174  and `goto-address-fontify-p'."
174                  (overlay-put this-overlay 'evaporate t)                  (overlay-put this-overlay 'evaporate t)
175                  (overlay-put this-overlay                  (overlay-put this-overlay
176                               'mouse-face goto-address-url-mouse-face)                               'mouse-face goto-address-url-mouse-face)
177                    (overlay-put this-overlay 'follow-link t)
178                  (overlay-put this-overlay                  (overlay-put this-overlay
179                               'help-echo "mouse-2, C-c RET: follow URL")                               'help-echo "mouse-2, C-c RET: follow URL")
180                  (overlay-put this-overlay                  (overlay-put this-overlay
# Line 189  and `goto-address-fontify-p'." Line 190  and `goto-address-fontify-p'."
190                  (overlay-put this-overlay 'evaporate t)                  (overlay-put this-overlay 'evaporate t)
191                  (overlay-put this-overlay 'mouse-face                  (overlay-put this-overlay 'mouse-face
192                               goto-address-mail-mouse-face)                               goto-address-mail-mouse-face)
193                    (overlay-put this-overlay 'follow-link t)
194                  (overlay-put this-overlay                  (overlay-put this-overlay
195                               'help-echo "mouse-2, C-c RET: mail this address")                               'help-echo "mouse-2, C-c RET: mail this address")
196                  (overlay-put this-overlay                  (overlay-put this-overlay
# Line 210  Send mail to address at point.  See docu Line 212  Send mail to address at point.  See docu
212  there, then load the URL at or before point."  there, then load the URL at or before point."
213    (interactive (list last-input-event))    (interactive (list last-input-event))
214    (save-excursion    (save-excursion
215      (if event (mouse-set-point event))      (if event (posn-set-point (event-end event)))
216      (let ((address (save-excursion (goto-address-find-address-at-point))))      (let ((address (save-excursion (goto-address-find-address-at-point))))
217        (if (and address        (if (and address
218                 (save-excursion                 (save-excursion

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26