Mercurial > emacs

comparison lisp/net/tramp-smb.el @ 89943:4c90ffeb71c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-218 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-220 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-221 Restore deleted tagline in etc/TUTORIAL.ru * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-222 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-228 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-229 Remove TeX output files from the archive * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-230 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-247 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248 src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-249 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-256 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-258 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-263 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-264 Update from CVS: lispref/display.texi: emacs -> Emacs. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-265 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-274 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-275 Update from CVS: man/makefile.w32-in: Revert last change * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-276 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-295 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-296 Allow restarting an existing debugger session that's exited * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-297 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-299 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-300 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-327 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-328 Update from CVS: src/.gdbinit (xsymbol): Fix last change. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-329 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-344 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-345 Tweak source regexps so that building in place won't cause problems * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-346 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-351 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-352 Update from CVS: lisp/flymake.el: New file. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-353 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362 Support " [...]" style defaults in minibuffer-electric-default-mode * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-363 (read-number): Use canonical format for default in prompt. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-364 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-367 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-368 Improve display-supports-face-attributes-p on non-ttys * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-369 Rewrite face-differs-from-default-p * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370 Move `display-supports-face-attributes-p' entirely into C code * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-371 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-372 Simplify face-differs-from-default-p; don't consider :stipple. * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-373 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374 (tty_supports_face_attributes_p): Ensure attributes differ from default * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-375 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-376 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377 (Fdisplay_supports_face_attributes_p): Work around bootstrapping problem * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-378 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-380 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381 Face merging cleanups * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-382 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-384 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385 src/xfaces.c (push_named_merge_point): Return 0 if a cycle is detected * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-386 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-395 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-396 Tweak arch tagging to make build/install-in-place less annoying * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-397 Work around vc-arch problems when building eshell * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-398 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-399 Tweak directory permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-401 More build-in-place tweaking of arch tagging * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-403 Yet more build-in-place tweaking of arch tagging * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-404 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-409 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410 Make sure image types are initialized for lookup too * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-411 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-416 Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 28 Jun 2004 07:56:49 +0000
parents 68c22ea6027c 4bc6cb45c326
children b9eee0a7bef5
comparison
equal deleted inserted replaced
89942:9cb747ae49af 89943:4c90ffeb71c5
35 (require 'cl) 35 (require 'cl)
36 (require 'custom) 36 (require 'custom)
37 ;; Emacs 19.34 compatibility hack -- is this needed? 37 ;; Emacs 19.34 compatibility hack -- is this needed?
38 (or (>= emacs-major-version 20) 38 (or (>= emacs-major-version 20)
39 (load "cl-seq"))) 39 (load "cl-seq")))
40
41 ;; Avoid byte-compiler warnings if the byte-compiler supports this.
42 ;; Currently, XEmacs supports this.
43 (eval-when-compile
44 (when (fboundp 'byte-compiler-options)
45 (let (unused-vars) ; Pacify Emacs byte-compiler
46 (defalias 'warnings 'identity) ; Pacify Emacs byte-compiler
47 (byte-compiler-options (warnings (- unused-vars))))))
48
49 ;; XEmacs byte-compiler raises warning abouts `last-coding-system-used'.
50 (eval-when-compile
51 (unless (boundp 'last-coding-system-used)
52 (defvar last-coding-system-used nil)))
40 53
41 ;; Define SMB method ... 54 ;; Define SMB method ...
42 (defcustom tramp-smb-method "smb" 55 (defcustom tramp-smb-method "smb"
43 "*Method to connect SAMBA and M$ SMB servers." 56 "*Method to connect SAMBA and M$ SMB servers."
44 :group 'tramp 57 :group 'tramp
129 (file-attributes . tramp-smb-handle-file-attributes) 142 (file-attributes . tramp-smb-handle-file-attributes)
130 (file-directory-p . tramp-smb-handle-file-directory-p) 143 (file-directory-p . tramp-smb-handle-file-directory-p)
131 (file-executable-p . tramp-smb-handle-file-exists-p) 144 (file-executable-p . tramp-smb-handle-file-exists-p)
132 (file-exists-p . tramp-smb-handle-file-exists-p) 145 (file-exists-p . tramp-smb-handle-file-exists-p)
133 (file-local-copy . tramp-smb-handle-file-local-copy) 146 (file-local-copy . tramp-smb-handle-file-local-copy)
147 (file-remote-p . tramp-handle-file-remote-p)
134 (file-modes . tramp-handle-file-modes) 148 (file-modes . tramp-handle-file-modes)
135 (file-name-all-completions . tramp-smb-handle-file-name-all-completions) 149 (file-name-all-completions . tramp-smb-handle-file-name-all-completions)
136 ;; `file-name-as-directory' performed by default handler 150 ;; `file-name-as-directory' performed by default handler
137 (file-name-completion . tramp-handle-file-name-completion) 151 (file-name-completion . tramp-handle-file-name-completion)
138 (file-name-directory . tramp-handle-file-name-directory) 152 (file-name-directory . tramp-handle-file-name-directory)
143 (file-readable-p . tramp-smb-handle-file-exists-p) 157 (file-readable-p . tramp-smb-handle-file-exists-p)
144 (file-regular-p . tramp-handle-file-regular-p) 158 (file-regular-p . tramp-handle-file-regular-p)
145 (file-symlink-p . tramp-smb-not-handled) 159 (file-symlink-p . tramp-smb-not-handled)
146 ;; `file-truename' performed by default handler 160 ;; `file-truename' performed by default handler
147 (file-writable-p . tramp-smb-handle-file-writable-p) 161 (file-writable-p . tramp-smb-handle-file-writable-p)
148 ;; `find-backup-file-name' performed by default handler 162 (find-backup-file-name . tramp-handle-find-backup-file-name)
149 ;; `find-file-noselect' performed by default handler 163 ;; `find-file-noselect' performed by default handler
150 ;; `get-file-buffer' performed by default handler 164 ;; `get-file-buffer' performed by default handler
151 (insert-directory . tramp-smb-handle-insert-directory) 165 (insert-directory . tramp-smb-handle-insert-directory)
152 (insert-file-contents . tramp-handle-insert-file-contents) 166 (insert-file-contents . tramp-handle-insert-file-contents)
153 (load . tramp-handle-load) 167 (load . tramp-handle-load)
988 tramp-dos-coding-system)) 1002 tramp-dos-coding-system))
989 (p (apply #'start-process (buffer-name buffer) buffer 1003 (p (apply #'start-process (buffer-name buffer) buffer
990 tramp-smb-program args))) 1004 tramp-smb-program args)))
991 1005
992 (tramp-message 9 "Started process %s" (process-command p)) 1006 (tramp-message 9 "Started process %s" (process-command p))
993 (process-kill-without-query p) 1007 (tramp-set-process-query-on-exit-flag p nil)
994 (set-buffer buffer) 1008 (set-buffer buffer)
995 (setq tramp-smb-share share) 1009 (setq tramp-smb-share share)
996 1010
997 ; send password 1011 ; send password
998 (when real-user 1012 (when real-user