From: Colin Walters <walters@gnu.org>
Date: Mon, 11 Mar 2002 21:13:14 +0000 (+0000)
Subject: (toplevel): Revert previous change to use pcomplete.
X-Git-Tag: ttn-vms-21-2-B4~16225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f36167aa63e856934d286067a59afacc90c4930;p=emacs.git

(toplevel): Revert previous change to use pcomplete.
(shell-mode): Ditto.
(shell-pcomplete-setup-done): Remove.
(shell-pcomplete): Ditto.
(shell-pcomplete-reverse): Ditto.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 7aad026343e..5ff107bb8c2 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -310,8 +310,7 @@ Thus, this does not include the shell's current directory.")
        (setq shell-mode-map (nconc (make-sparse-keymap) comint-mode-map))
        (define-key shell-mode-map "\C-c\C-f" 'shell-forward-command)
        (define-key shell-mode-map "\C-c\C-b" 'shell-backward-command)
-       (define-key shell-mode-map "\t" 'shell-pcomplete)
-       (define-key shell-mode-map "\M-\t" 'shell-pcomplete-reverse)
+       (define-key shell-mode-map "\t" 'comint-dynamic-complete)
        (define-key shell-mode-map "\M-?"
 	 'comint-dynamic-list-filename-completions)
        (define-key shell-mode-map [menu-bar completion]
@@ -398,6 +397,7 @@ buffer."
   (setq comint-delimiter-argument-list shell-delimiter-argument-list)
   (setq comint-file-name-chars shell-file-name-chars)
   (setq comint-file-name-quote-list shell-file-name-quote-list)
+  (setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start comint-prompt-regexp)
   (make-local-variable 'font-lock-defaults)
@@ -858,32 +858,6 @@ See `shell-command-regexp'."
 	(progn (goto-char (match-beginning 1))
 	       (skip-chars-forward ";&|")))))
 
-(defvar shell-pcomplete-setup-done nil)
-
-(defun shell-pcomplete ()
-  "Cycle forwards through completions at point, using `pcomplete'.
-This function merely invokes `pcomplete', after ensuring this buffer
-is set up for it."
-  (interactive)
-  (unless shell-pcomplete-setup-done
-    (setq shell-pcomplete-setup-done t)
-    (pcomplete-comint-setup 'shell-dynamic-complete-functions))
-  ;; Convince pcomplete we are calling it directly
-  (setq this-command 'pcomplete)
-  (call-interactively #'pcomplete))
-
-(defun shell-pcomplete-reverse ()
-  "Cycle backwards through completions at point, using `pcomplete'.
-This function merely invokes `pcomplete-reverse', after ensuring this
-buffer is set up for it."
-  (interactive)
-  (unless shell-pcomplete-setup-done
-    (setq shell-pcomplete-setup-done t)
-    (pcomplete-comint-setup 'shell-dynamic-complete-functions))
-  ;; Convince pcomplete we are calling it directly
-  (setq this-command 'pcomplete-reverse)
-  (call-interactively #'pcomplete-reverse))  
-
 (defun shell-dynamic-complete-command ()
   "Dynamically complete the command at point.
 This function is similar to `comint-dynamic-complete-filename', except that it