From f79f58bc2984a0acd672439711e86b778d8cbffc Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 13 Apr 1994 16:18:35 +0000 Subject: [PATCH] (comint-dynamic-complete-as-filename): Simplify. --- lisp/comint.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 7e57e88579b..dedc99a5144 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1836,14 +1836,11 @@ See `comint-dynamic-complete-filename'. Returns t if successful." (let* ((completion-ignore-case nil) (completion-ignored-extensions comint-completion-fignore) (success t) - (filename (comint-match-partial-filename)) - endpos pathdir pathnondir directory completion) - (setq endpos (if filename (match-end 0) (point))) - (or filename (setq filename "")) - (setq pathdir (file-name-directory filename) - pathnondir (file-name-nondirectory filename) - directory (if pathdir (comint-directory pathdir) default-directory) - completion (file-name-completion pathnondir directory)) + (filename (or (comint-match-partial-filename) "")) + (pathdir (file-name-directory filename)) + (pathnondir (file-name-nondirectory filename)) + (directory (if pathdir (comint-directory pathdir) default-directory)) + (completion (file-name-completion pathnondir directory))) (cond ((null completion) (message "No completions of %s" filename) (setq success nil)) @@ -1854,7 +1851,6 @@ See `comint-dynamic-complete-filename'. Returns t if successful." (comint-dynamic-list-filename-completions)) (t ; Completion string returned. (let ((file (concat (file-name-as-directory directory) completion))) - (goto-char endpos) (insert (substring (directory-file-name completion) (length pathnondir))) (cond ((symbolp (file-name-completion completion directory)) -- 2.39.5