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

[Michael Albinus]

Index: emacs/lisp/net/tramp-smb.el
diff -c emacs/lisp/net/tramp-smb.el:1.12 emacs/lisp/net/tramp-smb.el:1.13
*** emacs/lisp/net/tramp-smb.el:1.12    Tue Oct 12 21:02:43 2004
--- emacs/lisp/net/tramp-smb.el Fri Dec 17 19:35:45 2004
***************
*** 1105,1113 ****
        ;; Do `PC-do-completion' without substitution
        (let* (save)
          (fset 'save (symbol-function 'substitute-in-file-name))
!         (fset 'substitute-in-file-name (symbol-function 'identity))
!         ad-do-it
!         (fset 'substitute-in-file-name (symbol-function 'save)))
  
        ;; Expand "$"
        (let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21
--- 1105,1115 ----
        ;; Do `PC-do-completion' without substitution
        (let* (save)
          (fset 'save (symbol-function 'substitute-in-file-name))
!         (unwind-protect
!             (progn
!               (fset 'substitute-in-file-name (symbol-function 'identity))
!               ad-do-it)
!           (fset 'substitute-in-file-name (symbol-function 'save))))
  
        ;; Expand "$"
        (let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21