diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-03-23 00:29:43 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-03-23 00:29:43 +0000 |
| commit | 68a8818d73e611545e5c30c8500217a89d2e5f7a (patch) | |
| tree | c997286a8c1f6bc066847f5b6cb79fb623386ae5 /lisp/complete.el | |
| parent | cb58a6d07eec1e9473af6de045526a6149f80c9e (diff) | |
| download | emacs-68a8818d73e611545e5c30c8500217a89d2e5f7a.tar.gz | |
(PC-expand-many-files): Apply completion-ignored-extensions.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 022e9aebafb..e007f53e0de 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -836,9 +836,23 @@ or properties are considered." (delete-backward-char 1) (insert "\")") (goto-char (point-min)) - (let ((files (read (current-buffer)))) + (let ((files (read (current-buffer))) (p nil)) (kill-buffer (current-buffer)) - files)))) + (or (equal completion-ignored-extensions PC-ignored-extensions) + (setq PC-ignored-regexp + (concat "\\(" + (mapconcat + 'regexp-quote + (setq PC-ignored-extensions + completion-ignored-extensions) + "\\|") + "\\)\\'"))) + (setq p nil) + (while files + (or (string-match PC-ignored-regexp (car files)) + (setq p (cons (car files) p))) + (setq files (cdr files))) + p)))) ;;; Facilities for loading C header files. This is independent from the ;;; main completion code. See also the variable `PC-include-file-path' |