Mercurial > emacs

comparison lisp/net/tramp-smb.el @ 91489:5462fd8b96ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-smb.el (tramp-smb-maybe-open-connection): Use `tramp-process-sentinel' as process sentinel.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 03 Feb 2008 12:08:16 +0000
parents 59f471917fe0
children 1e3a407766b9
comparison
equal deleted inserted replaced
91488:26d030db0d70 91489:5462fd8b96ab
1 ;;; tramp-smb.el --- Tramp access functions for SMB servers 1 ;;; tramp-smb.el --- Tramp access functions for SMB servers
2 2
3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2007, 2008 Free Software Foundation, Inc. 4 ;; 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: Michael Albinus <michael.albinus@gmx.de> 6 ;; Author: Michael Albinus <michael.albinus@gmx.de>
7 ;; Keywords: comm, processes 7 ;; Keywords: comm, processes
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
946 (tramp-buffer-name vec) (tramp-get-buffer vec) 946 (tramp-buffer-name vec) (tramp-get-buffer vec)
947 tramp-smb-program args)))) 947 tramp-smb-program args))))
948 948
949 (tramp-message 949 (tramp-message
950 vec 6 "%s" (mapconcat 'identity (process-command p) " ")) 950 vec 6 "%s" (mapconcat 'identity (process-command p) " "))
951 (set-process-sentinel p 'tramp-flush-connection-property) 951 (set-process-sentinel p 'tramp-process-sentinel)
952 (tramp-set-process-query-on-exit-flag p nil) 952 (tramp-set-process-query-on-exit-flag p nil)
953 (tramp-set-connection-property p "smb-share" share) 953 (tramp-set-connection-property p "smb-share" share)
954 954
955 ;; Set variables for computing the prompt for reading password. 955 ;; Set variables for computing the prompt for reading password.
956 (setq tramp-current-method tramp-smb-method 956 (setq tramp-current-method tramp-smb-method