Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename some symbols to reflect their purposes

Browse source 
* eat.el (eat-shell-prompt-annotation-delay): Rename to
'eat-shell-prompt-annotation-correction-delay'.
* eat.el (eat--update-shell-prompt-mark-overlays): Rename to
'eat--correct-shell-prompt-mark-overlays'.
* eat.el (eat--shell-prompt-annotation-update-timer): Rename to
'eat--shell-prompt-annotation-correction-timer'.
* eat.el (eat-mode, eat--process-output-queue, eat--filter):
Update references to renamed symbols.
This commit is contained in:
Akib Azmain Turja 2022-12-07 11:06:44 +06:00
parent 693940c733
commit a65b7bc064
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
eat.el
View file

@ -210,10 +210,13 @@ The value can be one of the following:
"Face used in annotation to indicate the command has failed." "Face used in annotation to indicate the command has failed."
:group 'eat-ui) :group 'eat-ui)
(defcustom eat-shell-prompt-annotation-delay 0.1 (defcustom eat-shell-prompt-annotation-correction-delay 0.1
"Seconds to wait before updating prompt annotations. "Seconds to wait before correcting shell prompt annotations.
Nil means update immediately." Wait this many second after terminal update before correcting shell
prompt annotation.
Nil means correct immediately after terminal update."
:type '(choice (const :tag "Immediately" nil) :type '(choice (const :tag "Immediately" nil)
number) number)
:group 'eat-ui) :group 'eat-ui)
@ -4286,8 +4289,8 @@ If HOST isn't the host Emacs is running on, don't do anything."
(put-text-property (1- (point)) (point) (put-text-property (1- (point)) (point)
'eat--shell-prompt-end t)))) 'eat--shell-prompt-end t))))
(defun eat--update-shell-prompt-mark-overlays (buffer) (defun eat--correct-shell-prompt-mark-overlays (buffer)
"Update all overlays used to add mark before shell prompt. "Correct all overlays used to add mark before shell prompt.
BUFFER is the terminal buffer." BUFFER is the terminal buffer."
(when (and (buffer-live-p buffer) (when (and (buffer-live-p buffer)
@ -4782,7 +4785,7 @@ END if it's safe to do so."
eat--pending-output-chunks eat--pending-output-chunks
eat--output-queue-first-chunk-time eat--output-queue-first-chunk-time
eat--process-output-queue-timer eat--process-output-queue-timer
eat--shell-prompt-annotation-update-timer)) eat--shell-prompt-annotation-correction-timer))
;; This is intended; input methods don't work on read-only buffers. ;; This is intended; input methods don't work on read-only buffers.
(setq buffer-read-only nil (setq buffer-read-only nil
buffer-undo-list t buffer-undo-list t
@ -4892,8 +4895,8 @@ The output chunks are pushed, so last output appears first.")
(defvar eat--process-output-queue-timer nil (defvar eat--process-output-queue-timer nil
"Timer to process output queue.") "Timer to process output queue.")
(defvar eat--shell-prompt-annotation-update-timer nil (defvar eat--shell-prompt-annotation-correction-timer nil
"Timer to update shell prompt annotations.") "Timer to correct shell prompt annotations.")
(defun eat-kill-process () (defun eat-kill-process ()
"Kill Eat process in current buffer." "Kill Eat process in current buffer."
@ -4950,12 +4953,12 @@ OS's."
(max (point-min) (max (point-min)
(- (eat-term-display-beginning eat--terminal) (- (eat-term-display-beginning eat--terminal)
eat-term-scrollback-size)))) eat-term-scrollback-size))))
(if (null eat-shell-prompt-annotation-delay) (if (null eat-shell-prompt-annotation-correction-delay)
(eat--update-shell-prompt-mark-overlays buffer) (eat--correct-shell-prompt-mark-overlays buffer)
(setq eat--shell-prompt-annotation-update-timer (setq eat--shell-prompt-annotation-correction-timer
(run-with-timer (run-with-timer
eat-shell-prompt-annotation-delay eat-shell-prompt-annotation-correction-delay
nil #'eat--update-shell-prompt-mark-overlays nil #'eat--correct-shell-prompt-mark-overlays
buffer))) buffer)))
(when synchronize-scroll (when synchronize-scroll
(funcall eat--synchronize-scroll-function)))))) (funcall eat--synchronize-scroll-function))))))
@ -4966,8 +4969,8 @@ OS's."
(with-current-buffer (process-buffer process) (with-current-buffer (process-buffer process)
(when eat--process-output-queue-timer (when eat--process-output-queue-timer
(cancel-timer eat--process-output-queue-timer)) (cancel-timer eat--process-output-queue-timer))
(when eat--shell-prompt-annotation-update-timer (when eat--shell-prompt-annotation-correction-timer
(cancel-timer eat--shell-prompt-annotation-update-timer)) (cancel-timer eat--shell-prompt-annotation-correction-timer))
(unless eat--output-queue-first-chunk-time (unless eat--output-queue-first-chunk-time
(setq eat--output-queue-first-chunk-time (current-time))) (setq eat--output-queue-first-chunk-time (current-time)))
(push output eat--pending-output-chunks) (push output eat--pending-output-chunks)