diff options
Diffstat (limited to 'lisp/eshell/em-cmpl.el')
| -rw-r--r-- | lisp/eshell/em-cmpl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el index 6c3032d069e..3b620b074d2 100644 --- a/lisp/eshell/em-cmpl.el +++ b/lisp/eshell/em-cmpl.el | |||
| @@ -306,7 +306,7 @@ to writing a completion function." | |||
| 306 | "Return the command name, possibly sans globbing." | 306 | "Return the command name, possibly sans globbing." |
| 307 | (let ((cmd (file-name-nondirectory (pcomplete-arg 'first)))) | 307 | (let ((cmd (file-name-nondirectory (pcomplete-arg 'first)))) |
| 308 | (setq cmd (if (and (> (length cmd) 0) | 308 | (setq cmd (if (and (> (length cmd) 0) |
| 309 | (eq (aref cmd 0) ?*)) | 309 | (eq (aref cmd 0) eshell-explicit-command-char)) |
| 310 | (substring cmd 1) | 310 | (substring cmd 1) |
| 311 | cmd)) | 311 | cmd)) |
| 312 | (if (eshell-under-windows-p) | 312 | (if (eshell-under-windows-p) |
| @@ -396,7 +396,7 @@ to writing a completion function." | |||
| 396 | (if (file-name-directory filename) | 396 | (if (file-name-directory filename) |
| 397 | (pcomplete-executables) | 397 | (pcomplete-executables) |
| 398 | (if (and (> (length filename) 0) | 398 | (if (and (> (length filename) 0) |
| 399 | (eq (aref filename 0) ?*)) | 399 | (eq (aref filename 0) eshell-explicit-command-char)) |
| 400 | (setq filename (substring filename 1) | 400 | (setq filename (substring filename 1) |
| 401 | pcomplete-stub filename | 401 | pcomplete-stub filename |
| 402 | glob-name t)) | 402 | glob-name t)) |