Mercurial > emacs

changeset 21266:af9641af8877

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PC-expand-many-files): Apply completion-ignored-extensions.
author Karl Heuer <kwzh@gnu.org>
date Mon, 23 Mar 1998 00:29:43 +0000
parents 4ed8d9f3dd4b
children 5396874c652c
files lisp/complete.el
diffstat 1 files changed, 16 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/complete.el	Mon Mar 23 00:18:15 1998 +0000
+++ b/lisp/complete.el	Mon Mar 23 00:29:43 1998 +0000
@@ -836,9 +836,23 @@
       (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'