diff options
author | Jim Porter <jporterbugs@gmail.com> | 2023-01-17 20:51:15 -0800 |
---|---|---|
committer | Jim Porter <jporterbugs@gmail.com> | 2023-01-18 09:14:59 -0800 |
commit | dc3f85fd4b00b4f43d781eb5803a995019a57d57 (patch) | |
tree | b39f013f6382dd8fc730e7a3e7c667513b7e90c4 /lisp | |
parent | 6a8338a8bc85d891a42644354925ffb4a93d93a6 (diff) | |
download | emacs-dc3f85fd4b00b4f43d781eb5803a995019a57d57.tar.gz emacs-dc3f85fd4b00b4f43d781eb5803a995019a57d57.tar.bz2 emacs-dc3f85fd4b00b4f43d781eb5803a995019a57d57.zip |
Use proper types for Eshell warnings
* lisp/eshell/esh-var.el (eshell-get-variable):
* lisp/eshell/em-basic (eshell/echo): Don't use ':warning'; that's a
warning level, not a warning type.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/eshell/em-basic.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-var.el | 7 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/eshell/em-basic.el b/lisp/eshell/em-basic.el index dfbe4db0896..bfff3bdf56e 100644 --- a/lisp/eshell/em-basic.el +++ b/lisp/eshell/em-basic.el @@ -132,7 +132,8 @@ or `eshell-printn' for display." ;; bug#27361. (when (equal output-newline '(nil)) (display-warning - :warning "To terminate with a newline, you should use -N instead.")) + '(eshell echo) + "To terminate with a newline, you should use -N instead.")) (eshell-echo args output-newline)))) (defun eshell/printnl (&rest args) diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index df1413c2de7..dfc52083acb 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el @@ -613,9 +613,10 @@ If QUOTED is non-nil, this was invoked inside double-quotes." (if (or (eq max-arity 'many) (>= max-arity 2)) (funcall target indices quoted) (display-warning - :warning (concat "Function for `eshell-variable-aliases-list' " - "entry should accept two arguments: INDICES " - "and QUOTED.'")) + '(eshell variable-alias) + (concat "Function for `eshell-variable-aliases-list' " + "entry should accept two arguments: INDICES " + "and QUOTED.'")) (funcall target indices))))) ((symbolp target) (eshell-apply-indices (symbol-value target) indices quoted)) |