From 68a8818d73e611545e5c30c8500217a89d2e5f7a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 23 Mar 1998 00:29:43 +0000 Subject: [PATCH] (PC-expand-many-files): Apply completion-ignored-extensions. --- lisp/complete.el | 18 ++++++++++++++++-- 1 file 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' -- 2.39.5