(eww-bookmark-browse): Don't bug out if it's the only window.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24cc16ee0e732abf20239ba3a5966ec530adf875..cd21329bbfc6f9eb3b74a0abf4d9f86a978276e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        (eww-add-bookmark): New command.
        (eww-bookmark-mode): New mode and commands.
        (eww-add-bookmark): Remove newlines from the title.
+       (eww-bookmark-browse): Don't bug out if it's the only window.
 
 2013-06-26  Glenn Morris  <rgm@gnu.org>
 

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index cee2146296d1083221c323fb749ec03568116d4e..3579f656a1df2572c9384717fe435e544a25beaa 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1043,7 +1043,10 @@ The browser to used is specified by the `shr-external-browser' variable."
   (let ((bookmark (get-text-property (line-beginning-position) 'eww-bookmark)))
     (unless bookmark
       (error "No bookmark on the current line"))
-    (delete-window)
+    ;; We wish to leave this window, but if it's the only window here,
+    ;; just let it remain.
+    (ignore-errors
+      (delete-window))
     (eww (plist-get bookmark :url))))
 
 (defun eww-next-bookmark ()