3299 |
(defun tramp-completion-file-name-handler (operation &rest args) |
(defun tramp-completion-file-name-handler (operation &rest args) |
3300 |
"Invoke tramp file name completion handler. |
"Invoke tramp file name completion handler. |
3301 |
Falls back to normal file name handler if no tramp file name handler exists." |
Falls back to normal file name handler if no tramp file name handler exists." |
3302 |
; (setq tramp-debug-buffer 't) |
;; (setq tramp-debug-buffer t) |
3303 |
; (tramp-message 1 "%s %s" operation args) |
;; (tramp-message 1 "%s %s" operation args) |
3304 |
; (tramp-message 1 "%s %s\n%s" |
;; (tramp-message 1 "%s %s\n%s" |
3305 |
; operation args (with-output-to-string (backtrace))) |
;; operation args (with-output-to-string (backtrace))) |
3306 |
(let ((fn (assoc operation tramp-completion-file-name-handler-alist))) |
(let ((fn (assoc operation tramp-completion-file-name-handler-alist))) |
3307 |
(if fn |
(if fn |
3308 |
(catch 'tramp-forward-to-ange-ftp |
(catch 'tramp-forward-to-ange-ftp |