/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

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

revision 2.286 by albinus, Sat Mar 22 17:21:12 2003 UTC revision 2.287 by kai, Fri Mar 28 17:29:40 2003 UTC
# Line 2823  This is like `dired-recursive-delete-dir Line 2823  This is like `dired-recursive-delete-dir
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))
# Line 2835  This is like `dired-recursive-delete-dir Line 2839  This is like `dired-recursive-delete-dir
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

Legend:
Removed from v.2.286  
changed lines
  Added in v.2.287

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