Lines Matching defs:handler
1 ;;; url-handlers.el --- file-name-handler stuff for URL loading
39 ;; loading all of URL when turning on url-handler-mode in the .emacs.
98 (defvar url-handler-regexp
100 "*A regular expression for matching URLs handled by file-name-handler-alist.
107 (define-minor-mode url-handler-mode
110 (if (not (boundp 'file-name-handler-alist))
112 (setq url-handler-mode nil)
114 (setq file-name-handler-alist
115 (delq (rassq 'url-file-handler file-name-handler-alist)
116 file-name-handler-alist))
117 (if url-handler-mode
118 (push (cons url-handler-regexp 'url-file-handler)
119 file-name-handler-alist))))
121 (defun url-run-real-handler (operation args)
122 (let ((inhibit-file-name-handlers (cons 'url-file-handler
128 (defun url-file-handler (operation &rest args)
129 "Function called from the `file-name-handler-alist' routines.
140 val (url-run-real-handler operation args)))
145 (defun url-file-handler-identity (&rest args)
151 (put 'substitute-in-file-name 'url-file-handlers 'url-file-handler-identity)
153 (put 'expand-file-name 'url-file-handlers 'url-handler-expand-file-name)
154 (put 'directory-file-name 'url-file-handlers 'url-handler-directory-file-name)
155 ;; (put 'file-name-as-directory 'url-file-handlers 'url-handler-file-name-as-directory)
164 (defun url-handler-expand-file-name (file &optional base)
181 (defun url-handler-directory-file-name (dir)
184 (url-run-real-handler 'directory-file-name (list dir))))
270 ,(format "URL file-name-handler wrapper for `%s' call.\n---\n%s" method
291 (string-match url-handler-regexp buffer-file-name)