diff options
| author | Lars Ingebrigtsen | 2019-07-30 16:06:00 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-30 16:07:44 +0200 |
| commit | 8bd6245e56f04181286620d8497e68e8b1c4f684 (patch) | |
| tree | 2be127efa39d67a64911848d02f14dd9bbc68ae0 | |
| parent | 0b79445f55274f7c0c4f9d4d63931321a4c82a97 (diff) | |
| download | emacs-8bd6245e56f04181286620d8497e68e8b1c4f684.tar.gz emacs-8bd6245e56f04181286620d8497e68e8b1c4f684.zip | |
Add a new conveniency function to browse-url
* lisp/net/browse-url.el (browse-url-button-open-url): Add a new
conveniency function.
| -rw-r--r-- | lisp/net/browse-url.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 37995a46604..c5bd415fe74 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -1690,6 +1690,14 @@ external browser instead of the default one." | |||
| 1690 | (funcall browse-url-secondary-browser-function url) | 1690 | (funcall browse-url-secondary-browser-function url) |
| 1691 | (browse-url url)))) | 1691 | (browse-url url)))) |
| 1692 | 1692 | ||
| 1693 | (defun browse-url-button-open-url (url) | ||
| 1694 | "Open URL using `browse-url'. | ||
| 1695 | If `current-prefix-arg' is non-nil, use | ||
| 1696 | `browse-url-secondary-browser-function' instead." | ||
| 1697 | (if current-prefix-arg | ||
| 1698 | (funcall browse-url-secondary-browser-function url) | ||
| 1699 | (browse-url url))) | ||
| 1700 | |||
| 1693 | (defun browse-url-button-copy () | 1701 | (defun browse-url-button-copy () |
| 1694 | "Copy the URL under point" | 1702 | "Copy the URL under point" |
| 1695 | (interactive) | 1703 | (interactive) |