diff options
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index b3c8e2cb698..b05046bfbd3 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1348,7 +1348,7 @@ Prefix ARG controls sort order, see `proced-sort-interactive'." (defun proced-format-time (time) "Format time interval TIME." - (let* ((ftime (float-time time)) + (let* ((ftime (encode-time time 'integer)) (days (truncate ftime 86400)) (ftime (mod ftime 86400)) (hours (truncate ftime 3600)) @@ -1744,9 +1744,10 @@ The value returned is the value of the last form in BODY." (save-window-excursion ;; Analogous to `dired-pop-to-buffer' ;; Don't split window horizontally. (Bug#1806) - (let (split-width-threshold) - (pop-to-buffer (current-buffer))) - (fit-window-to-buffer (get-buffer-window) nil 1) + (display-buffer (current-buffer) + '(display-buffer-in-direction + (direction . bottom) + (window-height . fit-window-to-buffer))) ,@body)))) (defun proced-send-signal (&optional signal process-alist) |