summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJim Porter <jporterbugs@gmail.com>2023-01-17 20:51:15 -0800
committerJim Porter <jporterbugs@gmail.com>2023-01-18 09:14:59 -0800
commitdc3f85fd4b00b4f43d781eb5803a995019a57d57 (patch)
treeb39f013f6382dd8fc730e7a3e7c667513b7e90c4 /lisp
parent6a8338a8bc85d891a42644354925ffb4a93d93a6 (diff)
downloademacs-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.el3
-rw-r--r--lisp/eshell/esh-var.el7
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))