Function: bib-cite-file-directory-p

bib-cite-file-directory-p is a byte-compiled function defined in bib-cite.el.

Signature

(bib-cite-file-directory-p FILE)

Documentation

Like default file-directory-p but allow FILE to end in // for ms-windows.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/bib-cite.el
;; (defun psg-checkfor-file-list (filename list)
;;   (let ((the-list list)
;;         (filespec))
;;     (while the-list
;;       (if (not (car the-list))          ; it is nil
;;           (setq filespec (concat "~/" filename))
;;         (setq filespec
;;               (concat (file-name-as-directory (car the-list)) filename)))
;;       (if (file-exists-p filespec)
;;             (setq the-list nil)
;;         (setq filespec nil)
;;         (setq the-list (cdr the-list))))
;;     filespec))

(defun bib-cite-file-directory-p (file)
  "Like default `file-directory-p' but allow FILE to end in // for ms-windows."
  (save-match-data
    (if (string-match "\\(.*\\)//$" file)
        (file-directory-p (match-string 1 file))
      (file-directory-p file))))