1087 |
;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'. |
;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'. |
1088 |
;; Must be corrected. |
;; Must be corrected. |
1089 |
|
|
1090 |
(defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion activate) |
(defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion) |
1091 |
"Changes \"$\" back to \"$$\" in minibuffer." |
"Changes \"$\" back to \"$$\" in minibuffer." |
1092 |
(if (funcall PC-completion-as-file-name-predicate) |
(if (funcall PC-completion-as-file-name-predicate) |
1093 |
|
|
1123 |
;; No file names. Behave unchanged. |
;; No file names. Behave unchanged. |
1124 |
ad-do-it)) |
ad-do-it)) |
1125 |
|
|
1126 |
|
;; Activate advice. Recent Emacsen don't need that. |
1127 |
|
(when (functionp 'PC-do-completion) |
1128 |
|
(condition-case nil |
1129 |
|
(substitute-in-file-name "C$/") |
1130 |
|
(error |
1131 |
|
(ad-activate 'PC-do-completion)))) |
1132 |
|
|
1133 |
(provide 'tramp-smb) |
(provide 'tramp-smb) |
1134 |
|
|
1135 |
;;; TODO: |
;;; TODO: |