/[emacs]/emacs/lisp/net/tramp-smb.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp-smb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.6.3 by miles, Fri Jul 23 04:30:38 2004 UTC revision 1.5.6.4 by miles, Thu Oct 14 08:49:58 2004 UTC
# Line 1087  Return the difference in the format of a Line 1087  Return the difference in the format of a
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    
# Line 1123  Return the difference in the format of a Line 1123  Return the difference in the format of a
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:

Legend:
Removed from v.1.5.6.3  
changed lines
  Added in v.1.5.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26