diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/eww.el | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1769c486372..188db7f7a5f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-07 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * net/eww.el (eww-follow-link): Revert prefix behaviour to + previous behavior. + 2014-12-07 Ivan Shmakov <ivan@siamics.net> * net/eww.el (eww): Moved history recording here... diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 8b7839701ec..139c0b1372d 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1315,8 +1315,8 @@ The browser to used is specified by the `shr-external-browser' variable." (defun eww-follow-link (&optional external mouse-event) "Browse the URL under point. -If EXTERNAL is single prefix, browse in new buffer. -If EXTERNAL is double prefix, browse the URL using `shr-external-browser'." +If EXTERNAL is single prefix, browse the URL using `shr-external-browser'. +If EXTERNAL is double prefix, browse in new buffer." (interactive (list current-prefix-arg last-nonmenu-event)) (mouse-set-point mouse-event) (let ((url (get-text-property (point) 'shr-url))) @@ -1325,7 +1325,7 @@ If EXTERNAL is double prefix, browse the URL using `shr-external-browser'." (message "No link under point")) ((string-match "^mailto:" url) (browse-url-mail url)) - ((and (consp external) (< 4 (car external))) + ((and (consp external) (<= (car external) 4)) (funcall shr-external-browser url)) ;; This is a #target url in the same page as the current one. ((and (url-target (url-generic-parse-url url)) |