2823 |
(file-name-nondirectory localname))))) |
(file-name-nondirectory localname))))) |
2824 |
(sit-for 1) ;needed for rsh but not ssh? |
(sit-for 1) ;needed for rsh but not ssh? |
2825 |
(tramp-wait-for-output)) |
(tramp-wait-for-output)) |
2826 |
|
;; The following let-binding is used by code that's commented |
2827 |
|
;; out. Let's leave the let-binding in for a while to see |
2828 |
|
;; that the commented-out code is really not needed. Commenting-out |
2829 |
|
;; happened on 2003-03-13. |
2830 |
(let ((old-pos (point))) |
(let ((old-pos (point))) |
2831 |
(insert-buffer-substring |
(insert-buffer-substring |
2832 |
(tramp-get-buffer multi-method method user host)) |
(tramp-get-buffer multi-method method user host)) |
2839 |
(save-excursion |
(save-excursion |
2840 |
(tramp-send-command multi-method method user host "cd") |
(tramp-send-command multi-method method user host "cd") |
2841 |
(tramp-wait-for-output)) |
(tramp-wait-for-output)) |
2842 |
;; Another XEmacs specialty follows. What's the right way to do |
;; For the time being, the XEmacs kludge is commented out. |
2843 |
;; it? |
;; Please test it on various XEmacs versions to see if it works. |
2844 |
(when (and (featurep 'xemacs) |
;; ;; Another XEmacs specialty follows. What's the right way to do |
2845 |
(eq major-mode 'dired-mode)) |
;; ;; it? |
2846 |
(save-excursion |
;; (when (and (featurep 'xemacs) |
2847 |
(require 'dired) |
;; (eq major-mode 'dired-mode)) |
2848 |
(dired-insert-set-properties old-pos (point))))))) |
;; (save-excursion |
2849 |
|
;; (require 'dired) |
2850 |
|
;; (dired-insert-set-properties old-pos (point)))) |
2851 |
|
))) |
2852 |
|
|
2853 |
;; Continuation of kluge to pacify byte-compiler. |
;; Continuation of kluge to pacify byte-compiler. |
2854 |
;;(eval-when-compile |
;;(eval-when-compile |