246 |
(url-handlers-create-wrapper file-writable-p (url)) |
(url-handlers-create-wrapper file-writable-p (url)) |
247 |
(url-handlers-create-wrapper file-directory-p (url)) |
(url-handlers-create-wrapper file-directory-p (url)) |
248 |
(url-handlers-create-wrapper file-executable-p (url)) |
(url-handlers-create-wrapper file-executable-p (url)) |
249 |
|
(url-handlers-create-wrapper directory-files (url &optional full match nosort)) |
250 |
(if (featurep 'xemacs) |
(url-handlers-create-wrapper file-truename (url &optional counter prev-dirs)) |
|
(progn |
|
|
;; XEmacs specific prototypes |
|
|
(url-handlers-create-wrapper |
|
|
directory-files (url &optional full match nosort files-only)) |
|
|
(url-handlers-create-wrapper |
|
|
file-truename (url &optional default))) |
|
|
;; Emacs specific prototypes |
|
|
(url-handlers-create-wrapper |
|
|
directory-files (url &optional full match nosort)) |
|
|
(url-handlers-create-wrapper |
|
|
file-truename (url &optional counter prev-dirs))) |
|
251 |
|
|
252 |
(add-hook 'find-file-hook 'url-handlers-set-buffer-mode) |
(add-hook 'find-file-hook 'url-handlers-set-buffer-mode) |
253 |
|
|