diff options
| author | Dave Love | 1998-11-01 17:08:22 +0000 |
|---|---|---|
| committer | Dave Love | 1998-11-01 17:08:22 +0000 |
| commit | 7f52b1242e70c79dd96fcca90013fe4839fa162b (patch) | |
| tree | 452ec3c6a1f1a8113e594636b048473a594cf1ca | |
| parent | 1b978bfc85d4695cf22e8617d6d06b6ec4a9a0ee (diff) | |
| download | emacs-7f52b1242e70c79dd96fcca90013fe4839fa162b.tar.gz emacs-7f52b1242e70c79dd96fcca90013fe4839fa162b.zip | |
(goto-address-at-point, goto-address-at-mouse):
Don't funcall browse-url-browser-function.
| -rw-r--r-- | lisp/goto-addr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el index 7a4026158a8..05c55684b45 100644 --- a/lisp/goto-addr.el +++ b/lisp/goto-addr.el | |||
| @@ -196,7 +196,7 @@ there, then load the URL at or before the position of the mouse click." | |||
| 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 |
| @@ -212,7 +212,7 @@ there, then load the URL at or before point." | |||
| 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 () |