[Emacs-diffs] master a3ca30c: Revert prefix behavior in RET to previous behavior

[Lars Ingebrigtsen]

branch: master
commit a3ca30c8b5bd53a72590e57d30c0d98a877c8720
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    Revert prefix behavior in RET to previous behavior
    
    * net/eww.el (eww-follow-link): Revert prefix behaviour to
    previous behavior.
---
 lisp/ChangeLog  |    5 +++++
 lisp/net/eww.el |    6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1769c48..188db7f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-07  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/eww.el (eww-follow-link): Revert prefix behaviour to
+       previous behavior.
+
 2014-12-07  Ivan Shmakov  <address@hidden>
 
        * net/eww.el (eww): Moved history recording here...
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 8b78397..139c0b1 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))