procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(comint-dynamic-complete-as-filename): Simplify.

Browse source
This commit is contained in:
Karl Heuer 1994-04-13 16:18:35 +00:00
parent 69eaf10d03
commit f79f58bc29
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/comint.el
View file

@ -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))