[nongnu] elpa/helm a359500109 1/3: Fix displaying error buffer in helm-packages-do-async

[ELPA Syncer]

branch: elpa/helm
commit a3595001098bef01314dad941b21e795f04aa280
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix displaying error buffer in helm-packages-do-async
---
 helm-packages.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/helm-packages.el b/helm-packages.el
index 2ad97085e9..8c7c43dfa4 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -101,9 +101,12 @@ Argument ERROR-FILE is the file where errors are logged, 
if some."
                    (insert error-data)))))))
       (lambda (result)
         (if (file-exists-p error-file)
-            (progn (pop-to-buffer (find-file-noselect error-file))
-                   (delete-file error-file)
-                   (helm-packages--async-modeline-mode -1))
+            (let ((buf (find-file-noselect error-file)))
+              (pop-to-buffer
+               buf '(nil . ((window-height . fit-window-to-buffer))))
+              (special-mode)
+              (delete-file error-file)
+              (helm-packages--async-modeline-mode -1))
           (when result
             (setq package-selected-packages
                   (append result package-selected-packages))