# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902984744 0
# Node ID 9ffaa505edc7a32cc26b34e77e0c3675405ff42b
# Parent  26e379429f7f1623288c31bcf82c019ef32f96a8
(PC-do-completion): Exclude ./ and ../ from completion.

diff -r 26e379429f7f -r 9ffaa505edc7 lisp/complete.el
--- a/lisp/complete.el	Wed Aug 12 22:33:01 1998 +0000
+++ b/lisp/complete.el	Thu Aug 13 05:05:44 1998 +0000
@@ -562,10 +562,12 @@
 				  "\\|")
 				 "\\)\\'")))
 
-	       ;; Check if there are any without an ignored extension
+	       ;; Check if there are any without an ignored extension.
+	       ;; Also ignore `.' and `..'.
 	       (setq p nil)
 	       (while p2
 		 (or (string-match PC-ignored-regexp (car p2))
+		     (string-match "\\(\\`\\|/\\)[.][.]?/?\\'" (car p2))
 		     (setq p (cons (car p2) p)))
 		 (setq p2 (cdr p2)))