# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1014671040 0
# Node ID 7f72a2792acc36432ed69ee6f49289c7c4bf57ad
# Parent  788ea54634045e0a91a2d7bbb8244e516a9d9a9b
(shell-pcomplete-setup-done): New variable.
(shell-pcomplete): Use it instead of shell-pcomplete-setup-p.
(shell-pcomplete-reverse): Ditto.

diff -r 788ea5463404 -r 7f72a2792acc lisp/shell.el
--- a/lisp/shell.el	Mon Feb 25 17:44:03 2002 +0000
+++ b/lisp/shell.el	Mon Feb 25 21:04:00 2002 +0000
@@ -858,13 +858,15 @@
 	(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 (prog1 shell-pcomplete-setup-p
-           (setq shell-pcomplete-setup-p t))
+  (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)
@@ -875,8 +877,8 @@
 This function merely invokes `pcomplete-reverse', after ensuring this
 buffer is set up for it."
   (interactive)
-  (unless (prog1 shell-pcomplete-setup-p
-	    (setq shell-pcomplete-setup-p t))
+  (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)