mirror of
https://github.com/joaotavora/yasnippet.git
synced 2025-10-13 13:13:03 +00:00
cosmetics
This commit is contained in:
parent
483364c8e5
commit
fb45d0e45a
@ -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)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user