procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use proper types for Eshell warnings

Browse source 
* 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.
This commit is contained in:
Jim Porter 2023-01-17 20:51:15 -08:00
parent 6a8338a8bc
commit dc3f85fd4b
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/eshell/em-basic.el
View file

@ -132,7 +132,8 @@ or `eshell-printn' for display."
;; bug#27361. ;; bug#27361.
(when (equal output-newline '(nil)) (when (equal output-newline '(nil))
(display-warning (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)))) (eshell-echo args output-newline))))
(defun eshell/printnl (&rest args) (defun eshell/printnl (&rest args)

3
lisp/eshell/esh-var.el
View file

@ -613,7 +613,8 @@ If QUOTED is non-nil, this was invoked inside double-quotes."
(if (or (eq max-arity 'many) (>= max-arity 2)) (if (or (eq max-arity 'many) (>= max-arity 2))
(funcall target indices quoted) (funcall target indices quoted)
(display-warning (display-warning
:warning (concat "Function for `eshell-variable-aliases-list' " '(eshell variable-alias)
(concat "Function for `eshell-variable-aliases-list' "
"entry should accept two arguments: INDICES " "entry should accept two arguments: INDICES "
"and QUOTED.'")) "and QUOTED.'"))
(funcall target indices))))) (funcall target indices)))))