Mercurial > emacs
comparison lisp/goto-addr.el @ 23609:133e5c5c2e64
(goto-address-at-point, goto-address-at-mouse):
Don't funcall browse-url-browser-function.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 01 Nov 1998 17:08:22 +0000 |
| parents | 247c2a11843d |
| children | a74c3ac8e0d8 |
comparison
equal
deleted
inserted
replaced
| 23608:3805e63b8caf | 23609:133e5c5c2e64 |
|---|---|
| 194 (save-excursion (goto-address-find-address-at-point)))) | 194 (save-excursion (goto-address-find-address-at-point)))) |
| 195 (if (string-equal address "") | 195 (if (string-equal address "") |
| 196 (let ((url (browse-url-url-at-point))) | 196 (let ((url (browse-url-url-at-point))) |
| 197 (if (string-equal url "") | 197 (if (string-equal url "") |
| 198 (error "No e-mail address or URL found") | 198 (error "No e-mail address or URL found") |
| 199 (funcall browse-url-browser-function url))) | 199 (browse-url url))) |
| 200 (funcall goto-address-mail-method address)))))) | 200 (funcall goto-address-mail-method address)))))) |
| 201 | 201 |
| 202 ;;;###autoload | 202 ;;;###autoload |
| 203 (defun goto-address-at-point () | 203 (defun goto-address-at-point () |
| 204 "Send to the e-mail address or load the URL at point. | 204 "Send to the e-mail address or load the URL at point. |
| 210 (let ((address (save-excursion (goto-address-find-address-at-point)))) | 210 (let ((address (save-excursion (goto-address-find-address-at-point)))) |
| 211 (if (string-equal address "") | 211 (if (string-equal address "") |
| 212 (let ((url (browse-url-url-at-point))) | 212 (let ((url (browse-url-url-at-point))) |
| 213 (if (string-equal url "") | 213 (if (string-equal url "") |
| 214 (error "No e-mail address or URL found") | 214 (error "No e-mail address or URL found") |
| 215 (funcall browse-url-browser-function url))) | 215 (browse-url url))) |
| 216 (funcall goto-address-mail-method address))))) | 216 (funcall goto-address-mail-method address))))) |
| 217 | 217 |
| 218 (defun goto-address-find-address-at-point () | 218 (defun goto-address-find-address-at-point () |
| 219 "Find e-mail address around or before point. | 219 "Find e-mail address around or before point. |
| 220 Then search backwards to beginning of line for the start of an e-mail | 220 Then search backwards to beginning of line for the start of an e-mail |