Lines Matching +defs:directory +defs:predicate
273 (defun gnus-newsgroup-directory-form (newsgroup)
274 "Make hierarchical directory name from NEWSGROUP name."
587 (list (read-file-name "Copy file: " default-directory)
588 (read-file-name "Copy file to: " default-directory)))
590 (setq to (read-file-name "Copy file to: " default-directory)))
591 (when (file-directory-p to)
592 (setq to (concat (file-name-as-directory to)
715 (defun gnus-make-directory (directory)
719 (when (and directory
720 (not (file-exists-p directory)))
721 (make-directory directory t)))
726 ;; Make sure the directory exists.
727 (gnus-make-directory (file-name-directory file))
737 (defun gnus-delete-directory (directory)
740 (when (file-directory-p directory)
741 (let ((files (directory-files
742 directory t "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
752 (delete-directory directory)))))
1084 (defun gnus-remove-if (predicate list)
1088 (unless (funcall predicate (car list))
1292 (defvar gnus-directory-sep-char-regexp "/"
1293 "The regexp of directory separator character.
1294 If you find some problem with the directory separator character, try
1329 (defun gnus-make-predicate (spec)
1331 SPEC is a predicate specifier that contains stuff like `or', `and',
1333 `(lambda (elem) ,(gnus-make-predicate-1 spec)))
1335 (defun gnus-make-predicate-1 (spec)
1341 `(,(car spec) ,@(mapcar 'gnus-make-predicate-1 (cdr spec)))
1342 (error "Invalid predicate specifier: %s" spec)))))
1354 (defmacro gnus-completing-read-maybe-default (prompt table &optional predicate
1358 `(completing-read ,prompt ,table ,predicate ,require-match
1364 (defun gnus-completing-read (prompt table &optional predicate require-match
1374 predicate
1566 predicate on the elements."
1623 (let* ((old-dir (file-name-directory old-path))
1625 (new-dir (file-name-directory new-path))
1628 (gnus-make-directory new-dir)
1631 (while (progn (setq temp (directory-files old-dir))
1635 (delete-directory old-dir)
1636 (setq old-dir (file-name-as-directory