[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/net/tramp-smb.el
diff -c emacs/lisp/net/tramp-smb.el:1.5.6.1 emacs/lisp/net/tramp-smb.el:1.5.6.2
*** emacs/lisp/net/tramp-smb.el:1.5.6.1 Fri Apr 16 12:50:33 2004
--- emacs/lisp/net/tramp-smb.el Mon Jun 28 07:29:49 2004
***************
*** 38,43 ****
--- 38,56 ----
    (or (>= emacs-major-version 20)
        (load "cl-seq")))
  
+ ;; Avoid byte-compiler warnings if the byte-compiler supports this.
+ ;; Currently, XEmacs supports this.
+ (eval-when-compile
+   (when (fboundp 'byte-compiler-options)
+     (let (unused-vars) ; Pacify Emacs byte-compiler
+       (defalias 'warnings 'identity) ; Pacify Emacs byte-compiler
+       (byte-compiler-options (warnings (- unused-vars))))))
+ 
+ ;; XEmacs byte-compiler raises warning abouts `last-coding-system-used'.
+ (eval-when-compile
+   (unless (boundp 'last-coding-system-used)
+     (defvar last-coding-system-used nil)))
+ 
  ;; Define SMB method ...
  (defcustom tramp-smb-method "smb"
    "*Method to connect SAMBA and M$ SMB servers."
***************
*** 131,136 ****
--- 144,150 ----
      (file-executable-p . tramp-smb-handle-file-exists-p)
      (file-exists-p . tramp-smb-handle-file-exists-p)
      (file-local-copy . tramp-smb-handle-file-local-copy)
+     (file-remote-p . tramp-handle-file-remote-p)
      (file-modes . tramp-handle-file-modes)
      (file-name-all-completions . tramp-smb-handle-file-name-all-completions)
      ;; `file-name-as-directory' performed by default handler
***************
*** 145,151 ****
      (file-symlink-p . tramp-smb-not-handled)
      ;; `file-truename' performed by default handler
      (file-writable-p . tramp-smb-handle-file-writable-p)
!     ;; `find-backup-file-name' performed by default handler
      ;; `find-file-noselect' performed by default handler
      ;; `get-file-buffer' performed by default handler
      (insert-directory . tramp-smb-handle-insert-directory)
--- 159,165 ----
      (file-symlink-p . tramp-smb-not-handled)
      ;; `file-truename' performed by default handler
      (file-writable-p . tramp-smb-handle-file-writable-p)
!     (find-backup-file-name . tramp-handle-find-backup-file-name)
      ;; `find-file-noselect' performed by default handler
      ;; `get-file-buffer' performed by default handler
      (insert-directory . tramp-smb-handle-insert-directory)
***************
*** 990,996 ****
                       tramp-smb-program args)))
  
        (tramp-message 9 "Started process %s" (process-command p))
!       (process-kill-without-query p)
        (set-buffer buffer)
        (setq tramp-smb-share share)
  
--- 1004,1010 ----
                       tramp-smb-program args)))
  
        (tramp-message 9 "Started process %s" (process-command p))
!       (tramp-set-process-query-on-exit-flag p nil)
        (set-buffer buffer)
        (setq tramp-smb-share share)