diff options
| author | Utkarsh Singh | 2021-04-05 18:09:41 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-04-05 18:09:41 +0200 |
| commit | d2edc29db6278deb20bc04c878757eeee2029086 (patch) | |
| tree | f6b5feae7f6d1ca7f8cab20b0cdd3c346e63b0ea /lisp/eshell | |
| parent | 81940e9c0eddf64b1699341e8a35ef556e1593f8 (diff) | |
| download | emacs-d2edc29db6278deb20bc04c878757eeee2029086.tar.gz emacs-d2edc29db6278deb20bc04c878757eeee2029086.zip | |
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
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-script.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index 658ea085c95..1f08e891919 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el | |||
| @@ -60,8 +60,9 @@ This includes when running `eshell-command'." | |||
| 60 | "Initialize the script parsing code." | 60 | "Initialize the script parsing code." |
| 61 | (setq-local eshell-interpreter-alist | 61 | (setq-local eshell-interpreter-alist |
| 62 | (cons (cons (lambda (file _args) | 62 | (cons (cons (lambda (file _args) |
| 63 | (string= (file-name-nondirectory file) | 63 | (and (file-regular-p file) |
| 64 | "eshell")) | 64 | (string= (file-name-nondirectory file) |
| 65 | "eshell"))) | ||
| 65 | 'eshell/source) | 66 | 'eshell/source) |
| 66 | eshell-interpreter-alist)) | 67 | eshell-interpreter-alist)) |
| 67 | (setq-local eshell-complex-commands | 68 | (setq-local eshell-complex-commands |