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

Use more uniform names for tracer functions

Browse source 
* eat.el: Rename 'eat--eshell-trace-...' symbols to
'eat--trace-eshell-...'.
This commit is contained in:
Akib Azmain Turja 2022-12-03 11:18:28 +06:00
parent d918dbae87
commit 55c7d21cef
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
eat.el
View file

@ -5396,7 +5396,7 @@ FN is original definition of `eat-reset'."
(funcall eat-term-redisplay terminal)))) (funcall eat-term-redisplay terminal))))
(funcall fn))) (funcall fn)))
(defun eat--eshell-trace-adjust-make-process-args (fn &rest args) (defun eat--trace-eshell-adjust-make-process-args (fn &rest args)
"Trace `eat--eshell-adjust-make-process-args'. "Trace `eat--eshell-adjust-make-process-args'.
ARGS is passed to FN, `eat--eshell-adjust-make-process-args', which ARGS is passed to FN, `eat--eshell-adjust-make-process-args', which
@ -5439,7 +5439,7 @@ see."
variables))))))))) variables)))))))))
(apply fn args))) (apply fn args)))
(defun eat--eshell-trace-output-filter (fn) (defun eat--trace-eshell-output-filter (fn)
"Trace `eat--eshell-output-filter'. "Trace `eat--eshell-output-filter'.
FN is the original definition of `eat--eshell-output-filter', which FN is the original definition of `eat--eshell-output-filter', which
@ -5462,7 +5462,7 @@ see."
(funcall eat-term-redisplay terminal)))) (funcall eat-term-redisplay terminal))))
(funcall fn)))) (funcall fn))))
(defun eat--eshell-trace-cleanup (fn) (defun eat--trace-eshell-cleanup (fn)
"Trace `eat--eshell-cleanup'. "Trace `eat--eshell-cleanup'.
FN is the original definition of `eat--eshell-cleanup', which see." FN is the original definition of `eat--eshell-cleanup', which see."
@ -5490,11 +5490,11 @@ FN is the original definition of `eat--eshell-cleanup', which see."
(advice-add #'eat--sentinel :around #'eat--trace-sentinel) (advice-add #'eat--sentinel :around #'eat--trace-sentinel)
(advice-add #'eat-reset :around #'eat--trace-reset) (advice-add #'eat-reset :around #'eat--trace-reset)
(advice-add #'eat--eshell-adjust-make-process-args :around (advice-add #'eat--eshell-adjust-make-process-args :around
#'eat--eshell-trace-adjust-make-process-args) #'eat--trace-eshell-adjust-make-process-args)
(advice-add #'eat--eshell-output-filter :around (advice-add #'eat--eshell-output-filter :around
#'eat--eshell-trace-output-filter) #'eat--trace-eshell-output-filter)
(advice-add #'eat--eshell-cleanup :around (advice-add #'eat--eshell-cleanup :around
#'eat--eshell-trace-cleanup)) #'eat--trace-eshell-cleanup))
(advice-remove #'eat-exec #'eat--trace-exec) (advice-remove #'eat-exec #'eat--trace-exec)
(advice-remove #'eat--process-output-queue (advice-remove #'eat--process-output-queue
#'eat--trace-process-output-queue) #'eat--trace-process-output-queue)
@ -5503,11 +5503,11 @@ FN is the original definition of `eat--eshell-cleanup', which see."
(advice-remove #'eat--sentinel #'eat--trace-sentinel) (advice-remove #'eat--sentinel #'eat--trace-sentinel)
(advice-remove #'eat-reset #'eat--trace-reset) (advice-remove #'eat-reset #'eat--trace-reset)
(advice-remove #'eat--eshell-adjust-make-process-args (advice-remove #'eat--eshell-adjust-make-process-args
#'eat--eshell-trace-adjust-make-process-args) #'eat--trace-eshell-adjust-make-process-args)
(advice-remove #'eat--eshell-output-filter (advice-remove #'eat--eshell-output-filter
#'eat--eshell-trace-output-filter) #'eat--trace-eshell-output-filter)
(advice-remove #'eat--eshell-cleanup (advice-remove #'eat--eshell-cleanup
#'eat--eshell-trace-cleanup) #'eat--trace-eshell-cleanup)
(dolist (buffer (buffer-list)) (dolist (buffer (buffer-list))
(when (buffer-local-value 'eat--trace-output-buffer buffer) (when (buffer-local-value 'eat--trace-output-buffer buffer)
(with-current-buffer buffer (with-current-buffer buffer