From: Ivan Kanis <ivan@kanis.fr>
Date: Mon, 24 Jun 2013 17:41:26 +0000 (+0200)
Subject: * net/shr.el (shr-browse-url): Fix interactive spec.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2~55
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5196f88a9548578c911463804460cb9fa5ddfca5;p=emacs.git

* net/shr.el (shr-browse-url): Fix interactive spec.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1f6ceee6a5..97b3fcbc4f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-24  Ivan Kanis  <ivan@kanis.fr>
 
+	* net/shr.el (shr-browse-url): Fix interactive spec.
+
 	* net/eww.el (eww): Add a trailing slash to domain names.
 
 2013-06-24  Juanma Barranquero  <lekktu@gmail.com>
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index bb58a99ce10..886308d55ef 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -648,7 +648,7 @@ size, and full-buffer size."
 (defun shr-browse-url (&optional external)
   "Browse the URL under point.
 If EXTERNAL, browse the URL using `shr-external-browser'."
-  (interactive "p")
+  (interactive "P")
   (let ((url (get-text-property (point) 'shr-url)))
     (cond
      ((not url)