cosmetics

This commit is contained in:
João Távora 2012-02-26 20:43:18 +00:00
parent 483364c8e5
commit fb45d0e45a

View File

@ -1419,8 +1419,8 @@ Here's a list of currently recognized directives:
(directory-file-name extra-dir))))) (directory-file-name extra-dir)))))
group)) group))
(defun yas/subdirs (directory &optional file?) (defun yas/subdirs (directory &optional filep)
"Return subdirs or files of DIRECTORY according to FILE?." "Return subdirs or files of DIRECTORY according to FILEP."
(remove-if (lambda (file) (remove-if (lambda (file)
(or (string-match "^\\." (or (string-match "^\\."
(file-name-nondirectory file)) (file-name-nondirectory file))
@ -1428,7 +1428,7 @@ Here's a list of currently recognized directives:
(file-name-nondirectory file)) (file-name-nondirectory file))
(string-match "~$" (string-match "~$"
(file-name-nondirectory file)) (file-name-nondirectory file))
(if file? (if filep
(file-directory-p file) (file-directory-p file)
(not (file-directory-p file))))) (not (file-directory-p file)))))
(directory-files directory t))) (directory-files directory t)))