1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00

Checkdoc fixes in eshell/*.el

* lisp/eshell/em-elecslash.el:
* lisp/eshell/em-extpipe.el:
* lisp/eshell/em-pred.el (eshell-get-delimited-modifier-argument):
* lisp/eshell/esh-cmd.el (eshell--unmark-deferrable)
(eshell-named-command-hook):
* lisp/eshell/esh-module.el (eshell-module--feature-name):
* lisp/eshell/esh-util.el (eshell-find-delimiter): Checkdoc fixes.
This commit is contained in:
Stefan Kangas 2024-07-08 16:50:17 +02:00
parent 23c1ba81dd
commit 7350457c79
6 changed files with 7 additions and 8 deletions

View File

@ -108,4 +108,4 @@ insertion."
(insert "/")))))
(provide 'em-elecslash)
;;; esh-elecslash.el ends here
;;; em-elecslash.el ends here

View File

@ -217,4 +217,4 @@ as though it were Eshell syntax."
(error "Unhandled external pipeline in input text"))
(provide 'em-extpipe)
;;; esh-extpipe.el ends here
;;; em-extpipe.el ends here

View File

@ -417,7 +417,7 @@ delimiter.
If CHAINED-P is true, then another delimited modifier argument
will immediately follow this one. In this case, when the opening
and closing delimiters are the same, update point to be just
before the closing delimiter. This allows modifiers like
before the closing delimiter. This allows modifiers like
`:s/match/repl' to work as expected."
(when-let* ((open (char-after))
(close (cdr (assoc open eshell-pred-delimiter-pairs)))

View File

@ -154,8 +154,7 @@ To prevent a command from executing at all, set
:type 'hook)
(defcustom eshell-named-command-hook nil
"A set of functions called before
a named command is invoked.
"A set of functions called before a named command is invoked.
Each function will be passed the command name and arguments that were
passed to `eshell-named-command'.
@ -816,7 +815,7 @@ current ones (see `eshell-duplicate-handles')."
This changes COMMAND in-place by converting function calls listed
in `eshell-deferrable-commands' to their non-deferrable forms so
that Eshell doesn't erroneously allow deferring it. For example,
`eshell-named-command' becomes `eshell-named-command*', "
`eshell-named-command' becomes `eshell-named-command*'."
(let ((cmd command))
(when (memq (car cmd) '(let progn))
(setq cmd (car (last cmd))))

View File

@ -99,7 +99,7 @@ extension module; if nil, KIND defaults to `extension'."
(let ((module-name (symbol-name module))
(prefix (cond ((eq kind 'core) "esh-")
((memq kind '(extension nil)) "em-")
(t (error "unknown module kind %s" kind)))))
(t (error "Unknown module kind %s" kind)))))
(if (string-match "^eshell-\\(.*\\)" module-name)
(concat prefix (match-string 1 module-name))
(error "Invalid Eshell module name: %s" module))))

View File

@ -288,7 +288,7 @@ The value returned is the last form in BODY."
(defun eshell-find-delimiter
(open close &optional bound reverse-p backslash-p)
"From point, find the CLOSE delimiter corresponding to OPEN.
The matching is bounded by BOUND. If REVERSE-P is non-nil,
The matching is bounded by BOUND. If REVERSE-P is non-nil,
process the region backwards.
If BACKSLASH-P is non-nil, or OPEN and CLOSE are different