Mercurial > emacs
changeset 23009:9ffaa505edc7
(PC-do-completion): Exclude ./ and ../ from completion.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Aug 1998 05:05:44 +0000 |
| parents | 26e379429f7f |
| children | 196f32d1873f |
| files | lisp/complete.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))