GNU bug report logs - #73738
30.0.91; eshell-xtra substitute bad keyword argument

Previous Next

Full log

Message #8 received at 73738 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Christopher Howard <christopher <at> librehacker.com>,
 Jim Porter <jporterbugs <at> gmail.com>
Cc: 73738 <at> debbugs.gnu.org
Subject: Re: bug#73738: 30.0.91; eshell-xtra substitute bad keyword argument
Date: Sun, 27 Oct 2024 12:15:18 +0200

> From: Christopher Howard <christopher <at> librehacker.com>
> Date: Thu, 10 Oct 2024 15:10:40 -0800
> 
> 
> (same problem occurs using emacs -Q)
> 1. [enable eshell-xtra module in eshell-modules-list]
> 2. [start new instance of eshell]
> 3. substitute ?E ?e beginning <return>
> 
> This throws error "Bad keyword argument equal".
> 
> ``` bt
> Debugger entered--Lisp error: (error "Bad keyword argument equal")
>   signal(error ("Bad keyword argument equal"))
>   error("Bad keyword argument %s" equal)
>   cl-substitute("?E" "?e" :test equal "beginning")
>   apply(cl-substitute "?E" "?e" :test equal "beginning")
>   eshell/substitute("?E" "?e" "beginning")
>   apply(eshell/substitute ("?E" "?e" "beginning"))
>   eshell-exec-lisp(eshell-print-maybe-n eshell-error-maybe-n eshell/substitute ("?E" "?e" "beginning") nil)
>   eshell-lisp-command(eshell/substitute ("?E" "?e" "beginning"))
>   eshell-plain-command("substitute" ("?E" "?e" "beginning"))
>   eshell-named-command("substitute" ("?E" "?e" "beginning"))
>   (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))
>   (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook)))
>   (condition-case err (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))) ((debug error) (eshell-errorn (error-message-string err)) (eshell-close-handles 1)))
>   (condition-case-unless-debug err (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))) (error (eshell-errorn (error-message-string err)) (eshell-close-handles 1)))
>   (if eshell-handle-errors (condition-case-unless-debug err (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))) (error (eshell-errorn (error-message-string err)) (eshell-close-handles 1))) (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))))
>   (eshell-condition-case err (let ((eshell-this-command-hook '(ignore))) (unwind-protect (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")) (mapc #'funcall eshell-this-command-hook))) (error (eshell-errorn (error-message-string err)) (eshell-close-handles 1)))
>   (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning")))
>   (let ((eshell-current-handles (eshell-duplicate-handles eshell-current-handles t))) (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning"))))
>   (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning"))) t)
>   (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning"))) t))
>   (unwind-protect (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob (eshell-concat nil "?" "E")) (eshell-extended-glob (eshell-concat nil "?" "e")) "beginning"))) t)) (run-hooks 'eshell-post-command-hook))
>   (progn (run-hooks 'eshell-pre-command-hook) (unwind-protect (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list (eshell-extended-glob ...) (eshell-extended-glob ...) "beginning"))) t)) (run-hooks 'eshell-post-command-hook)))
>   (let ((eshell-current-handles (eshell-create-handles t 'append)) eshell-current-subjob-p) (progn (run-hooks 'eshell-pre-command-hook) (unwind-protect (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list ... ... "beginning"))) t)) (run-hooks 'eshell-post-command-hook))))
>   (eshell-commands (progn (run-hooks 'eshell-pre-command-hook) (unwind-protect (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" (list ... ... "beginning"))) t)) (run-hooks 'eshell-post-command-hook))))
>   eval((eshell-commands (progn (run-hooks 'eshell-pre-command-hook) (unwind-protect (progn (eshell-with-copied-handles (eshell-trap-errors (eshell-named-command "substitute" ...)) t)) (run-hooks 'eshell-post-command-hook)))))
>   eshell-send-input(nil)
>   funcall-interactively(eshell-send-input nil)
>   call-interactively(eshell-send-input nil nil)
>   command-execute(eshell-send-input)
> ```

Jim, is this in your queue?

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.