From: Lars Magne Ingebrigtsen Date: Sun, 7 Dec 2014 20:44:19 +0000 (+0100) Subject: Revert prefix behavior in RET to previous behavior X-Git-Tag: emacs-25.0.90~2635^2~169 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3ca30c8b5bd53a72590e57d30c0d98a877c8720;p=emacs.git Revert prefix behavior in RET to previous behavior * net/eww.el (eww-follow-link): Revert prefix behaviour to previous behavior. --- 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 + + * net/eww.el (eww-follow-link): Revert prefix behaviour to + previous behavior. + 2014-12-07 Ivan Shmakov * 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))