[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 [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-smb.el [lexbind] |
Date: |
Mon, 25 Oct 2004 00:42:56 -0400 |
Index: emacs/lisp/net/tramp-smb.el
diff -c emacs/lisp/net/tramp-smb.el:1.5.2.7 emacs/lisp/net/tramp-smb.el:1.5.2.8
*** emacs/lisp/net/tramp-smb.el:1.5.2.7 Fri Jul 23 04:42:20 2004
--- emacs/lisp/net/tramp-smb.el Mon Oct 25 04:19:39 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 [lexbind],
Miles Bader <=