Fix cd to directories called "eshell" in eshell

* lisp/eshell/em-script.el (eshell-script-initialize): Allow changing directory to directories called "eshell" (bug#47547). Copyright-paperwork-exempt: yes

Fix cd to directories called "eshell" in eshell
* lisp/eshell/em-script.el (eshell-script-initialize): Allow changing directory to directories called "eshell" (bug#47547). Copyright-paperwork-exempt: yes
d2edc29d · Utkarsh Singh · Lars Ingebrigtsen · 81940e9c · d2edc29d
Commit d2edc29d authored Apr 05, 2021 by Utkarsh Singh Committed by Lars Ingebrigtsen Apr 05, 2021
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/eshell/em-script.el lisp/eshell/em-script.el +3 -2

No files found.
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -60,8 +60,9 @@ This includes when running `eshell-command'."
  "Initialize the script parsing code."
  (setq-local eshell-interpreter-alist
              (cons (cons (lambda (file _args)
-                            (string= (file-name-nondirectory file)
-                                     "eshell"))
+                            (and (file-regular-p file)
+                                 (string= (file-name-nondirectory file)
+                                          "eshell")))
                          'eshell/source)
                    eshell-interpreter-alist))
  (setq-local eshell-complex-commands