Lines Matching refs:fname
71 (let* ((fname (url-cache-create-filename (url-view-url t))))
72 (if (url-cache-prepare fname)
74 (write-region (point-min) (point-max) fname nil 5)))))))
79 (let* ((fname (url-cache-create-filename url))
80 (attribs (file-attributes fname)))
81 (and fname ; got a filename
82 (file-exists-p fname) ; file exists
100 (fname (url-filename urlobj)))
101 (if (and fname (/= (length fname) 0) (= (aref fname 0) ?/))
102 (setq fname (substring fname 1 nil)))
103 (if fname
105 (setq fname
118 (char-to-string x))))) fname ""))))
120 (setq fname (and fname
124 fname ""))
125 fname (cond
126 ((null fname) nil)
127 ((or (string= "" fname) (string= "/" fname))
129 ((= (string-to-char fname) ?/)
130 (if (string= (substring fname -1 nil) "/")
131 (concat fname url-directory-index-file)
132 (substring fname 1 nil)))
134 (if (string= (substring fname -1 nil) "/")
135 (concat fname url-directory-index-file)
136 fname))))
137 (and fname
138 (expand-file-name fname
162 (fname (url-filename urlobj)))
163 (and fname