47 |
;; ... and add it to the method list. |
;; ... and add it to the method list. |
48 |
(add-to-list 'tramp-methods (cons tramp-smb-method nil)) |
(add-to-list 'tramp-methods (cons tramp-smb-method nil)) |
49 |
|
|
50 |
|
;; Add a default for `tramp-default-method-alist'. Rule: If there is |
51 |
|
;; a domain in USER, it must be the SMB method. |
52 |
|
(add-to-list 'tramp-default-method-alist |
53 |
|
'("%" "" tramp-smb-method)) |
54 |
|
|
55 |
;; Add completion function for SMB method. |
;; Add completion function for SMB method. |
56 |
(tramp-set-completion-function |
(tramp-set-completion-function |
57 |
tramp-smb-method |
tramp-smb-method |
965 |
(defun tramp-smb-wait-for-output (user host) |
(defun tramp-smb-wait-for-output (user host) |
966 |
"Wait for output from smbclient command. |
"Wait for output from smbclient command. |
967 |
Sets position to begin of buffer. |
Sets position to begin of buffer. |
968 |
Returns nil if no error message has appeared." |
Returns nil if an error message has appeared." |
969 |
(save-excursion |
(save-excursion |
970 |
(let ((proc (get-buffer-process (current-buffer))) |
(let ((proc (get-buffer-process (current-buffer))) |
971 |
(found (progn (goto-char (point-max)) |
(found (progn (goto-char (point-max)) |
996 |
(append-to-buffer |
(append-to-buffer |
997 |
(tramp-get-debug-buffer nil tramp-smb-method user host) |
(tramp-get-debug-buffer nil tramp-smb-method user host) |
998 |
(point-min) (point-max)) |
(point-min) (point-max)) |
999 |
(when (and (not found) |
(when (and (not found) tramp-smb-process-running) |
|
proc (processp proc) |
|
|
(memq (process-status proc) '(run open))) |
|
1000 |
(save-excursion |
(save-excursion |
1001 |
(set-buffer |
(set-buffer |
1002 |
(tramp-get-debug-buffer nil tramp-smb-method user host)) |
(tramp-get-debug-buffer nil tramp-smb-method user host)) |