diff options
| author | Marco Wahl <marcowahlsoft@gmail.com> | 2014-11-26 10:38:43 +0100 |
|---|---|---|
| committer | Marco Wahl <marcowahlsoft@gmail.com> | 2014-11-26 10:38:43 +0100 |
| commit | 00500afb8ced99ccaf9334ca183bc572bb6ae29a (patch) | |
| tree | 119f9e2c394ac1e4135b5c8779e029bc64e38b82 | |
| parent | bd3bd83092d1bdd0019d809bb11a418735352720 (diff) | |
| download | org-mode-00500afb8ced99ccaf9334ca183bc572bb6ae29a.tar.gz | |
org-eww.el: Fix org-store-link for eww-mode
* contrib/lisp/org-eww.el (org-eww-store-link): Depending on the Emacs
version use the appropriate interface to store the url of an
eww-mode buffer.
This patch fixes the org-store-link feature for eww-mode buffers for
Emacs 25.
| -rw-r--r-- | contrib/lisp/org-eww.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/contrib/lisp/org-eww.el b/contrib/lisp/org-eww.el index 26a1e09..08dac11 100644 --- a/contrib/lisp/org-eww.el +++ b/contrib/lisp/org-eww.el @@ -54,9 +54,14 @@ (when (eq major-mode 'eww-mode) (org-store-link-props :type "eww" - :link eww-current-url + :link (if (< emacs-major-version 25) + eww-current-url + (eww-current-url)) :url (url-view-url t) - :description (or eww-current-title eww-current-url)))) + :description (if (< emacs-major-version 25) + (or eww-current-title eww-current-url) + (or (plist-get eww-data :title) + (eww-current-url)))))) ;; Some auxiliary functions concerning links in eww buffers |