1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

; Clean up some 'require' and 'declare-function' calls in Eshell

* lisp/eshell/em-ls.el:
* lisp/eshell/esh-cmd.el:
* lisp/eshell/esh-mode.el:
* lisp/eshell/esh-ext.el: Remove superfluous 'declare-function' calls.

* lisp/eshell/esh-proc.el (pcomplete): Require this explicitly instead
of transitively.
This commit is contained in:
Jim Porter 2024-05-10 09:27:30 -07:00
parent 184d6e8c02
commit ffc70962ca
5 changed files with 8 additions and 18 deletions

View file

@ -293,7 +293,6 @@ instead."
(eshell-do-ls (nconc switches (list target)))))))))
(declare-function eshell-extended-glob "em-glob" (glob))
(declare-function dired-read-dir-and-switches "dired" (str))
(declare-function dired-goto-next-file "dired" ())

View file

@ -101,20 +101,18 @@
;;; Code:
(require 'esh-util)
(require 'eldoc)
(require 'esh-arg)
(require 'esh-proc)
(require 'esh-module)
(require 'esh-io)
(require 'esh-ext)
(require 'eldoc)
(require 'generator)
(require 'pcomplete)
(eval-when-compile
(require 'cl-lib)
(require 'pcomplete))
(declare-function pcomplete--here "pcomplete"
(&optional form stub paring form-only))
(require 'cl-lib))
(defgroup eshell-cmd nil
"Executing an Eshell command is as simple as typing it in and \

View file

@ -31,12 +31,12 @@
;;; Code:
(require 'esh-util)
(eval-when-compile (require 'cl-lib))
(require 'esh-io)
(require 'esh-arg)
(require 'esh-opt)
(require 'esh-proc)
(require 'esh-util)
(defgroup eshell-ext nil
"External commands are invoked when operating system executables are
@ -90,10 +90,6 @@ but Eshell will be able to understand
(setq list (cdr list)))
file)))
;; This file provides itself then eval-when-compile loads files that require it.
;; This causes spurious "might not be defined at runtime" warnings.
(declare-function eshell-search-path "esh-ext" (name))
(defcustom eshell-windows-shell-file
(if (eshell-under-windows-p)
(if (string-match "\\(cmdproxy\\|sh\\)\\.\\(com\\|exe\\)"
@ -244,8 +240,6 @@ An external command simply means external to Emacs."
(cl-assert interp)
(if (functionp (car interp))
(apply (car interp) (append (cdr interp) args))
(require 'esh-proc)
(declare-function eshell-gather-process-output "esh-proc" (command args))
(eshell-gather-process-output
(car interp) (append (cdr interp) args)))))

View file

@ -694,9 +694,6 @@ newline."
(defun eshell-send-eof-to-process ()
"Send EOF to the currently-running \"head\" process."
(interactive)
(require 'esh-mode)
(declare-function eshell-send-input "esh-mode"
(&optional use-region queue-p no-newline))
(eshell-send-input nil nil t)
(when (eshell-head-process)
(process-send-eof (eshell-head-process))))

View file

@ -27,6 +27,8 @@
(require 'esh-io)
(require 'esh-util)
(require 'pcomplete)
(defgroup eshell-proc nil
"When Eshell invokes external commands, it always does so
asynchronously, so that Emacs isn't tied up waiting for the process to