From 5196f88a9548578c911463804460cb9fa5ddfca5 Mon Sep 17 00:00:00 2001 From: Ivan Kanis Date: Mon, 24 Jun 2013 19:41:26 +0200 Subject: [PATCH] * net/shr.el (shr-browse-url): Fix interactive spec. --- lisp/ChangeLog | 2 ++ lisp/net/shr.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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 + * 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 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) -- 2.39.2