# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1028158334 0
# Node ID 8bb6a2e5d6bdefff8c89bf8fdce71d0306e1ed95
# Parent  f086b73cbf9728a5e576978b5088f92506138501
(pcomplete-comint-setup): Use `add-to-list', to prevent adding the
symbol `pcomplete' to shell-dynamic-complete-functions too many times.

diff -r f086b73cbf97 -r 8bb6a2e5d6bd lisp/pcomplete.el
--- a/lisp/pcomplete.el	Wed Jul 31 23:32:02 2002 +0000
+++ b/lisp/pcomplete.el	Wed Jul 31 23:32:14 2002 +0000
@@ -582,8 +582,7 @@
 		    (symbol-value completef-sym))))
     (if elem
 	(setcar elem 'pcomplete)
-      (nconc (symbol-value completef-sym)
-	     (list 'pcomplete)))))
+      (add-to-list completef-sym 'pcomplete))))
 
 ;;;###autoload
 (defun pcomplete-shell-setup ()