[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el |
Date: |
Tue, 12 Oct 2004 18:37:34 -0400 |
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:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el,
Michael Albinus <=