From 63fb20c112f2a32743ec9a71ff8f24d0d0115829 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 14 Jun 2006 12:26:03 +0100 Subject: [PATCH] dot-emacs: More w3m fiddling: restore previously-selected window. --- dot-emacs.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/dot-emacs.el b/dot-emacs.el index ca053b4..4222f53 100644 --- a/dot-emacs.el +++ b/dot-emacs.el @@ -299,12 +299,16 @@ Not much right now. Just support for doing MailCrypt stuff." If NEW-SESSION-P, start a new session." (interactive "sURL: \nP") (save-excursion - (select-window (or (and (not new-session-p) - (get-buffer-window "*w3m*")) - (progn - (if (one-window-p t) (split-window)) - (get-lru-window)))) - (w3m-browse-url url new-session-p))) + (let ((window (selected-window))) + (unwind-protect + (progn + (select-window (or (and (not new-session-p) + (get-buffer-window "*w3m*")) + (progn + (if (one-window-p t) (split-window)) + (get-lru-window)))) + (w3m-browse-url url new-session-p)) + (select-window window))))) (defvar mdw-good-url-browsers '((w3m . mdw-w3m-browse-url) -- 2.11.0