[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ess 2ab843212d 2/3: Run `ess-request-a-process` hook af
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ess 2ab843212d 2/3: Run `ess-request-a-process` hook after `display-buffer` too |
Date: |
Mon, 3 Apr 2023 00:58:04 -0400 (EDT) |
branch: externals/ess
commit 2ab843212d835fb7df79677c201a067d209e630b
Author: Lionel Henry <lionel.hry@gmail.com>
Commit: Lionel Henry <lionel.hry@gmail.com>
Run `ess-request-a-process` hook after `display-buffer` too
---
lisp/ess-inf.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/ess-inf.el b/lisp/ess-inf.el
index e450b4b038..2eb4260eaa 100644
--- a/lisp/ess-inf.el
+++ b/lisp/ess-inf.el
@@ -871,11 +871,11 @@ to `ess-completing-read'."
(let ((proc-buf (ess-get-process-buffer proc)))
(if noswitch
(display-buffer proc-buf)
- (pop-to-buffer proc-buf)
- ;; If inferior startup has already finished, set screen
- ;; options again in case the post-run hook ran before a new
- ;; screen config was created by `pop-to-buffer' (#1243).
- (ess-if-verbose-write "ess-request-a-process: starting hook\n")
+ (pop-to-buffer proc-buf))
+ ;; If inferior startup has already finished, set screen
+ ;; options again in case the post-run hook ran before a new
+ ;; screen config was created by `pop-to-buffer' (#1243).
+ (with-current-buffer proc-buf
(ess--execute-screen-options-bg))))
proc))