From fb45d0e45a2dc7c7fdbfe191fa37391b4d9a410a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sun, 26 Feb 2012 20:43:18 +0000 Subject: [PATCH] cosmetics --- yasnippet.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yasnippet.el b/yasnippet.el index 4816668..3bcf496 100644 --- a/yasnippet.el +++ b/yasnippet.el @@ -1419,8 +1419,8 @@ Here's a list of currently recognized directives: (directory-file-name extra-dir))))) group)) -(defun yas/subdirs (directory &optional file?) - "Return subdirs or files of DIRECTORY according to FILE?." +(defun yas/subdirs (directory &optional filep) + "Return subdirs or files of DIRECTORY according to FILEP." (remove-if (lambda (file) (or (string-match "^\\." (file-name-nondirectory file)) @@ -1428,7 +1428,7 @@ Here's a list of currently recognized directives: (file-name-nondirectory file)) (string-match "~$" (file-name-nondirectory file)) - (if file? + (if filep (file-directory-p file) (not (file-directory-p file))))) (directory-files directory t)))