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 1769c486372e09866e503b72ad797e1460f7c7a3..188db7f7a5f51db7531951f13fd53fdcd75027b9 100644 (file)
--- 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 8b7839701eca26d6f65fe4728ce14b501cfad559..139c0b1372d21f1bbc4f8c51f566ec42aa9ba500 100644 (file)
--- 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))