Mercurial > emacs

comparison lisp/complete.el @ 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 780929dca508
children a63710b545db
comparison
equal deleted inserted replaced
21265:4ed8d9f3dd4b 21266:af9641af8877
834 (insert "\" \"")) 834 (insert "\" \""))
835 (goto-char (point-max)) 835 (goto-char (point-max))
836 (delete-backward-char 1) 836 (delete-backward-char 1)
837 (insert "\")") 837 (insert "\")")
838 (goto-char (point-min)) 838 (goto-char (point-min))
839 (let ((files (read (current-buffer)))) 839 (let ((files (read (current-buffer))) (p nil))
840 (kill-buffer (current-buffer)) 840 (kill-buffer (current-buffer))
841 files)))) 841 (or (equal completion-ignored-extensions PC-ignored-extensions)
842 (setq PC-ignored-regexp
843 (concat "\\("
844 (mapconcat
845 'regexp-quote
846 (setq PC-ignored-extensions
847 completion-ignored-extensions)
848 "\\|")
849 "\\)\\'")))
850 (setq p nil)
851 (while files
852 (or (string-match PC-ignored-regexp (car files))
853 (setq p (cons (car files) p)))
854 (setq files (cdr files)))
855 p))))
842 856
843 ;;; Facilities for loading C header files. This is independent from the 857 ;;; Facilities for loading C header files. This is independent from the
844 ;;; main completion code. See also the variable `PC-include-file-path' 858 ;;; main completion code. See also the variable `PC-include-file-path'
845 ;;; at top of this file. 859 ;;; at top of this file.
846 860