[Emacs-diffs] trunk r113159: * net/shr.el (shr-browse-url): Fix interactive spec.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113159
revision-id: address@hidden
parent: address@hidden
author: Ivan Kanis <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2013-06-24 19:41:26 +0200
message:
  * net/shr.el (shr-browse-url): Fix interactive spec.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-24 17:38:51 +0000
+++ b/lisp/ChangeLog    2013-06-24 17:41:26 +0000
@@ -1,5 +1,7 @@
 2013-06-24  Ivan Kanis  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-06-24 14:03:26 +0000
+++ b/lisp/net/shr.el   2013-06-24 17:41:26 +0000
@@ -648,7 +648,7 @@
 (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)