From 6b2677bd59b082096149c1581738eb749537f589 Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 5 Dec 2017 17:36:06 +0300 Subject: pancake-browse-url: use current buffer if it's a pancake buffer --- pancake.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'pancake.el') diff --git a/pancake.el b/pancake.el index 03022be..c11edf5 100644 --- a/pancake.el +++ b/pancake.el @@ -168,9 +168,12 @@ `browse-url-browser-function'." (when (or new-session (not (consp pancake-buffers))) (pancake)) - (with-current-buffer (car pancake-buffers) - (process-send-string pancake-process (concat url "\n")) - (display-buffer (current-buffer)))) + (let ((buffer (if (eq major-mode 'pancake-mode) + (current-buffer) + (car pancake-buffers)))) + (with-current-buffer buffer + (process-send-string pancake-process (concat url "\n")) + (display-buffer (current-buffer))))) (defun pancake-translate-color (name attr) "Translate pancake colors into emacs faces." -- cgit v1.2.3