[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.11 emacs/lisp/net/tramp-smb.el:1.12
*** emacs/lisp/net/tramp-smb.el:1.11    Sat Jul 17 17:28:06 2004
--- emacs/lisp/net/tramp-smb.el Tue Oct 12 21:02:43 2004
***************
*** 1087,1093 ****
  ;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'.
  ;; Must be corrected.
  
! (defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion 
activate)
    "Changes \"$\" back to \"$$\" in minibuffer."
    (if (funcall PC-completion-as-file-name-predicate)
  
--- 1087,1093 ----
  ;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'.
  ;; Must be corrected.
  
! (defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion)
    "Changes \"$\" back to \"$$\" in minibuffer."
    (if (funcall PC-completion-as-file-name-predicate)
  
***************
*** 1123,1128 ****
--- 1123,1135 ----
      ;; No file names. Behave unchanged.
      ad-do-it))
  
+ ;; Activate advice.  Recent Emacsen don't need that.
+ (when (functionp 'PC-do-completion)
+   (condition-case nil
+       (substitute-in-file-name "C$/")
+     (error
+      (ad-activate 'PC-do-completion))))
+ 
  (provide 'tramp-smb)
  
  ;;; TODO: