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

This commit is contained in:
Ivan Kanis 2013-06-24 19:41:26 +02:00 committed by Lars Magne Ingebrigtsen
parent 71d4c19d3d
commit 5196f88a95
2 changed files with 3 additions and 1 deletions

View file

@ -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>

View file

@ -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)