From: John Wiegley <johnw@newartisans.com>
Date: Tue, 28 Nov 2017 19:41:41 +0000 (-0800)
Subject: Append to *use-package* when debugging, don't clear it
X-Git-Tag: emacs-29.0.90~1306^2~15^2~247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=700c92c5de43bf3b4d3213b2e2ebcf33b96e577f;p=emacs.git

Append to *use-package* when debugging, don't clear it

Fixes https://github.com/jwiegley/use-package/issues/476
---

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