From 700c92c5de43bf3b4d3213b2e2ebcf33b96e577f Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 28 Nov 2017 11:41:41 -0800 Subject: [PATCH] Append to *use-package* when debugging, don't clear it Fixes https://github.com/jwiegley/use-package/issues/476 --- lisp/use-package/use-package.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 83b9ae4f4aa..cc8a76bd1c2 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -1659,15 +1659,14 @@ this file. Usage: args) (and use-package-always-defer (list :deferred t)))))) - (if use-package-debug - (display-buffer - (save-current-buffer - (let ((buf (get-buffer-create "*use-package*"))) - (with-current-buffer buf - (delete-region (point-min) (point-max)) - (emacs-lisp-mode) - (insert (pp-to-string body))) - buf)))) + (when use-package-debug + (display-buffer + (save-current-buffer + (with-current-buffer (get-buffer-create "*use-package*") + (goto-char (point-max)) + (emacs-lisp-mode) + (insert (pp-to-string body)) + (current-buffer))))) body)))) -- 2.39.2