awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-13 13:13:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(:term): ensure process-buffer is current

Browse Source
This commit is contained in:
DennieTeMolder
2025-07-14 14:39:22 +02:00
committed by Henrik Lissner
parent ed9190ef00
commit cf278cab55
1 changed files with 25 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lisp/doom-ui.el
View File

@@ -356,13 +356,14 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original
(add-hook 'comint-exec-hook #'buffer-disable-undo)
(defadvice! doom--comint-enable-undo-a (process _string)
:after #'comint-output-filter
(let ((start-marker comint-last-output-start))
(when (and (< start-marker
(or (if process (process-mark process))
(point-max-marker)))
(eq (char-before start-marker) ?\n)) ;; Account for some of the IELM’s wilderness.
(buffer-enable-undo)
(setq buffer-undo-list nil))))
(with-current-buffer (process-buffer process)
(let ((start-marker comint-last-output-start))
(when (and (< start-marker
(or (if process (process-mark process))
(point-max-marker)))
(eq (char-before start-marker) ?\n)) ;; Account for some of the IELM’s wilderness.
(buffer-enable-undo)
(setq buffer-undo-list nil)))))
;; Protect prompts from accidental modifications.
(setq-default comint-prompt-read-only t)
@@ -375,22 +376,23 @@ windows, switch to `doom-fallback-buffer'. Otherwise, delegate to original
(defadvice! doom--comint-protect-output-in-visual-modes-a (process _string)
:after #'comint-output-filter
;; Adapted from https://github.com/michalrus/dotfiles/blob/c4421e361400c4184ea90a021254766372a1f301/.emacs.d/init.d/040-terminal.el.symlink#L33-L49
(let* ((start-marker comint-last-output-start)
(end-marker (or (if process (process-mark process))
(point-max-marker))))
(when (< start-marker end-marker) ;; Account for some of the IELM’s wilderness.
(let ((inhibit-read-only t))
;; Make all past output read-only (disallow buffer modifications)
(add-text-properties comint-last-input-start (1- end-marker) '(read-only t))
;; Disallow interleaving.
(remove-text-properties start-marker (1- end-marker) '(rear-nonsticky))
;; Make sure that at `max-point' you can always append. Important for
;; bad REPLs that keep writing after giving us prompt (e.g. sbt).
(add-text-properties (1- end-marker) end-marker '(rear-nonsticky t))
;; Protect fence (newline of input, just before output).
(when (eq (char-before start-marker) ?\n)
(remove-text-properties (1- start-marker) start-marker '(rear-nonsticky))
(add-text-properties (1- start-marker) start-marker '(read-only t)))))))
(with-current-buffer (process-buffer process)
(let* ((start-marker comint-last-output-start)
(end-marker (or (if process (process-mark process))
(point-max-marker))))
(when (< start-marker end-marker) ;; Account for some of the IELM’s wilderness.
(let ((inhibit-read-only t))
;; Make all past output read-only (disallow buffer modifications)
(add-text-properties comint-last-input-start (1- end-marker) '(read-only t))
;; Disallow interleaving.
(remove-text-properties start-marker (1- end-marker) '(rear-nonsticky))
;; Make sure that at `max-point' you can always append. Important for
;; bad REPLs that keep writing after giving us prompt (e.g. sbt).
(add-text-properties (1- end-marker) end-marker '(rear-nonsticky t))
;; Protect fence (newline of input, just before output).
(when (eq (char-before start-marker) ?\n)
(remove-text-properties (1- start-marker) start-marker '(rear-nonsticky))
(add-text-properties (1- start-marker) start-marker '(read-only t))))))))
;; UX: If the user is anywhere but the last prompt, typing should move them
;; there instead of unhelpfully spew read-only errors at them.