Edit file

File name : cedet-files.elc

Content :;ELC��� ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@238 Convert the REFERENCEDIR (a full path name) into a filename. Convert directory separation characters into ! characters. Optional argument TESTMODE is used by tests to avoid conversion to the file's truename, and dodging platform tricks. (defalias 'cedet-directory-name-to-file-name #[(referencedir &optional testmode) "\n\204\n�\304 !\305 !\203�\306 !\307>\204�\n\203L�\n\204(�\310\311 !! \312H\313=\203L�\314\315\316 \317H\227! \320H\321=\203D�\322\202E�\314 \320\323O\260\324\321\325\326\327\330 ##\211)\207" [referencedir file testmode system-type file-truename file-directory-p file-name-as-directory (windows-nt ms-dos) expand-file-name convert-standard-filename 1 58 "/" "drive_" char-to-string 0 2 47 "" nil subst-char-in-string 33 replace-regexp-in-string "!" "!!"] 8 (#$ . 409)]) #@222 Reverse the process of `cedet-directory-name-to-file-name'. Convert REFERENCEFILE to a directory name replacing ! with /. Optional TESTMODE is used in tests to avoid doing some platform specific conversions during tests. (defalias 'cedet-file-name-to-directory-name #[(referencefile &optional testmode) "\305\306\307 #\310\311\312 #\n\313>\204�\203<�\314\315 \"\203.�\316\317 \"\211\320 \317\225\321OQ)\314\322 \"\203<�\311 \317\321OP )\207" [referencefile file system-type testmode driveletter subst-char-in-string 33 47 replace-regexp-in-string "//" "!" (windows-nt ms-dos) string-match "^/drive_\\([a-z]\\)/" match-string 1 ":" nil "^!"] 6 (#$ . 1216)]) #@60 Returns list of files in directory matching to given regex (defalias 'cedet-files-list-recursively #[(dir re) "\306!\205a�\307\310\"\311\211\311\211\203]�\f@\312!\211\313\230\204U� \314\230\204U�\315!\203=�\316 \"\203=� B\202U�\317!\203U�\320\"\211\203T�\321 \"))\fA\211\204�\311 ,\207" [dir matched files file --dolist-tail-- fname file-accessible-directory-p directory-files t nil file-name-nondirectory "." ".." file-regular-p string-match file-directory-p cedet-files-list-recursively append re tfiles] 4 (#$ . 1888)]) (provide 'cedet-files)

Save