diff options
| author | John Wiegley <johnw@newartisans.com> | 2017-11-28 11:41:41 -0800 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2017-11-28 11:41:50 -0800 |
| commit | 700c92c5de43bf3b4d3213b2e2ebcf33b96e577f (patch) | |
| tree | 987bef17ea88e3de37bea83ea58c338efe590f40 /lisp/use-package | |
| parent | 6f9d4342ca2f8b6dc4dbeb8424525b99719855c3 (diff) | |
| download | emacs-700c92c5de43bf3b4d3213b2e2ebcf33b96e577f.tar.gz emacs-700c92c5de43bf3b4d3213b2e2ebcf33b96e577f.tar.bz2 emacs-700c92c5de43bf3b4d3213b2e2ebcf33b96e577f.zip | |
Append to *use-package* when debugging, don't clear it
Fixes https://github.com/jwiegley/use-package/issues/476
Diffstat (limited to 'lisp/use-package')
| -rw-r--r-- | lisp/use-package/use-package.el | 17 |
1 files 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)))) |