/[tramp]/tramp/lisp/tramp-smb.el
ViewVC logotype

Diff of /tramp/lisp/tramp-smb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.12 by albinus, Thu Dec 5 20:06:09 2002 UTC revision 2.13 by albinus, Sat Dec 21 21:32:59 2002 UTC
# Line 47  Line 47 
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
# Line 960  Domain names in USER and port numbers in Line 965  Domain names in USER and port numbers in
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))
# Line 991  Returns nil if no error message has appe Line 996  Returns nil if no error message has appe
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))

Legend:
Removed from v.2.12  
changed lines
  Added in v.2.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26