(PC-do-completion): Exclude ./ and ../ from completion.

06cab6db · Richard M. Stallman · f868e34c · 06cab6db
Commit 06cab6db authored Aug 13, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/complete.el lisp/complete.el +3 -1

No files found.
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -562,10 +562,12 @@ of `minibuffer-completion-table' and the minibuffer contents.")
 				  "\\|")
 				 "\\)\\'")))

-	       ;; 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)))