# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 766253915 0
# Node ID 9481abcaa7de3dd1cecaba07d394e282452c8d8e
# Parent  a6803ff29cca464066a6b6cb9e7b58ef2941eabf
(comint-dynamic-complete-as-filename): Simplify.

diff -r a6803ff29cca -r 9481abcaa7de lisp/comint.el
--- a/lisp/comint.el	Wed Apr 13 06:24:06 1994 +0000
+++ b/lisp/comint.el	Wed Apr 13 16:18:35 1994 +0000
@@ -1836,14 +1836,11 @@
   (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 @@
            (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))