diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-07 16:38:55 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-07 16:39:22 +0200 |
| commit | 00a0226ba53598bbe71d12d877121fdcb194e2c9 (patch) | |
| tree | b9e0adccc18072b9702ae389c61b8f526b395540 | |
| parent | a98413726f5a10676f9faf4c4013ac6eaa53b42b (diff) | |
| download | emacs-00a0226ba53598bbe71d12d877121fdcb194e2c9.tar.gz | |
Allow hooks to alter the process in prolog-ensure-process
* lisp/progmodes/prolog.el (prolog-ensure-process): Start the mode
after starting the process, so that the mode hook can talk to the
process (bug#46003).
| -rw-r--r-- | lisp/progmodes/prolog.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 8382c4bd099..9598209f5e5 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1355,8 +1355,6 @@ the variable `prolog-prompt-regexp'." (error "This Prolog system has defined no interpreter")) (unless (comint-check-proc "*prolog*") (with-current-buffer (get-buffer-create "*prolog*") - (prolog-inferior-mode) - ;; The "INFERIOR=yes" hack is for SWI-Prolog 7.2.3 and earlier, ;; which assumes it is running under Emacs if either INFERIOR=yes or ;; if EMACS is set to a nonempty value. The EMACS setting is @@ -1369,6 +1367,7 @@ the variable `prolog-prompt-regexp'." (cons "INFERIOR=yes" process-environment)))) (apply 'make-comint-in-buffer "prolog" (current-buffer) pname nil pswitches)) + (prolog-inferior-mode) (unless prolog-system ;; Setup auto-detection. |