From 685a2c0e9bd83f0518a324194a0797d337dfd67a Mon Sep 17 00:00:00 2001 From: HerbertMcSnout Date: Fri, 1 Feb 2019 14:31:48 -0600 Subject: [PATCH] Fixes #40 --- se-mode/se-inf.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/se-mode/se-inf.el b/se-mode/se-inf.el index 470171a..9791113 100644 --- a/se-mode/se-inf.el +++ b/se-mode/se-inf.el @@ -123,6 +123,7 @@ will kill the process, should be skipped if process is shared." (tq-close se-inf-queue) (kill-buffer (tq-buffer se-inf-queue)) (when (car se-inf-queue) + (ignore-errors (when se-inf-header-line-format (scroll-down-line))) (setq se-inf-header-queue nil se-inf-headers "" header-line-format nil) @@ -457,6 +458,16 @@ hourglass feature." (force-mode-line-update)) (defun se-inf-set-header-format () + (ignore-errors + (when (and (not se-inf-header-line-format) + se-inf-headers + (not (equal "" se-inf-headers))) + (scroll-up-line)) + (when (and se-inf-header-line-format + (or (null se-inf-headers) + (equal "" se-inf-headers))) + (scroll-down-line))) + (setq se-inf-header-line-format (unless (or (null se-inf-headers) (equal "" se-inf-headers)) '(:eval (aref se-inf-headers (mod se-inf-header-index 4))))))