Mercurial > emacs
comparison lisp/net/tramp-smb.el @ 57463:40298ea4d83f
Sync with Tramp 2.0.45.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Tue, 12 Oct 2004 21:02:43 +0000 |
parents | 9459300bf43b |
children | 1fbbe0bcfaac ff0e824afa37 |
comparison
equal
deleted
inserted
replaced
57462:c6d72c23a106 | 57463:40298ea4d83f |
---|---|
1085 | 1085 |
1086 | 1086 |
1087 ;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'. | 1087 ;; `PC-do-completion' touches the returning "$$" by `substitute-in-file-name'. |
1088 ;; Must be corrected. | 1088 ;; Must be corrected. |
1089 | 1089 |
1090 (defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion activate) | 1090 (defadvice PC-do-completion (around tramp-smb-advice-PC-do-completion) |
1091 "Changes \"$\" back to \"$$\" in minibuffer." | 1091 "Changes \"$\" back to \"$$\" in minibuffer." |
1092 (if (funcall PC-completion-as-file-name-predicate) | 1092 (if (funcall PC-completion-as-file-name-predicate) |
1093 | 1093 |
1094 (progn | 1094 (progn |
1095 ;; Substitute file names | 1095 ;; Substitute file names |
1120 (replace-match "$$" nil nil str 1) | 1120 (replace-match "$$" nil nil str 1) |
1121 str)))) | 1121 str)))) |
1122 | 1122 |
1123 ;; No file names. Behave unchanged. | 1123 ;; No file names. Behave unchanged. |
1124 ad-do-it)) | 1124 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)))) | |
1125 | 1132 |
1126 (provide 'tramp-smb) | 1133 (provide 'tramp-smb) |
1127 | 1134 |
1128 ;;; TODO: | 1135 ;;; TODO: |
1129 | 1136 |