You can subscribe to this list here.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(6) |
Dec
(35) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(31) |
Feb
(4) |
Mar
(10) |
Apr
(7) |
May
(5) |
Jun
(3) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Kai Gro?j. <ka...@us...> - 2002-02-18 15:17:24
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv9352/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (file-expand-wildcards): Make sure that the return value is always a list. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.86 retrieving revision 2.87 diff -C2 -d -r2.86 -r2.87 *** ChangeLog 12 Feb 2002 01:49:50 -0000 2.86 --- ChangeLog 18 Feb 2002 15:17:19 -0000 2.87 *************** *** 1,2 **** --- 1,7 ---- + 2002-02-18 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (file-expand-wildcards): Make sure that the return + value is always a list. + 2002-02-12 Steve Youngs <yo...@xe...> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.87 retrieving revision 2.88 diff -C2 -d -r2.87 -r2.88 *** tramp.el 12 Feb 2002 01:49:51 -0000 2.87 --- tramp.el 18 Feb 2002 15:17:19 -0000 2.88 *************** *** 4830,4834 **** (let ((res ad-do-it)) (setq ad-return-value (or res (list name)))) ! (setq ad-return-value name))) ;; If it is not a Tramp file, just run the original function. (let ((res ad-do-it)) --- 4830,4834 ---- (let ((res ad-do-it)) (setq ad-return-value (or res (list name)))) ! (setq ad-return-value (list name)))) ;; If it is not a Tramp file, just run the original function. (let ((res ad-do-it)) |
From: Steve Y. <yo...@us...> - 2002-02-12 01:49:53
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv23867/lisp Modified Files: ChangeLog tramp.el Log Message: 2002-02-12 Steve Youngs <yo...@xe...> * tramp.el (tramp-handle-insert-directory): Change "#'identity" to "'identity" it was causing a invalid read syntax error that edebug brought to the surface. Add a "." after directory name so that symlinked directories display properly on platforms that have breakage on symlinks like Solaris. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.85 retrieving revision 2.86 diff -C2 -d -r2.85 -r2.86 *** ChangeLog 8 Feb 2002 08:29:59 -0000 2.85 --- ChangeLog 12 Feb 2002 01:49:50 -0000 2.86 *************** *** 1,2 **** --- 1,11 ---- + 2002-02-12 Steve Youngs <yo...@xe...> + + * tramp.el (tramp-handle-insert-directory): Change "#'identity" to + "'identity" it was causing a invalid read syntax error that edebug + brought to the surface. + Add a "." after directory name so that symlinked directories + display properly on platforms that have breakage on symlinks like + Solaris. + 2002-02-08 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.86 retrieving revision 2.87 diff -C2 -d -r2.86 -r2.87 *** tramp.el 8 Feb 2002 08:29:59 -0000 2.86 --- tramp.el 12 Feb 2002 01:49:51 -0000 2.87 *************** *** 2214,2218 **** (setq path (file-name-directory path))) (when (listp switches) ! (setq switches (mapconcat #'identity switches " "))) (unless full-directory-p (setq switches (concat "-d " switches))) --- 2214,2218 ---- (setq path (file-name-directory path))) (when (listp switches) ! (setq switches (mapconcat 'identity switches " "))) (unless full-directory-p (setq switches (concat "-d " switches))) *************** *** 2230,2234 **** (if wildcard path ! (tramp-shell-quote-argument path)))) (tramp-barf-unless-okay multi-method method user host --- 2230,2234 ---- (if wildcard path ! (tramp-shell-quote-argument (concat path "."))))) (tramp-barf-unless-okay multi-method method user host |
From: Kai Gro?j. <ka...@us...> - 2002-02-08 08:30:02
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv12376/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (file-expand-wildcards): Improve the kludge by looking if the path name part of the filename contains wildcard characters at all. If this is not the case, we avoid calling the original function at all. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.84 retrieving revision 2.85 diff -C2 -d -r2.84 -r2.85 *** ChangeLog 1 Feb 2002 12:25:08 -0000 2.84 --- ChangeLog 8 Feb 2002 08:29:59 -0000 2.85 *************** *** 1,2 **** --- 1,9 ---- + 2002-02-08 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (file-expand-wildcards): Improve the kludge by looking + if the path name part of the filename contains wildcard + characters at all. If this is not the case, we avoid calling the + original function at all. + 2002-02-01 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.85 retrieving revision 2.86 diff -C2 -d -r2.85 -r2.86 *** tramp.el 1 Feb 2002 12:25:08 -0000 2.85 --- tramp.el 8 Feb 2002 08:29:59 -0000 2.86 *************** *** 4822,4827 **** (= emacs-major-version 20)) (defadvice file-expand-wildcards (around tramp-fix activate) ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list (ad-get-arg 0))))))) ;; Make the `reporter` functionality available for making bug reports about --- 4822,4837 ---- (= emacs-major-version 20)) (defadvice file-expand-wildcards (around tramp-fix activate) ! (let ((name (ad-get-arg 0))) ! (if (tramp-tramp-file-p name) ! ;; If it's a Tramp file, dissect it and look if wildcards ! ;; need to be expanded at all. ! (let ((v (tramp-dissect-file-name name))) ! (if (string-match "[[*?]" (tramp-file-name-path v)) ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name)))) ! (setq ad-return-value name))) ! ;; If it is not a Tramp file, just run the original function. ! (let ((res ad-do-it)) ! (setq ad-return-value (or res (list name)))))))) ;; Make the `reporter` functionality available for making bug reports about |
From: Kai Gro?j. <ka...@us...> - 2002-02-01 12:25:12
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv12815/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-verify-visited-file-modtime): When the file does not exist, it is not modified. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.83 retrieving revision 2.84 diff -C2 -d -r2.83 -r2.84 *** ChangeLog 2002/01/31 17:37:08 2.83 --- ChangeLog 2002/02/01 12:25:08 2.84 *************** *** 1,2 **** --- 1,7 ---- + 2002-02-01 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-verify-visited-file-modtime): When the + file does not exist, it is not modified. + 2002-01-31 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.84 retrieving revision 2.85 diff -C2 -d -r2.84 -r2.85 *** tramp.el 2002/01/31 17:37:17 2.84 --- tramp.el 2002/02/01 12:25:08 2.85 *************** *** 1619,1637 **** (attr (file-attributes f)) (modtime (nth 5 attr))) ! (if (and modtime (not (equal modtime '(0 0)))) ! ;; Why does `file-attributes' return a list (HIGH LOW), but ! ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (let ((mt (visited-file-modtime))) ! (< (abs (tramp-time-diff modtime (list (car mt) (cdr mt)))) 2)) ! (save-excursion ! (tramp-send-command ! multi-method method user host ! (format "%s -ild %s" ! (tramp-get-ls-command multi-method method user host) ! (tramp-shell-quote-argument path))) ! (tramp-wait-for-output) ! (setq attr (buffer-substring (point) ! (progn (end-of-line) (point))))) ! (equal tramp-buffer-file-attributes attr))))) (defadvice clear-visited-file-modtime (after tramp activate) --- 1619,1640 ---- (attr (file-attributes f)) (modtime (nth 5 attr))) ! (if attr ! (if (not (equal modtime '(0 0))) ! ;; Why does `file-attributes' return a list (HIGH LOW), but ! ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (let ((mt (visited-file-modtime))) ! (< (abs (tramp-time-diff modtime (list (car mt) (cdr mt)))) 2)) ! (save-excursion ! (tramp-send-command ! multi-method method user host ! (format "%s -ild %s" ! (tramp-get-ls-command multi-method method user host) ! (tramp-shell-quote-argument path))) ! (tramp-wait-for-output) ! (setq attr (buffer-substring (point) ! (progn (end-of-line) (point))))) ! (equal tramp-buffer-file-attributes attr)) ! ;; If file does not exist, say it is not modified. ! nil)))) (defadvice clear-visited-file-modtime (after tramp activate) |
From: Kai Gro?j. <ka...@us...> - 2002-01-31 18:30:24
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv24586/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-verify-visited-file-modtime): Don't use modtime from `file-attributes' if it is nil. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.82 retrieving revision 2.83 diff -C2 -d -r2.82 -r2.83 *** ChangeLog 2002/01/25 09:06:26 2.82 --- ChangeLog 2002/01/31 17:37:08 2.83 *************** *** 1,2 **** --- 1,7 ---- + 2002-01-31 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-verify-visited-file-modtime): Don't use + modtime from `file-attributes' if it is nil. + 2002-01-25 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.83 retrieving revision 2.84 diff -C2 -d -r2.83 -r2.84 *** tramp.el 2002/01/22 17:24:23 2.83 --- tramp.el 2002/01/31 17:37:17 2.84 *************** *** 1619,1623 **** (attr (file-attributes f)) (modtime (nth 5 attr))) ! (if (not (equal modtime '(0 0))) ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? --- 1619,1623 ---- (attr (file-attributes f)) (modtime (nth 5 attr))) ! (if (and modtime (not (equal modtime '(0 0)))) ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? |
From: Kai Gro?j. <ka...@us...> - 2002-01-25 09:06:28
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv32292/tramp/lisp Modified Files: ChangeLog Makefile Log Message: Define a flag USE_CONTRIB which adds the local contrib directory to the load-path if set. Use suffix rules. From Norbert Koch <nk@LF.net>. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.81 retrieving revision 2.82 diff -C2 -d -r2.81 -r2.82 *** ChangeLog 2002/01/22 17:24:23 2.81 --- ChangeLog 2002/01/25 09:06:26 2.82 *************** *** 1,2 **** --- 1,8 ---- + 2002-01-25 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * Makefile: Define a flag USE_CONTRIB which adds the local contrib + directory to the load-path if set. Use suffix rules. From + Norbert Koch <nk@LF.net>. + 2002-01-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: Makefile =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/Makefile,v retrieving revision 2.3 retrieving revision 2.4 diff -C2 -d -r2.3 -r2.4 *** Makefile 2001/12/29 22:06:29 2.3 --- Makefile 2002/01/25 09:06:26 2.4 *************** *** 3,21 **** SLISP=/app/unido-i06/sun4_56/edit/emacs/20.5/share/emacs/site-lisp ! all: tramp ! tramp: tramp.elc tramp-vc.elc tramp-util.elc ! tramp.elc: tramp.el ! $(EMACS) -batch --eval "(add-to-list 'load-path \".\")" \ ! -f batch-byte-compile tramp.el ! tramp-vc.elc: tramp-vc.el tramp.elc ! $(EMACS) -batch --eval "(add-to-list 'load-path \".\")" \ ! -f batch-byte-compile tramp-vc.el ! tramp-util.elc: tramp-util.el ! $(EMACS) -batch --eval "(add-to-list 'load-path \".\")" \ ! -f batch-byte-compile tramp-util.el install: all --- 3,18 ---- SLISP=/app/unido-i06/sun4_56/edit/emacs/20.5/share/emacs/site-lisp ! EMACS ?= emacs ! EVAL = --eval "(add-to-list 'load-path \".\")" ! ifdef USE_CONTRIB ! EVAL += --eval "(add-to-list 'load-path \"./../contrib\")" ! endif ! EM = $(EMACS) -batch $(EVAL) -f batch-byte-compile ! all: tramp ! tramp: tramp.elc tramp-vc.elc tramp-util.elc install: all *************** *** 28,29 **** --- 25,32 ---- clean: $(RM) *.elc + + + %.elc: %.el + $(EM) $< + + .SUFFIXES: .elc .el |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 17:24:25
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv1493/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-kill-process): New function. (tramp-post-connection): Kill connection process if something goes wrong. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.80 retrieving revision 2.81 diff -C2 -d -r2.80 -r2.81 *** ChangeLog 2002/01/22 12:43:31 2.80 --- ChangeLog 2002/01/22 17:24:23 2.81 *************** *** 13,16 **** --- 13,19 ---- all Emacsen. (toplevel): New todo item. + (tramp-kill-process): New function. + (tramp-post-connection): Kill connection process if something + goes wrong. 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.82 retrieving revision 2.83 diff -C2 -d -r2.82 -r2.83 *** tramp.el 2002/01/22 12:43:31 2.82 --- tramp.el 2002/01/22 17:24:23 2.83 *************** *** 4017,4020 **** --- 4017,4021 ---- (magic-string "xyzzy")) (when (and (or decoding encoding) (not (and decoding encoding))) + (tramp-kill-process multi-method method user host) (error "Must give both decoding and encoding command in method definition")) *************** *** 4029,4032 **** --- 4030,4034 ---- (tramp-wait-for-output) (unless (looking-at (regexp-quote magic-string)) + (tramp-kill-process multi-method method user host) (error "Remote host cannot execute de/encoding commands. See buffer `%s' for details" (buffer-name)))))) *************** *** 4191,4194 **** --- 4193,4203 ---- ; (process-send-string proc "\^D"))) + (defun tramp-kill-process (multi-method method user host) + "Kill the connection process used by Tramp. + MULTI-METHOD, METHOD, USER, and HOST, specify the connection." + (let ((proc (get-buffer-process + (tramp-get-buffer multi-method method user host)))) + (kill-process proc))) + (defun tramp-discard-garbage-erase-buffer (p multi-method method user host) "Erase buffer, then discard subsequent garbage. *************** *** 4887,4890 **** --- 4896,4900 ---- ;;; TODO: + ;; * Completion gets confused when you leave out the method name. ;; * Support `dired-compress-file' filename handler. ;; * In Emacs 21, `insert-directory' shows total number of bytes used |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 12:43:34
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv29096/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-insert-file-contents): Remove debug message referring to `last-coding-system-used' -- it does not exist on all Emacsen. (toplevel): New todo item. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.79 retrieving revision 2.80 diff -C2 -d -r2.79 -r2.80 *** ChangeLog 2002/01/22 12:39:05 2.79 --- ChangeLog 2002/01/22 12:43:31 2.80 *************** *** 9,12 **** --- 9,16 ---- (tramp-handle-file-local-copy): Use tramp-message-for-buffer, not tramp-message. + (tramp-handle-insert-file-contents): Remove debug message + referring to `last-coding-system-used' -- it does not exist on + all Emacsen. + (toplevel): New todo item. 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.81 retrieving revision 2.82 diff -C2 -d -r2.81 -r2.82 *** tramp.el 2002/01/22 12:39:05 2.81 --- tramp.el 2002/01/22 12:43:31 2.82 *************** *** 2538,2544 **** (tramp-run-real-handler 'insert-file-contents (list local-copy nil beg end replace))) - (tramp-message-for-buffer - multi-method method user host - 9 "last coding system used was %s" last-coding-system-used) ;; Now `last-coding-system-used' has right value. Remember it. (when (boundp 'last-coding-system-used) --- 2538,2541 ---- *************** *** 4890,4893 **** --- 4887,4891 ---- ;;; TODO: + ;; * Support `dired-compress-file' filename handler. ;; * In Emacs 21, `insert-directory' shows total number of bytes used ;; by the files in that directory. Add this here. |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 12:39:08
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv28043/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-file-local-copy): Use tramp-message-for-buffer, not tramp-message. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.78 retrieving revision 2.79 diff -C2 -d -r2.78 -r2.79 *** ChangeLog 2002/01/22 07:39:06 2.78 --- ChangeLog 2002/01/22 12:39:05 2.79 *************** *** 7,10 **** --- 7,12 ---- tramp-message-for-buffer, not tramp-message. (tramp-message): Prefix all messages with "tramp:". + (tramp-handle-file-local-copy): Use tramp-message-for-buffer, not + tramp-message. 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.80 retrieving revision 2.81 diff -C2 -d -r2.80 -r2.81 *** tramp.el 2002/01/22 07:39:06 2.80 --- tramp.el 2002/01/22 12:39:05 2.81 *************** *** 2437,2441 **** "see buffer `%s' for details") (tramp-get-rcp-program multi-method method) trampbuf)) ! (tramp-message 5 "Fetching %s to tmp file %s...done" filename tmpfil)) ((and (tramp-get-encoding-command multi-method method) (tramp-get-decoding-command multi-method method)) --- 2437,2443 ---- "see buffer `%s' for details") (tramp-get-rcp-program multi-method method) trampbuf)) ! (tramp-message-for-buffer ! multi-method method user host ! 5 "Fetching %s to tmp file %s...done" filename tmpfil)) ((and (tramp-get-encoding-command multi-method method) (tramp-get-decoding-command multi-method method)) |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 07:39:08
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv26890/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-insert-file-contents): Use tramp-message-for-buffer, not tramp-message. (tramp-message): Prefix all messages with "tramp:". Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.77 retrieving revision 2.78 diff -C2 -d -r2.77 -r2.78 *** ChangeLog 2002/01/22 07:34:03 2.77 --- ChangeLog 2002/01/22 07:39:06 2.78 *************** *** 4,7 **** --- 4,10 ---- `last-coding-system-used' in a way that works even if the variable is not defined. + (tramp-handle-insert-file-contents): Use + tramp-message-for-buffer, not tramp-message. + (tramp-message): Prefix all messages with "tramp:". 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.79 retrieving revision 2.80 diff -C2 -d -r2.79 -r2.80 *** tramp.el 2002/01/22 07:34:03 2.79 --- tramp.el 2002/01/22 07:39:06 2.80 *************** *** 1210,1219 **** This function expects to be called from the tramp buffer only!" (when (<= level tramp-verbose) ! (apply #'message fmt-string args) (when tramp-debug-buffer (save-excursion (set-buffer ! (tramp-get-debug-buffer tramp-current-multi-method tramp-current-method ! tramp-current-user tramp-current-host)) (goto-char (point-max)) (tramp-insert-with-face --- 1210,1220 ---- This function expects to be called from the tramp buffer only!" (when (<= level tramp-verbose) ! (apply #'message (concat "tramp: " fmt-string) args) (when tramp-debug-buffer (save-excursion (set-buffer ! (tramp-get-debug-buffer ! tramp-current-multi-method tramp-current-method ! tramp-current-user tramp-current-host)) (goto-char (point-max)) (tramp-insert-with-face *************** *** 2418,2422 **** (cond ((tramp-get-rcp-program multi-method method) ;; Use tramp-like program for file transfer. ! (tramp-message 5 "Fetching %s to tmp file %s..." filename tmpfil) (save-excursion (set-buffer trampbuf) (erase-buffer)) (unless (equal 0 --- 2419,2425 ---- (cond ((tramp-get-rcp-program multi-method method) ;; Use tramp-like program for file transfer. ! (tramp-message-for-buffer ! multi-method method user host ! 5 "Fetching %s to tmp file %s..." filename tmpfil) (save-excursion (set-buffer trampbuf) (erase-buffer)) (unless (equal 0 *************** *** 2505,2538 **** (barf-if-buffer-read-only) (setq filename (expand-file-name filename)) ! (if (not (tramp-handle-file-exists-p filename)) ! (progn ! (when visit ! (setq buffer-file-name filename) ! (set-visited-file-modtime) ! (set-buffer-modified-p nil)) ! (signal 'file-error ! (format "File `%s' not found on remote host" filename)) ! (list (tramp-handle-expand-file-name filename) 0)) ! (let ((local-copy (tramp-handle-file-local-copy filename)) ! (coding-system-used nil) ! (result nil)) ! (when visit ! (setq buffer-file-name filename) ! (set-visited-file-modtime) ! (set-buffer-modified-p nil)) ! (tramp-message 9 "Inserting local temp file `%s'..." local-copy) ! (setq result ! (tramp-run-real-handler 'insert-file-contents ! (list local-copy nil beg end replace))) ! (tramp-message 9 "last coding system used was %s" last-coding-system-used) ! ;; Now `last-coding-system-used' has right value. Remember it. ! (when (boundp 'last-coding-system-used) ! (setq coding-system-used last-coding-system-used)) ! (tramp-message 9 "Inserting local temp file `%s'...done" local-copy) ! (delete-file local-copy) ! (when (boundp 'last-coding-system-used) ! (setq last-coding-system-used coding-system-used)) ! (list (expand-file-name filename) ! (second result))))) ;; CCC grok APPEND, LOCKNAME, CONFIRM --- 2508,2551 ---- (barf-if-buffer-read-only) (setq filename (expand-file-name filename)) ! (let* ((v (tramp-dissect-file-name (tramp-handle-expand-file-name filename))) ! (multi-method (tramp-file-name-multi-method v)) ! (method (tramp-file-name-method v)) ! (user (tramp-file-name-user v)) ! (host (tramp-file-name-host v)) ! (path (tramp-file-name-path v))) ! (if (not (tramp-handle-file-exists-p filename)) ! (progn ! (when visit ! (setq buffer-file-name filename) ! (set-visited-file-modtime) ! (set-buffer-modified-p nil)) ! (signal 'file-error ! (format "File `%s' not found on remote host" filename)) ! (list (tramp-handle-expand-file-name filename) 0)) ! (let ((local-copy (tramp-handle-file-local-copy filename)) ! (coding-system-used nil) ! (result nil)) ! (when visit ! (setq buffer-file-name filename) ! (set-visited-file-modtime) ! (set-buffer-modified-p nil)) ! (tramp-message-for-buffer ! multi-method method user host ! 9 "Inserting local temp file `%s'..." local-copy) ! (setq result ! (tramp-run-real-handler 'insert-file-contents ! (list local-copy nil beg end replace))) ! (tramp-message-for-buffer ! multi-method method user host ! 9 "last coding system used was %s" last-coding-system-used) ! ;; Now `last-coding-system-used' has right value. Remember it. ! (when (boundp 'last-coding-system-used) ! (setq coding-system-used last-coding-system-used)) ! (tramp-message 9 "Inserting local temp file `%s'...done" local-copy) ! (delete-file local-copy) ! (when (boundp 'last-coding-system-used) ! (setq last-coding-system-used coding-system-used)) ! (list (expand-file-name filename) ! (second result)))))) ;; CCC grok APPEND, LOCKNAME, CONFIRM |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 07:34:06
|
Update of /cvsroot/tramp/tramp In directory usw-pr-cvs1:/tmp/cvs-serv25967/tramp Modified Files: ChangeLog Makefile Log Message: * tramp.el (tramp-handle-set-visited-file-modtime): Save `last-coding-system-used' in a way that works even if the variable is not defined. * Makefile (xemacs): New target: copy stuff to the XEmacs package source directory. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/ChangeLog,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ChangeLog 2002/01/02 13:55:15 1.7 --- ChangeLog 2002/01/22 07:34:03 1.8 *************** *** 1,2 **** --- 1,7 ---- + 2002-01-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * Makefile (xemacs): New target: copy stuff to the XEmacs package + source directory. + 2002-01-02 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: Makefile =================================================================== RCS file: /cvsroot/tramp/tramp/Makefile,v retrieving revision 2.5 retrieving revision 2.6 diff -C2 -d -r2.5 -r2.6 *** Makefile 2001/12/06 12:34:38 2.5 --- Makefile 2002/01/22 07:34:03 2.6 *************** *** 51,54 **** --- 51,59 ---- tar cvpfzT tramp/tramp-stable.tar.gz MANIFEST.stable + xemacs: + cp lisp/ChangeLog lisp/tramp*.el ../../xemacs/tramp/lisp + cp texi/ChangeLog texi/tramp*.texi ../../xemacs/tramp/texi + cp test/*.el ../../xemacs/tramp/test + dist: tar install -m644 tramp.tar.gz /home-local/ftp/pub/src/emacs |
From: Kai Gro?j. <ka...@us...> - 2002-01-22 07:34:06
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv25967/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.el (tramp-handle-set-visited-file-modtime): Save `last-coding-system-used' in a way that works even if the variable is not defined. * Makefile (xemacs): New target: copy stuff to the XEmacs package source directory. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.76 retrieving revision 2.77 diff -C2 -d -r2.76 -r2.77 *** ChangeLog 2002/01/21 10:54:42 2.76 --- ChangeLog 2002/01/22 07:34:03 2.77 *************** *** 1,2 **** --- 1,8 ---- + 2002-01-22 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-set-visited-file-modtime): Save + `last-coding-system-used' in a way that works even if the + variable is not defined. + 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.78 retrieving revision 2.79 diff -C2 -d -r2.78 -r2.79 *** tramp.el 2002/01/21 10:54:42 2.78 --- tramp.el 2002/01/22 07:34:03 2.79 *************** *** 1574,1581 **** (when time-list (tramp-run-real-handler 'set-visited-file-modtime (list time-list))) ! (let* ((last-coding-system-used ;don't clobber ! (if (boundp 'last-coding-system-used) ! last-coding-system-used ! nil)) (f (buffer-file-name)) (v (tramp-dissect-file-name f)) --- 1574,1578 ---- (when time-list (tramp-run-real-handler 'set-visited-file-modtime (list time-list))) ! (let* ((coding-system-used nil) (f (buffer-file-name)) (v (tramp-dissect-file-name f)) *************** *** 1589,1592 **** --- 1586,1591 ---- ;; We use '(0 0) as a don't-know value. See also ;; `tramp-handle-file-attributes-with-ls'. + (when (boundp 'last-coding-system-used) + (setq coding-system-used last-coding-system-used)) (if (not (equal modtime '(0 0))) (tramp-run-real-handler 'set-visited-file-modtime (list modtime)) *************** *** 1601,1604 **** --- 1600,1605 ---- (progn (end-of-line) (point))))) (setq tramp-buffer-file-attributes attr)) + (when (boundp 'last-coding-system-used) + (setq last-coding-system-used coding-system-used)) nil)) |
From: Kai Gro?j. <ka...@us...> - 2002-01-21 10:54:46
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv14645/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (top-level, tramp-run-real-handler, efs-ftp-path): Disable special handling for ange-ftp and EFS. This was only needed when Tramp names also matched the ange-ftp filename regexp. This experimental change only comments out the relevant sections. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.75 retrieving revision 2.76 diff -C2 -d -r2.75 -r2.76 *** ChangeLog 2002/01/20 16:39:39 2.75 --- ChangeLog 2002/01/21 10:54:42 2.76 *************** *** 1,2 **** --- 1,9 ---- + 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (top-level, tramp-run-real-handler, efs-ftp-path): + Disable special handling for ange-ftp and EFS. This was only + needed when Tramp names also matched the ange-ftp filename regexp. + This experimental change only comments out the relevant sections. + 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.77 retrieving revision 2.78 diff -C2 -d -r2.77 -r2.78 *** tramp.el 2002/01/20 16:39:39 2.77 --- tramp.el 2002/01/21 10:54:42 2.78 *************** *** 82,88 **** (require 'advice) ! ;; It does not work to load EFS after loading TRAMP. ! (when (fboundp 'efs-file-handler-function) ! (require 'efs)) (eval-when-compile --- 82,88 ---- (require 'advice) ! ;; ;; It does not work to load EFS after loading TRAMP. ! ;; (when (fboundp 'efs-file-handler-function) ! ;; (require 'efs)) (eval-when-compile *************** *** 2742,2754 **** ;; ;; Daniel Pittman <da...@da...> (defun tramp-run-real-handler (operation args) "Invoke normal file name handler for OPERATION. - This inhibits EFS and Ange-FTP, too, because they conflict with tramp. First arg specifies the OPERATION, remaining ARGS are passed to the OPERATION." (let ((inhibit-file-name-handlers (list 'tramp-file-name-handler - 'efs-file-handler-function - 'ange-ftp-hook-function (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers))) --- 2742,2766 ---- ;; ;; Daniel Pittman <da...@da...> + + ;; (defun tramp-run-real-handler (operation args) + ;; "Invoke normal file name handler for OPERATION. + ;; This inhibits EFS and Ange-FTP, too, because they conflict with tramp. + ;; First arg specifies the OPERATION, remaining ARGS are passed to the + ;; OPERATION." + ;; (let ((inhibit-file-name-handlers + ;; (list 'tramp-file-name-handler + ;; 'efs-file-handler-function + ;; 'ange-ftp-hook-function + ;; (and (eq inhibit-file-name-operation operation) + ;; inhibit-file-name-handlers))) + ;; (inhibit-file-name-operation operation)) + ;; (apply operation args))) + (defun tramp-run-real-handler (operation args) "Invoke normal file name handler for OPERATION. First arg specifies the OPERATION, remaining ARGS are passed to the OPERATION." (let ((inhibit-file-name-handlers (list 'tramp-file-name-handler (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers))) *************** *** 4749,4774 **** result))) ! ;; EFS hooks itself into the file name handling stuff in more places ! ;; than just `file-name-handler-alist'. The following tells EFS to stay ! ;; away from tramp.el paths. ! ;; ! ;; This is needed because EFS installs (efs-dired-before-readin) into ! ;; 'dired-before-readin-hook'. This prevents EFS from opening an FTP ! ;; connection to help it's dired process. Not that I have any real ! ;; idea *why* this is helpful to dired. ! ;; ! ;; Anyway, this advice fixes the problem (with a sledgehammer :) ! ;; ! ;; Daniel Pittman <da...@da...> ! ;; ! ;; CCC: when the other defadvice calls have disappeared, make sure ! ;; not to call defadvice unless it's necessary. How do we find out whether ! ;; it is necessary? (featurep 'efs) is surely the wrong way -- ! ;; EFS might nicht be loaded yet. ! (defadvice efs-ftp-path (around dont-match-tramp-path activate protect) ! "Cause efs-ftp-path to fail when the path is a TRAMP path." ! (if (tramp-tramp-file-p (ad-get-arg 0)) ! nil ! ad-do-it)) ;; We currently use "[" and "]" in the filename format. In Emacs --- 4761,4786 ---- result))) ! ;; ;; EFS hooks itself into the file name handling stuff in more places ! ;; ;; than just `file-name-handler-alist'. The following tells EFS to stay ! ;; ;; away from tramp.el paths. ! ;; ;; ! ;; ;; This is needed because EFS installs (efs-dired-before-readin) into ! ;; ;; 'dired-before-readin-hook'. This prevents EFS from opening an FTP ! ;; ;; connection to help it's dired process. Not that I have any real ! ;; ;; idea *why* this is helpful to dired. ! ;; ;; ! ;; ;; Anyway, this advice fixes the problem (with a sledgehammer :) ! ;; ;; ! ;; ;; Daniel Pittman <da...@da...> ! ;; ;; ! ;; ;; CCC: when the other defadvice calls have disappeared, make sure ! ;; ;; not to call defadvice unless it's necessary. How do we find out whether ! ;; ;; it is necessary? (featurep 'efs) is surely the wrong way -- ! ;; ;; EFS might nicht be loaded yet. ! ;; (defadvice efs-ftp-path (around dont-match-tramp-path activate protect) ! ;; "Cause efs-ftp-path to fail when the path is a TRAMP path." ! ;; (if (tramp-tramp-file-p (ad-get-arg 0)) ! ;; nil ! ;; ad-do-it)) ;; We currently use "[" and "]" in the filename format. In Emacs *************** *** 4935,4938 **** --- 4947,4956 ---- ;; connection which is inconvenient if the user has to reenter ;; passwords. + ;; * Change `copy-file' to grok the case where the filename handler + ;; for the source and the target file are different. Right now, + ;; it looks at the source file and then calls that handler, if + ;; there is one. But since ange-ftp, for instance, does not know + ;; about Tramp, it does not do the right thing if the target file + ;; name is a Tramp name. ;; Functions for file-name-handler-alist: |
From: Kai Gro?j. <ka...@us...> - 2002-01-21 10:50:33
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv13494/tramp/texi Modified Files: ChangeLog tramp_ja.texi Log Message: Sync with tramp.texi rev 2.10. From Yoichi NAKAYAMA <yoichi@FreeBSD.org>. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.12 retrieving revision 2.13 diff -C2 -d -r2.12 -r2.13 *** ChangeLog 2002/01/20 16:39:40 2.12 --- ChangeLog 2002/01/21 10:50:30 2.13 *************** *** 1,2 **** --- 1,7 ---- + 2002-01-21 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp_ja.texi: Sync with tramp.texi rev 2.10. From Yoichi + NAKAYAMA <yoichi@FreeBSD.org>. + 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp_ja.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp_ja.texi,v retrieving revision 2.2 retrieving revision 2.3 diff -C2 -d -r2.2 -r2.3 *** tramp_ja.texi 2001/09/07 13:50:27 2.2 --- tramp_ja.texi 2002/01/21 10:50:30 2.3 *************** *** 27,31 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED 2001 ǯ 9 ·î 7 Æü (Fri) @c XXX VERSION and UPDATED are Japanese manual's version and update date. @c XXX If we need original's one, we MUST use literal version and date --- 27,31 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED 2002 ǯ 1 ·î 15 Æü (Tue) @c XXX VERSION and UPDATED are Japanese manual's version and update date. @c XXX If we need original's one, we MUST use literal version and date *************** *** 110,113 **** --- 110,120 ---- @top @tramp{} ¥æ¡¼¥¶¡¼¥Þ¥Ë¥å¥¢¥ë + @html + ¤³¤Î¥×¥í¥¸¥§¥¯¥È¤Ï <A href="http://sourceforge.net"> + <IMG src="http://sourceforge.net/sflogo.php?group_id=34545" + width="88" height="31" border="0" alt="SourceForge Logo"></A> + ¤Ë´Ö¼Ú¤ê¤µ¤»¤Æ夤¤Æ¤¤¤Þ¤¹¡£ + @end html + @tramp{} ¤Ï `Transparent Remote (file) Access, Multiple Protocol' ¤Îά¾Î¤Ç¤¹¡£¤³¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ï @cite{ange-ftp} ¤ä @cite{EFS} ¤Î¤è¤¦¤Ê *************** *** 119,124 **** ¥×¥í¥°¥é¥à¡¢Î㤨¤Ð @command{ssh} ¤ä @command{scp}¤ò»ÈÍѤ·¤Þ¤¹¡£ ! ¤³¤ì¤Ï @tramp{} ¤Î¥Þ¥Ë¥å¥¢¥ë¤Î¥Ð¡¼¥¸¥ç¥ó 1.38 ¤Ç¡¢ºÇ¸å¤Ë¹¹¿·¤µ¤ì¤¿ ! ¤Î¤Ï 2001 ǯ 1 ·î 4 Æü (ÌÚ)¤Ç¤¹¡£ @ifset ja --- 126,131 ---- ¥×¥í¥°¥é¥à¡¢Î㤨¤Ð @command{ssh} ¤ä @command{scp}¤ò»ÈÍѤ·¤Þ¤¹¡£ ! ¤³¤ì¤Ï @tramp{} ¤Î¥Þ¥Ë¥å¥¢¥ë¤Î¥Ð¡¼¥¸¥ç¥ó 2.10 ¤Ç¡¢ºÇ¸å¤Ë¹¹¿·¤µ¤ì¤¿ ! ¤Î¤Ï 2001 ǯ 12 ·î 11 Æü (²Ð)¤Ç¤¹¡£ @ifset ja *************** *** 131,135 **** ¤³¤Î¥É¥¥å¥á¥ó¥È¤ÎºÇ¿·¥Ð¡¼¥¸¥ç¥ó¤Ï web ¥µ¥¤¥È ! @uref{http://ls6-www.informatik.uni-dortmund.de/~grossjoh/emacs/tramp.html} ¤Ë¤¢¤ê¤Þ¤¹¡£ --- 138,142 ---- ¤³¤Î¥É¥¥å¥á¥ó¥È¤ÎºÇ¿·¥Ð¡¼¥¸¥ç¥ó¤Ï web ¥µ¥¤¥È ! @uref{http://tramp.sourceforge.net/} ¤Ë¤¢¤ê¤Þ¤¹¡£ *************** *** 142,153 **** ºÇ¿·¤Î @tramp{} ¤Ï ! @uref{ftp://ls6-ftp.cs.uni-dortmund.de/pub/src/emacs/tramp.tar.gz} ¤Ë¤¢¤ê¤Þ¤¹¡£¾ÜºÙ¤Ï @ref{Obtaining @tramp{}} ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ CVS ¥µ¡¼¥Ð¡¼¤Ë¤Ä¤¤¤Æ¤ÎÀâÌÀ¤â¤¢¤ê¤Þ¤¹¡£ @end ifhtml ! @tramp{}¤Î¤¿¤á¤Î¥á¡¼¥ê¥ó¥°¥ê¥¹¥È @email{emacs-rcp@@ls6.cs.uni-dortmund.de} ! ¤¬Â¸ºß¤·¤Þ¤¹¡£¥¢¡¼¥«¥¤¥Ö¤Ï ! @uref{http://www.mail-archive.com/emacs-rcp@@ls6.cs.uni-dortmund.de/} ¤Ë¤¢¤ê¤Þ¤¹¡£ --- 149,163 ---- ºÇ¿·¤Î @tramp{} ¤Ï ! @uref{http://tramp.sourceforge.net/download} ¤Ë¤¢¤ê¤Þ¤¹¡£¾ÜºÙ¤Ï @ref{Obtaining @tramp{}} ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ CVS ¥µ¡¼¥Ð¡¼¤Ë¤Ä¤¤¤Æ¤ÎÀâÌÀ¤â¤¢¤ê¤Þ¤¹¡£ + + ¤Þ¤¿¡¢ @uref{http://sourceforge.net/projects/tramp/, + SourceForge Project Page} ¤Ë¤â @tramp{} ¤Î¾ðÊ󤬤¢¤ê¤Þ¤¹¡£ @end ifhtml ! @tramp{}¤Î¤¿¤á¤Î¥á¡¼¥ê¥ó¥°¥ê¥¹¥È @email{tramp-devel@@lists.sourceforge.net} ! ¤¬Â¸ºß¤·¤Þ¤¹¡£¥¢¡¼¥«¥¤¥Ö¤ÏÄ̾ï¤Î SourceForge ¥¢¡¼¥«¥¤¥Ö¤ÈƱ¤¸¤¯¡¢ ! @uref{http://www.mail-archive.com/emacs-rcp@@ls6.cs.uni-dortmund.de/} ¤Ë¤¢¤ê¤Þ¤¹¡£ *************** *** 185,188 **** --- 195,199 ---- * Customizing Methods:: Èóɸ½à¤Î¥á¥½¥Ã¥É¤ò»È¤¦ * Remote Programs:: ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Ç @tramp{} ¤¬¥×¥í¥°¥é¥à¤òȯ¸«¡¢»ÈÍѤ¹¤ëÊýË¡ + * Remote shell setup:: @tramp{} ¤Î»È¤¤Êý *************** *** 433,445 **** ¤«¤éÆþ¼ê¤¹¤ë¤¿¤á¤Ë¤Ï¡¢°Ê²¼¤Î¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤(¥Ü¡¼¥ë¥É¤Îʸ»ú¤ò ÆþÎϤ·¤Æ¤¯¤À¤µ¤¤): @example ] @strong{cd ~/lisp} ! ] @strong{cvs -d :pserver:cvs@@bonny.cs.uni-dortmund.de:/services/emacs-rcp/cvsroot login} ! (Logging in to cvs@@bonny.cs.uni-dortmund.de) CVS password: @strong{(just hit RET here)} @dots{} ! ] @strong{cvs -d :pserver:cvs@@bonny.cs.uni-dortmund.de:/services/emacs-rcp/cvsroot get tramp} @end example --- 444,460 ---- ¤«¤éÆþ¼ê¤¹¤ë¤¿¤á¤Ë¤Ï¡¢°Ê²¼¤Î¥³¥Þ¥ó¥É¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤(¥Ü¡¼¥ë¥É¤Îʸ»ú¤ò ÆþÎϤ·¤Æ¤¯¤À¤µ¤¤): + @tramp {} ¤ÎºÇ¿·¤Î³«È¯¥Ð¡¼¥¸¥ç¥ó¤ò CVS ¤«¤éÆþ¼ê¤¹¤ëÊýË¡¤Ï¡¢SourceForge + ¥×¥í¥¸¥§¥¯¥È¥Ú¡¼¥¸ (@uref{http://sourceforge.net/projects/tramp/}) ¤Ç + °ìÈÖ¾å¤Î¥Ê¥Ó¥²¡¼¥·¥ç¥ó¥Ð¡¼¤Ë¤¢¤ë CVS ¤Î¥ê¥ó¥¯¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤Ð¸«¤ë¤³¤È¤¬ + ½ÐÍè¤Þ¤¹¡£¤â¤·¤¯¤Ï°Ê²¼¤ÎÎã¤ËÊï¤Ã¤Æ²¼¤µ¤¤: @example ] @strong{cd ~/lisp} ! ] @strong{cvs -d:pserver:anonymous@@cvs.tramp.sourceforge.net:/cvsroot/tramp login} ! (Logging in to anonymous@@cvs.tramp.sourceforge.net) CVS password: @strong{(just hit RET here)} @dots{} ! ] @strong{cvs -z3 -d:pserver:anonymous@@cvs.tramp.sourceforge.net:/cvsroot/tramp co tramp} @end example *************** *** 539,546 **** ! @tramp{} ¤Ï¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¤À¤±¤Ç´°Á´¤Ëµ¡Ç½¤·¤Þ¤¹¡£½é´ü¾õÂ֤Ǥϡ¢¥ê¥â¡¼¥È ! ¥Û¥¹¥È¤Ø¤ÎÀܳ¤Ë @command{rsh} ¤È @command{rcp} ¥×¥í¥°¥é¥à¤ò»ÈÍѤ¹¤ë¤è¤¦ ! ¤ËÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤â¤·¡¢¥ê¥â¡¼¥È¥Û¥¹¥È¤È¤ÎÀܳ¤Ë¤³¤ì¤é¤Î¥³¥Þ¥ó¥É¤ò»ÈÍѤ·¤¿¤¯¤Ê¤¤¾ì¹ç¤Ï¡¢ @tramp{} ¤Î¥Ç¥Õ¥©¥ë¥È¤ÎÀܳ¤ÈžÁ÷¥á¥½¥Ã¥É¤òÊѹ¹¤·¤Æ¤¯¤À¤µ¤¤¡£¥ê¥â¡¼¥È --- 554,565 ---- ! @tramp{} ¤Ï(Ä̾ï)¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¤À¤±¤Ç´°Á´¤Ëµ¡Ç½¤·¤Þ¤¹¡£½é´ü¾õÂ֤Ǥϡ¢ ! ¥ê¥â¡¼¥È¥Û¥¹¥È¤Ø¤ÎÀܳ¤Ë @command{rsh} ¤È @command{rcp} ¥×¥í¥°¥é¥à¤ò»ÈÍÑ ! ¤¹¤ë¤è¤¦¤ËÀßÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£ + ¥Û¥¹¥È¤Ë¤è¤Ã¤Æ¤Ï¡¢Àܳ¤ò³ÎΩ¤¹¤ë¤Î¤ËÌäÂ꤬µ¯¤¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¡¢ + remote shell ¤Î¿¶¤ëÉñ¤¤¤Ë¤è¤ë¤â¤Î¤Ç¤¹¡£¤³¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï @xref{Remote + shell setup}, ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£ + ¤â¤·¡¢¥ê¥â¡¼¥È¥Û¥¹¥È¤È¤ÎÀܳ¤Ë¤³¤ì¤é¤Î¥³¥Þ¥ó¥É¤ò»ÈÍѤ·¤¿¤¯¤Ê¤¤¾ì¹ç¤Ï¡¢ @tramp{} ¤Î¥Ç¥Õ¥©¥ë¥È¤ÎÀܳ¤ÈžÁ÷¥á¥½¥Ã¥É¤òÊѹ¹¤·¤Æ¤¯¤À¤µ¤¤¡£¥ê¥â¡¼¥È *************** *** 556,559 **** --- 575,579 ---- * Customizing Methods:: Èóɸ½à¤Î¥á¥½¥Ã¥É¤ò»È¤¦ * Remote Programs:: ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Ç @tramp{} ¤¬¥×¥í¥°¥é¥à¤òȯ¸«¡¢»ÈÍѤ¹¤ëÊýË¡ + * Remote shell setup:: @end menu *************** *** 728,734 **** ¥ê¥Æ¥£¤¬¡¢¥Ñ¥¹¥ï¡¼¥ÉÆþÎϤʤ·¤Ç¼Â¹Ô¤Ç¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ! ¤Ä¤Þ¤ê¡¢@command{scp} ¤ò»È¤¦¾ì¹ç¤Ë¤Ï¡¢@command{ssh-agent} ¤ò»È¤¦É¬Íפ¬ ! ¤¢¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£@command{ssh} ·Ðͳ¤Ç @command{rsync} ¤ò»È¤¦¾ì¹ç¤â ! ƱÍͤǤ¹¡£ ¤â¤·¡¢¥Ñ¥¹¥ï¡¼¥ÉÆþÎϤʤ·¤Ç @command{scp} ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¤¬¡¢ --- 748,756 ---- ¥ê¥Æ¥£¤¬¡¢¥Ñ¥¹¥ï¡¼¥ÉÆþÎϤʤ·¤Ç¼Â¹Ô¤Ç¤¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ ! ¤Ä¤Þ¤ê¡¢@command{scp} ¤ò»È¤¦¾ì¹ç¤ä¡¢»È¤Ã¤Æ¤¤¤ë @command{scp} ¤¬¥³¥Þ¥ó¥É ! ¥é¥¤¥ó¤Ç¥Ñ¥¹¥ï¡¼¥É¤ò¼õ¤±ÉÕ¤±¤ë¥Ð¡¼¥¸¥ç¥ó¤Î¾ì¹ç¤Ë¤Ï¡¢@command{ssh-agent} ! ¤ò»È¤¦É¬Íפ¬¤¢¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£@footnote{PuTTY's @command{pscp} ¤Ç¤Ï ! ¥³¥Þ¥ó¥É¥é¥¤¥ó¤Ç¥Ñ¥¹¥ï¡¼¥É¤ò»ØÄê¤Ç¤¤Þ¤¹¡£} ! @command{ssh} ·Ðͳ¤Ç @command{rsync} ¤ò»È¤¦¾ì¹ç¤âƱÍͤǤ¹¡£ ¤â¤·¡¢¥Ñ¥¹¥ï¡¼¥ÉÆþÎϤʤ·¤Ç @command{scp} ¤ò¼Â¹Ô¤¹¤ë¤³¤È¤¬¤Ç¤¤Ê¤¤¤¬¡¢ *************** *** 854,858 **** --- 876,894 ---- @end itemize + @code{ssh} ¤òÍѤ¤¤Æ¥Ý¡¼¥È¥Õ¥©¥ï¡¼¥É¤ò¤·¤¿¤¤¾ì¹ç¤ä¡¢É¸½àŪ¤Ç¤Ê¤¤¥Ý¡¼¥È¤ò + »ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¾ì¹ç¤¬¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤½¤Î¤è¤¦¤Ê¾ì¹ç¤Ë¤Ï¡¢ + ¥Û¥¹¥È̾¤´¤È¤Ë°Û¤Ê¤ë¥Ý¡¼¥ÈÈÖ¹æ¤ò»ØÄꤷ¤¿µ½Ò¤ò @file{~/.ssh/config} ¤Ë + ½ñ¤¹þ¤à¤³¤È¤Ç¼Â¸½¤Ç¤¤Þ¤¹¡£¤·¤«¤·¤Ê¤¬¤é¡¢multi-hop ¥á¥½¥Ã¥É¤ò»È¤¨¤Ð + ¤½¤ì¤Ï Tramp ¤ÎÏÈÆâ¤Ç¼Â¸½¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£Î㤨¤Ð: + + @lisp + (add-to-list 'tramp-multi-connection-function-alist + '("sshf" tramp-multi-connect-rlogin "ssh %h -l %u -p 4400%n")) + @end lisp + ¤È¤¹¤ì¤Ð¡¢ @code{sshf} ¥Û¥Ã¥×¤òÍѤ¤¤Æ¡¢É¸½àŪ¤Ê¥Ý¡¼¥È¤ÎÊѤï¤ê¤Ë 4400 ÈÖ + ¥Ý¡¼¥È¤Ø·Ò¤°¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ + + @node Default Method, Customizing Methods, Multi-hop Methods, Configuration @section ¥Ç¥Õ¥©¥ë¥È¤Î¥á¥½¥Ã¥É¤ÎÁªÂò *************** *** 899,903 **** ¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ ! @node Remote Programs, , Customizing Methods, Configuration @section ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Ç @tramp{} ¤¬¥×¥í¥°¥é¥à¤òȯ¸«¡¢»ÈÍѤ¹¤ëÊýË¡ --- 935,939 ---- ¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ ! @node Remote Programs, Remote shell setup, Customizing Methods, Configuration @section ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Ç @tramp{} ¤¬¥×¥í¥°¥é¥à¤òȯ¸«¡¢»ÈÍѤ¹¤ëÊýË¡ *************** *** 937,941 **** --- 973,1038 ---- @end example + @node Remote shell setup, , Remote Programs, Configuration + @comment node-name, next, previous, up + @section ¥ê¥â¡¼¥È¥·¥§¥ë¤ÎÀßÄê¤Î¥Ò¥ó¥È + + @ref{Overview} ¤ÎÀá¤ÇÀâÌÀ¤·¤¿¤è¤¦¤Ë¡¢@tramp{} ¤Ï¥ê¥â¡¼¥È¥Û¥¹¥È¤ËÀܳ¤·¡¢ + ¤½¤³¤Ë¤¢¤ë¥·¥§¥ë¤ÈÂÐÏä·¤Þ¤¹¡£¤â¤Á¤í¤ó¥í¥°¥¤¥ó¤¹¤ëºÝ¤Ë¤Ï¥·¥§¥ë¤Ï¤½¤Î + ½é´ü²½¥Õ¥¡¥¤¥ë¤ò¼Â¹Ô¤·¤Þ¤¹¡£Î㤨¤Ð¤¢¤Ê¤¿¤Î½é´ü²½¥Õ¥¡¥¤¥ë¤¬¤¢¤Ê¤¿¤Î¤ªÊì + ¤µ¤ó¤ÎÃÂÀ¸Æü¤òÆþÎϤµ¤»¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤¿¤È¤·¤Þ¤·¤ç¤¦; ÅöÁ³ @tramp{} + ¤Ï¤½¤Î¤³¤È¤òÃΤé¤Ê¤¤¤Î¤Ç¡¢¤½¤Î¥Û¥¹¥È¤Ø¤Î¥í¥°¥¤¥ó¤Ë¼ºÇÔ¤·¤Þ¤¹¡£ + ¤³¤ÎÌäÂê¤òÄɵ᤹¤ë¤¿¤á¤Ë¡¢¤¤¤¯¤Ä¤«¤ÎÀïά¤¬¹Í¤¨¤é¤ì¤Þ¤¹¡£°ì¤Ä¤Ï¡¢@tramp{} + ¤¬¤¹¤Ù¤Æ¤Î²Äǽ¤Ê¾õ¶·¤ËÂбþ¤Ç¤¤ë¤è¤¦¤Ë¤¹¤ë¤³¤È¤Ç¤¹¡£¤³¤ì¤Ï¾ÃÌ×Àï¤Ç¤¹¡£ + ²¿¸Î¤Ê¤é @emph{Á´¤Æ¤Î} ¾õ¶·¤ò°·¤¦¤³¤È¤ÏÉÔ²Äǽ¤À¤«¤é¤Ç¤¹¡£Ê̤μê¤È¤·¤Æ¡¢ + @tramp{} ¤Î´üÂÔÄ̤ê¤Ë¿¶¤ëÉñ¤¦¤è¤¦¤Ë¡¢¤¢¤Ê¤¿¤Ë¥ê¥â¡¼¥È¥Û¥¹¥È¤ÎÀßÄê¤ò¤·¤Æ + ¤¤¤¿¤À¤¯¤È¤¤¤¦¤³¤È¤â½ÐÍè¤Þ¤¹¡£¤·¤«¤·¤³¤ì¤ÏÉÔÊؤ«¤â¤·¤ì¤Þ¤»¤ó¡£²¿¸Î¤Ê¤é + @tramp{} ¤ò»È¤¤»Ï¤á¤ë¤è¤êÀè¤Ë¡¢¥·¥§¥ë¤ÎÀßÄê¤Ë¿¤¯¤ÎÏ«ÎϤò³ä¤¯É¬Íפ¬¤¢¤ë + ¤Î¤Ç¤¹¤«¤é¡£ + + ¤½¤Î¤³¤È¤«¤é¡¢¤³¤Î¥Ñ¥Ã¥±¡¼¥¸¤Ç¤Ï¤½¤ì¤é¤òÁȤ߹ç¤ï¤»¤¿ÊýË¡¤ò¤È¤ê¤Þ¤¹¡£ + ¤¤¤¯¤Ä¤«¤Î¤¢¤ê¤Õ¤ì¤¿ÀßÄê¤Ë¤Ä¤¤¤Æ¤ÏÍý²ò¤·¤è¤¦¤È¤·¤Æ¤¯¤ì¤Æ¡¢¤¢¤Ê¤¿¤Ë¤Ï + ËÜÅö¤ËÆðۤÊÀßÄê¤À¤±¤òÈò¤±¤ë¤è¤¦¤Ëµá¤á¤Þ¤¹¡£Î㤨¤Ð¡¢¥ê¥â¡¼¥È¥Û¥¹¥È¾å¤Ç + ¤¢¤ë¥×¥í¥°¥é¥à¤ò¸«¤Ä¤±¤ë¤¿¤á¤Ë¤Ï¡¢¥Ç¥£¥ì¥¯¥È¥ê¤Î°ìÍ÷¤òÄ´¤Ù¤Þ¤¹¡£ + ¤½¤·¤Æ¤Þ¤¿¡¢¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¤ò¤É¤¦¤«Ä´¤Ù¤ëÊýË¡¤È¤¤¤¦¤Î¤âÌÀ¤é¤«¤Ç¤Ï + ¤Ê¤¤¤Î¤Ç¡¢¤¤¤¯¤Ä¤«¤Î°Û¤Ê¤ë²ÄǽÀ¤ò»î¤·¤Æ¤¯¤ì¤Þ¤¹¡£ + (¤¢¤ë¥Û¥¹¥È¤È¥·¥§¥ë¤Ë¤ª¤¤¤Æ¤Ï¡¢@code{test -e} ¥³¥Þ¥ó¥É¤¬¤½¤ÎÌòÌܤò²Ì¤¿¤¹¡£ + Ê̤Υۥ¹¥È¡¢¥·¥§¥ë¤ËÂФ·¤Æ¤Ï¥·¥§¥ë¤ÎÁȤ߹þ¤ß¥³¥Þ¥ó¥É¤ÏƯ¤«¤Ê¤¤¤¬¡¢ + @code{/usr/bin/test -e} ¤ä @code{/bin/test -e} ¤Ê¤é¤¦¤Þ¤¯Æ¯¤¯¡£ + ¤½¤·¤Æ¤µ¤é¤ËÊ̤Υۥ¹¥È¤Ç¤Ï @code{ls -d} ¤¬¤½¤ÎÊýË¡¤È¤·¤ÆƯ¤¯¡£) + + °Ê²¼¤Ç¤Ï¡¢@tramp{} ¤¬¼è¤ê°·¤Ã¤Æ¤¯¤ì¤Ê¤¤¡¢¤Ä¤Þ¤ê¤¢¤Ê¤¿¤¬Àµ¤·¤¯ÀßÄꤹ¤ëɬÍ× + ¤Î¤¢¤ë¤¤¤¯¤Ä¤«¤Î»öÊÁ¤Ë¤Ä¤¤¤Æ½Ò¤Ù¤Þ¤¹¡£ + + @itemize + @item @code{shell-prompt-pattern} + + @vindex shell-prompt-pattern + ¥ê¥â¡¼¥È¥Û¥¹¥È¤Ë¥í¥°¥¤¥ó¤·¤¿¸å¡¢@tramp{} ¤¬¥ê¥â¡¼¥È¥·¥§¥ë¤ËÌ¿Îá¤òÁ÷¤ì¤ë + ¤è¤¦¤Ë¤Ê¤ëÁ°¤Ë¡¢¥ê¥â¡¼¥È¥·¥§¥ë¤Î¥»¥Ã¥È¥¢¥Ã¥×¤¬½ªÎ»¤¹¤ë¤Î¤òÂÔ¤ÄɬÍפ¬¤¢¤ê + ¤Þ¤¹¡£¥·¥§¥ë¥×¥í¥ó¥×¥È¤òǧ¼±¤¹¤ë°Ù¤Ë¡¢ÊÑ¿ô @code{shell-prompt-pattern} + ¤ò¥ê¥â¡¼¥È¥Û¥¹¥È¤Î¥·¥§¥ë¥×¥í¥ó¥×¥È¤òǧ¼±½ÐÍè¤ë¤è¤¦¤ËÀßÄꤷ¤Æ¤ª¤¯É¬Íפ¬ + ¤¢¤ê¤Þ¤¹¡£ + + @item @code{tset} ¤È¤½¤Î¾¤Î¼ÁÌä + + ¥·¥§¥ë¤Îµ¯Æ°¥¹¥¯¥ê¥×¥È¤«¤é @code{tset} ¥×¥í¥°¥é¥à¤ò¸Æ¤Ó½Ð¤·¡¢ + ¥·¥§¥ë¤ÎüËö¤Î¼ïÎà¤ò¿Ò¤Í¤ë¤è¤¦¤Ë¤·¤Æ¤¤¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£¤¿¤Ö¤ó + ¥·¥§¥ë¤Ë¤è¤Ã¤Æ¤Ï¤½¤Î¾¤Î¼ÁÌä¤òµ¯Æ°»þ¤Ë¤·¤Æ¤¯¤ë¾ì¹ç¤â¤¢¤ë¤Ç¤·¤ç¤¦¡£ + @tramp{} ¤Ï¤³¤ì¤é¤Î¼ÁÌä¤ËÅú¤¨¤ëÊýË¡¤òÃΤê¤Þ¤»¤ó¡£ + (¾Íè¤Î¥Ð¡¼¥¸¥ç¥ó¤Ç¤³¤ì¤é¤Î¼ÁÌä¤Ë @tramp{} ¤¬Åú¤¨¤é¤ì¤ë¤è¤¦¤Ë¤¹¤ë + ¤³¤È¤¬·×²è¤µ¤ì¤Æ¤¤¤Þ¤¹¤¬¡¢´üÂÔ¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£) + + ¤·¤¿¤¬¤Ã¤Æ¤¢¤Ê¤¿¤Ï¡¢¥·¥§¥ë¤¬ @tramp{} ¤«¤é¸Æ¤Ó½Ð¤µ¤ì¤¿¤È¤¤Ë²¿¤Î¼ÁÌä¤â + ¤·¤Ê¤¤¤è¤¦¤ËÌÌÅݤò¸«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤½¤Î¤¿¤á¤Ë¤Ï¡¢´Ä¶ÊÑ¿ô + @code{TERM} ¤òÄ´¤Ù¤Æ²¼¤µ¤¤¡£¤½¤ì¤ÏÀܳ»þ¤Ë @code{dumb} ¤ËÀßÄꤵ¤ì¤Þ¤¹¡£ + + @vindex tramp-terminal-type + ÊÑ¿ô @code{tramp-terminal-type} ¤Ë¤è¤ê¤³¤Î @code{dumb} ¤ÎÃͤòÊѹ¹¤¹¤ë + ¤³¤È¤¬¤Ç¤¤Þ¤¹¡£ + @end itemize + + + @node Usage, Bug Reports, Configuration, Top @chapter @tramp{} ¤Î»È¤¤Êý *************** *** 959,975 **** ¥ê¥â¡¼¥È¥Þ¥·¥ó<¥Þ¥·¥ó>¾å¤Î¥Õ¥¡¥¤¥ë<¥Ñ¥¹>¤Ë¥¢¥¯¥»¥¹¤¹¤ë¤¿¤á¤Ë¤Ï¡¢ ! ¥Õ¥¡¥¤¥ë̾ @file{/./<¥Þ¥·¥ó>:<¥Ñ¥¹>}¤ò»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£¤³¤ì¤Ç¡¢ ! <¥Þ¥·¥ó>¤ËÀܳ¤·¡¢¥Ç¥Õ¥©¥ë¥È¥á¥½¥Ã¥É¤ò»ÈÍѤ·¥Õ¥¡¥¤¥ë¤¬Å¾Á÷¤µ¤ì ! ¤Þ¤¹¡£ ! @xref{Default Method}. @tramp{} ¤Î¥Õ¥¡¥¤¥ë̾¤ÎÎã¤ò¤¤¤¯¤Ä¤«¤ª¸«¤»¤·¤Þ¤·¤ç¤¦: @table @file ! @item /./melancholia:.emacs ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤¢¤ë @file{.emacs}¤ò ÊÔ½¸¤·¤Þ¤¹¡£ ! @item /./melancholia.danann.net:.emacs ´°Á´¤Ê¥Û¥¹¥È̾(FQDN)¤ò»È¤¤¡¢¾å¤ÈƱ¤¸¥Õ¥¡¥¤¥ë¤òÊÔ½¸¤·¤Þ¤¹¡£ --- 1056,1071 ---- ¥ê¥â¡¼¥È¥Þ¥·¥ó<¥Þ¥·¥ó>¾å¤Î¥Õ¥¡¥¤¥ë<¥Ñ¥¹>¤Ë¥¢¥¯¥»¥¹¤¹¤ë¤¿¤á¤Ë¤Ï¡¢ ! ¥Õ¥¡¥¤¥ë̾ @file{/[<¥Þ¥·¥ó>]<¥Ñ¥¹>}¤ò»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£(³Ñ³ç¸Ì¤Ï ! ¥Õ¥¡¥¤¥ë̾¤Î°ìÉô¤Ç¤¹¡£)¤³¤ì¤Ç¡¢<¥Þ¥·¥ó>¤ËÀܳ¤·¡¢¥Ç¥Õ¥©¥ë¥È¥á¥½¥Ã¥É ! ¤ò»ÈÍѤ·¥Õ¥¡¥¤¥ë¤¬Å¾Á÷¤µ¤ì¤Þ¤¹¡£@xref{Default Method}. @tramp{} ¤Î¥Õ¥¡¥¤¥ë̾¤ÎÎã¤ò¤¤¤¯¤Ä¤«¤ª¸«¤»¤·¤Þ¤·¤ç¤¦: @table @file ! @item /[melancholia].emacs ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤¢¤ë @file{.emacs}¤ò ÊÔ½¸¤·¤Þ¤¹¡£ ! @item /[melancholia.danann.net].emacs ´°Á´¤Ê¥Û¥¹¥È̾(FQDN)¤ò»È¤¤¡¢¾å¤ÈƱ¤¸¥Õ¥¡¥¤¥ë¤òÊÔ½¸¤·¤Þ¤¹¡£ *************** *** 978,987 **** ƱÍͤˡ¢¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤ËŸ³«¤µ¤ì¤Þ¤¹¡£ ! @item /./melancholia:~daniel/.emacs ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥æ¡¼¥¶¡¼ @code{daniel} ¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê ¤Ë¤¢¤ë¥Õ¥¡¥¤¥ë @file{.emacs} ¤òÊÔ½¸¤·¤Þ¤¹¡£@file{~<¥æ¡¼¥¶¡¼>} ¹½Ê¸¤Ï ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Î¥æ¡¼¥¶¡¼¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤ËŸ³«¤µ¤ì¤Þ¤¹¡£ ! @item /./melancholia:/etc/squid.conf ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥Õ¥¡¥¤¥ë @file{/etc/squid.conf} ¤òÊÔ½¸ ¤·¤Þ¤¹¡£ --- 1074,1083 ---- ƱÍͤˡ¢¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤ËŸ³«¤µ¤ì¤Þ¤¹¡£ ! @item /[melancholia]~daniel/.emacs ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥æ¡¼¥¶¡¼ @code{daniel} ¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê ¤Ë¤¢¤ë¥Õ¥¡¥¤¥ë @file{.emacs} ¤òÊÔ½¸¤·¤Þ¤¹¡£@file{~<¥æ¡¼¥¶¡¼>} ¹½Ê¸¤Ï ¥ê¥â¡¼¥È¥Þ¥·¥ó¾å¤Î¥æ¡¼¥¶¡¼¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤ËŸ³«¤µ¤ì¤Þ¤¹¡£ ! @item /[melancholia]/etc/squid.conf ¥Þ¥·¥ó @code{melancholia} ¾å¤Î¥Õ¥¡¥¤¥ë @file{/etc/squid.conf} ¤òÊÔ½¸ ¤·¤Þ¤¹¡£ *************** *** 995,1002 **** »ØÄꤷ¤¿¥æ¡¼¥¶¡¼¤Ç¥ê¥â¡¼¥È¥Þ¥·¥ó¤Ë¥í¥°¥¤¥ó¤¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¡¢ ! @file{/./<¥æ¡¼¥¶¡¼>@@<¥Þ¥·¥ó>:/¥Ñ¥¹/¥Õ¥¡¥¤¥ë} ¤È¤¤¤¦¥·¥ó¥¿¥Ã¥¯¥¹¤ò »ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£¤Ä¤Þ¤ê¡¢¥æ¡¼¥¶¡¼ @code{daniel} ¤È¤·¤Æ @code{melancholia} ¤ËÀܳ¤·¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î @file{.emacs} ¤òÊÔ½¸¤¹¤ë¾ì¹ç¡¢ ! @file{/./daniel@@melancholia:.emacs} ¤ò»ØÄꤹ¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¡£ CCC: The second @@file was @file{r@@...:} -- was there a missing initial --- 1091,1098 ---- »ØÄꤷ¤¿¥æ¡¼¥¶¡¼¤Ç¥ê¥â¡¼¥È¥Þ¥·¥ó¤Ë¥í¥°¥¤¥ó¤¹¤ëɬÍפ¬¤¢¤ë¾ì¹ç¡¢ ! @file{/[<¥æ¡¼¥¶¡¼>@@<¥Þ¥·¥ó>]/¥Ñ¥¹/¥Õ¥¡¥¤¥ë} ¤È¤¤¤¦¥·¥ó¥¿¥Ã¥¯¥¹¤ò »ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£¤Ä¤Þ¤ê¡¢¥æ¡¼¥¶¡¼ @code{daniel} ¤È¤·¤Æ @code{melancholia} ¤ËÀܳ¤·¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î @file{.emacs} ¤òÊÔ½¸¤¹¤ë¾ì¹ç¡¢ ! @file{/[daniel@@melancholia].emacs} ¤ò»ØÄꤹ¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¡£ CCC: The second @@file was @file{r@@...:} -- was there a missing initial *************** *** 1007,1017 **** ¥Õ¥¡¥¤¥ë̾¤Î°ìÉô¤È¤·¤Æ¡¢Â¾¤Î¥Õ¥¡¥¤¥ëžÁ÷¥á¥½¥Ã¥É(@pxref{Default Method}) ! ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£¤³¤ì¤Ï¡¢ºÇ½é¤Î @file{/./} ¤ò¡¢@file{/./@@<¥á¥½¥Ã¥É>:>} ! ¤Ç¤ª¤¤«¤¨¤ë¤³¤È¤Ç²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£¥æ¡¼¥¶¡¼¡¢¥Þ¥·¥ó¡¢¥Õ¥¡¥¤¥ë¤Î»ØÄê¤Ïº£¤Þ¤Ç ! ¤ÈƱ¤¸¤Ç¤¹¡£ ¥Þ¥·¥ó @code{melancholia} ¤Ë @code{daniel} ¤È¤·¤ÆÀܳ¤·¡¢¥Õ¥¡¥¤¥ëžÁ÷¤Ë @option{su} ¥á¥½¥Ã¥É¤ò»È¤¤¡¢¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î @file{.emacs} ¤òÊÔ½¸¤¹¤ë ! ¤¿¤á¤Ë¤Ï¡¢¥Õ¥¡¥¤¥ë̾ @file{/./@@su:daniel@@melancholia:.emacs} ¤ò»ØÄꤷ¤Æ ¤¯¤À¤µ¤¤¡£ --- 1103,1113 ---- ¥Õ¥¡¥¤¥ë̾¤Î°ìÉô¤È¤·¤Æ¡¢Â¾¤Î¥Õ¥¡¥¤¥ëžÁ÷¥á¥½¥Ã¥É(@pxref{Default Method}) ! ¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£¤³¤ì¤Ï¡¢ºÇ½é¤Î @file{/[} ¤ò¡¢ ! @file{/[<¥á¥½¥Ã¥É>/} ¤Ç¤ª¤¤«¤¨¤ë¤³¤È¤Ç²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£(ºÇ¸å¤Î¥¹¥é¥Ã¥·¥å ! ¤ËÃí°Õ¡ª) ¥æ¡¼¥¶¡¼¡¢¥Þ¥·¥ó¡¢¥Õ¥¡¥¤¥ë¤Î»ØÄê¤Ïº£¤Þ¤Ç¤ÈƱ¤¸¤Ç¤¹¡£ ¥Þ¥·¥ó @code{melancholia} ¤Ë @code{daniel} ¤È¤·¤ÆÀܳ¤·¡¢¥Õ¥¡¥¤¥ëžÁ÷¤Ë @option{su} ¥á¥½¥Ã¥É¤ò»È¤¤¡¢¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î @file{.emacs} ¤òÊÔ½¸¤¹¤ë ! ¤¿¤á¤Ë¤Ï¡¢¥Õ¥¡¥¤¥ë̾ @file{/[su/daniel@@melancholia].emacs} ¤ò»ØÄꤷ¤Æ ¤¯¤À¤µ¤¤¡£ *************** *** 1023,1034 **** ¤Î¥Õ¥¡¥¤¥ë̾¤È¼ã´³°Û¤Ê¤ê¤Þ¤¹¡£°Ê²¼¤Ë¡¢¥Þ¥ë¥Á¥Û¥Ã¥×¥Õ¥¡¥¤¥ë̾¤ÎÎã¤ò¤¢¤²¤Þ¤¹: ! @file{/./@@multi:rsh#out@@gate:telnet#kai@@real.host:/path/to.file} ¤³¤ì¤ÏÈó¾ï¤Ë½ÅÍפʤΤǡ¢¤Ò¤È¤Ä¤Ò¤È¤ÄÀâÌÀ¤·¤Þ¤·¤ç¤¦¡£¥Õ¥¡¥¤¥ë̾¤Ï ! ¥³¥í¥ó¤Ç¶èÀÚ¤é¤ì¤¿ 3 ¤Ä¤Î¥Ñ¡¼¥Ä¤Ç¹½À®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ºÇ½é¤Î¥Ñ¡¼¥È ! @file{/./@@multi} ¤Ï¥á¥½¥Ã¥É¤Î»ØÄê¤Ç¤¹¡£ÆóÈÖÌܤΥѡ¼¥È¤Ï ! @file{rsh#out@@gate:telnet#kai@@real.host} ¤Ç¥Û¥Ã¥×¤ò»ØÄꤷ¤Þ¤¹¡£ ! (¤½¤¦¤Ç¤¹¡¢ÆóÈÖÌܤΥѡ¼¥È¤ÏÊ£¿ô¤Î¥³¥í¥ó¤ò´Þ¤à¤³¤È¤â¤¢¤ê¤Þ¤¹¡£ ! ¤³¤ì¤¬¥Õ¥¡¥¤¥ë̾¤¬Æó¤Ä°Ê¾å¤Î¥³¥í¥ó¤ò´Þ¤àÍýͳ¤Ç¤¹¡£)ºÇ¸å¤Î¥Ñ¡¼¥È¤Ï @file{/path/to.file} ¤Ç¡¢¥ê¥â¡¼¥È¥Û¥¹¥È¾å¤Î¥Õ¥¡¥¤¥ë̾¤ò»ØÄꤷ¤Þ¤¹¡£ --- 1119,1130 ---- ¤Î¥Õ¥¡¥¤¥ë̾¤È¼ã´³°Û¤Ê¤ê¤Þ¤¹¡£°Ê²¼¤Ë¡¢¥Þ¥ë¥Á¥Û¥Ã¥×¥Õ¥¡¥¤¥ë̾¤ÎÎã¤ò¤¢¤²¤Þ¤¹: ! @file{/[multi/rsh:out@@gate/telnet:kai@@real.host]/path/to.file} ¤³¤ì¤ÏÈó¾ï¤Ë½ÅÍפʤΤǡ¢¤Ò¤È¤Ä¤Ò¤È¤ÄÀâÌÀ¤·¤Þ¤·¤ç¤¦¡£¥Õ¥¡¥¤¥ë̾¤Ï ! ¥¹¥é¥Ã¥·¥å¤È³Ñ³ç¸Ì¤Ç¶èÀÚ¤é¤ì¤¿ 3 ¤Ä¤Î¥Ñ¡¼¥Ä¤Ç¹½À®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ ! ºÇ½é¤Î¥Ñ¡¼¥È @file{/[multi} ¤Ï¥á¥½¥Ã¥É¤Î»ØÄê¤Ç¤¹¡£ÆóÈÖÌܤΥѡ¼¥È¤Ï ! @file{rsh:out@@gate/telnet:kai@@real.host} ¤Ç¥Û¥Ã¥×¤ò»ØÄꤷ¤Þ¤¹¡£ ! (¤½¤¦¤Ç¤¹¡¢ÆóÈÖÌܤΥѡ¼¥È¤Ï¤â¤Ã¤È¿¤¯¤Î¥¹¥é¥Ã¥·¥å¤ò´Þ¤à¤³¤È¤â¤¢¤ê¤Þ¤¹¡£ ! ¤³¤ì¤¬¤³¤Î¥Õ¥¡¥¤¥ë̾¤¬Æó¤Ä°Ê¾å¤Î¥³¥í¥ó¤ò´Þ¤àÍýͳ¤Ç¤¹¡£)ºÇ¸å¤Î¥Ñ¡¼¥È¤Ï @file{/path/to.file} ¤Ç¡¢¥ê¥â¡¼¥È¥Û¥¹¥È¾å¤Î¥Õ¥¡¥¤¥ë̾¤ò»ØÄꤷ¤Þ¤¹¡£ *************** *** 1038,1042 **** ÆóÈÖÌܤΥѡ¼¥È¤Ï¡¢ºÆ¤Ó¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Ëʬ³ä¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ï¥Û¥Ã¥×¤È ¤è¤Ð¤ì¤Þ¤¹¡£¾åµ¤Î¥Õ¥¡¥¤¥ë̾¤Ë¤Ï¡¢Æó¤Ä¤Î¥Û¥Ã¥×¡¢ ! @file{rsh#out@@gate} ¤È @file{telnet#kai@@real.host} ¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤½¤ì¤¾¤ì¤Î¥Û¥Ã¥×¤Ï¡¢@emph{ºÆ¤Ó}(3¤Ä¤Î)¥³¥ó¥Ý¡¼¥Í¥ó¥È¡¢ --- 1134,1138 ---- ÆóÈÖÌܤΥѡ¼¥È¤Ï¡¢ºÆ¤Ó¥³¥ó¥Ý¡¼¥Í¥ó¥È¤Ëʬ³ä¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ï¥Û¥Ã¥×¤È ¤è¤Ð¤ì¤Þ¤¹¡£¾åµ¤Î¥Õ¥¡¥¤¥ë̾¤Ë¤Ï¡¢Æó¤Ä¤Î¥Û¥Ã¥×¡¢ ! @file{rsh:out@@gate} ¤È @file{telnet:kai@@real.host} ¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£ ¤½¤ì¤¾¤ì¤Î¥Û¥Ã¥×¤Ï¡¢@emph{ºÆ¤Ó}(3¤Ä¤Î)¥³¥ó¥Ý¡¼¥Í¥ó¥È¡¢ *************** *** 1045,1051 **** ¤³¤Î¥Û¥Ã¥×¤Ç¤É¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à¤ò»È¤¦¤«¤ò°ÕÌ£¤·¤Æ¤¤¤Þ¤¹¡£ ! ºÇ½é¤Î¥Û¥Ã¥× @file{rsh#out@@gate} ¤Ï¡¢¥Û¥¹¥È @code{gate} ¤Ë¥æ¡¼¥¶¡¼ @code{out} ¤È¤·¤Æ¥í¥°¥¤¥ó¤¹¤ë¤¿¤á¤Ë @command{rsh} ¤ò»È¤¦¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£ ! ÆóÈÖÌÜ¤Î¥Û¥Ã¥× @file{telnet#kai@@real.host} ¤Ï¡¢¤³¤Î¥Û¥¹¥È¤«¤é¥Û¥¹¥È @code{real.host} ¤Ë¥æ¡¼¥¶¡¼ @code{kai}¤Ç¥í¥°¥¤¥ó¤¹¤ë¤¿¤á¤Ë @command{telnet} ¤ò»È¤¦¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£ --- 1141,1147 ---- ¤³¤Î¥Û¥Ã¥×¤Ç¤É¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à¤ò»È¤¦¤«¤ò°ÕÌ£¤·¤Æ¤¤¤Þ¤¹¡£ ! ºÇ½é¤Î¥Û¥Ã¥× @file{rsh:out@@gate} ¤Ï¡¢¥Û¥¹¥È @code{gate} ¤Ë¥æ¡¼¥¶¡¼ @code{out} ¤È¤·¤Æ¥í¥°¥¤¥ó¤¹¤ë¤¿¤á¤Ë @command{rsh} ¤ò»È¤¦¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£ ! ÆóÈÖÌÜ¤Î¥Û¥Ã¥× @file{telnet:kai@@real.host} ¤Ï¡¢¤³¤Î¥Û¥¹¥È¤«¤é¥Û¥¹¥È @code{real.host} ¤Ë¥æ¡¼¥¶¡¼ @code{kai}¤Ç¥í¥°¥¤¥ó¤¹¤ë¤¿¤á¤Ë @command{telnet} ¤ò»È¤¦¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£ *************** *** 1087,1091 **** ¤Î¾ì½ê¤Ç¤¹¡£ ! ¥á¡¼¥ê¥ó¥°¥ê¥¹¥È¤Ï @email{emacs-rcp@@ls6.cs.uni-dortmund.de} ¤Ç¤¹¡£ ¤³¤Î¥¢¥É¥ì¥¹¤Ë¥á¥Ã¥»¡¼¥¸¤ò¤òÁ÷¤ë¤È¤¹¤Ù¤Æ¤Î¹ÖÆɼԤËÆϤ¤Þ¤¹¡£ ¤³¤ì¤Ï¹ÖÆɤΥꥯ¥¨¥¹¥È¤òÁ÷¿®¤¹¤ë¤¿¤á¤Î¥¢¥É¥ì¥¹¤Ç¤Ï @emph{¤¢¤ê¤Þ¤»¤ó}¡£ --- 1183,1187 ---- ¤Î¾ì½ê¤Ç¤¹¡£ ! ¥á¡¼¥ê¥ó¥°¥ê¥¹¥È¤Ï @email{tramp-devel@@lists.sourceforge.net} ¤Ç¤¹¡£ ¤³¤Î¥¢¥É¥ì¥¹¤Ë¥á¥Ã¥»¡¼¥¸¤ò¤òÁ÷¤ë¤È¤¹¤Ù¤Æ¤Î¹ÖÆɼԤËÆϤ¤Þ¤¹¡£ ¤³¤ì¤Ï¹ÖÆɤΥꥯ¥¨¥¹¥È¤òÁ÷¿®¤¹¤ë¤¿¤á¤Î¥¢¥É¥ì¥¹¤Ç¤Ï @emph{¤¢¤ê¤Þ¤»¤ó}¡£ *************** *** 1093,1097 **** ¥á¡¼¥ê¥ó¥°¥ê¥¹¥È¤ò¹ÖÆɤ¹¤ë¤¿¤á¤Î¥Ø¥ë¥×¤òÆþ¼ê¤¹¤ë¤Ë¤Ï¡¢¥µ¥Ö¥¸¥§¥¯¥È¤Ë @samp{help} ¤È½ñ¤¤¤¿¥á¡¼¥ë¤ò´ÉÍýÍѤΥ¢¥É¥ì¥¹ ! @email{emacs-rcp-request@@ls6.cs.uni-dortmund.de} ¤ËÁ÷¿®¤·¤Æ¤¯¤À¤µ¤¤¡£ @tramp{} ¤Î¥Ð¥°Êó¹ð¤ò¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢@kbd{M-x tramp-bug} ¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£ --- 1189,1193 ---- ¥á¡¼¥ê¥ó¥°¥ê¥¹¥È¤ò¹ÖÆɤ¹¤ë¤¿¤á¤Î¥Ø¥ë¥×¤òÆþ¼ê¤¹¤ë¤Ë¤Ï¡¢¥µ¥Ö¥¸¥§¥¯¥È¤Ë @samp{help} ¤È½ñ¤¤¤¿¥á¡¼¥ë¤ò´ÉÍýÍѤΥ¢¥É¥ì¥¹ ! @email{tramp-devel-request@@lists.sourceforge.net} ¤ËÁ÷¿®¤·¤Æ¤¯¤À¤µ¤¤¡£ @tramp{} ¤Î¥Ð¥°Êó¹ð¤ò¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢@kbd{M-x tramp-bug} ¤ò¼Â¹Ô¤·¤Æ¤¯¤À¤µ¤¤¡£ *************** *** 1116,1120 **** @tramp{} ¤Ï @uref{ftp://ls6-ftp.cs.uni-dortmund.de/pub/src/emacs/tramp.tar.gz} ! ¤Ë¤¢¤ê¤Þ¤¹¡£ --- 1212,1217 ---- @tramp{} ¤Ï @uref{ftp://ls6-ftp.cs.uni-dortmund.de/pub/src/emacs/tramp.tar.gz} ! ¤Ë¤¢¤ê¤Þ¤¹¡£¤Þ¤¿¡¢SourceForge ¥×¥í¥¸¥§¥¯¥È¥Ú¡¼¥¸¤¬ ! @uref{http://sourceforge.net/projects/tramp} ¤Ë¤¢¤ê¤Þ¤¹¡£ *************** *** 1129,1132 **** --- 1226,1237 ---- Æ°ºî¤µ¤»¤ë¤³¤È¤ËÀ®¸ù¤·¤¿¿Í¤¬²¿¿Í¤«¤¤¤ë¤è¤¦¤Ç¤¹¡£ + °Ê²¼¤Î URL ¤Ë¤Ï¡¢Tramp ¤ò NT ¤Ç»È¤¦¤¿¤á¤Î¾ðÊ󤬤¢¤ê¤Þ¤¹; Joe Stoy + ¤Ë¤Ï¾ðÊó¤ÎÄ󶡤ËÂФ·¤Æ¿¼¤¯´¶¼Õ¤·¤Þ¤¹: + @uref{ftp://ftp.comlab.ox.ac.uk/tmp/Joe.Stoy/} + + ¾åµ¤Ï¤â¤Ã¤Ñ¤é¸Å¤¤¥Ð¡¼¥¸¥ç¥ó¤Î ssh ¤Ø¤Î¥Ñ¥Ã¥Á¤¬¤ª¤¤¤Æ¤¢¤ê¤Þ¤¹; Tom Roche + ¤Î Web page ¤Ë¤âÀâÌÀ¤¬¤¢¤ê¤Þ¤¹: + @uref{http://www4.ncsu.edu/~tlroche/plinkTramp.html} + ??? XEmacs ¤Î¾ðÊó¤ÏÀµ¤·¤¤¤Î¤Ç¤·¤ç¤¦¤«? *************** *** 1212,1215 **** --- 1317,1340 ---- @end lisp + + @item ¥ê¥â¡¼¥È¥Û¥¹¥È¤Î @file{~/.sh_history} ¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤¬ÈîÂ礷³¤±¤Æ + ¤¤¤Þ¤¹¡£¤³¤ì¤Ï²¿¤Ç¤¹¤«? + + @tramp{} ¤Ï¥Æ¥£¥ë¥ÀŸ³«¤Î°Ù¤Ë¡¢¤·¤Ð¤·¤Ð¥ê¥â¡¼¥È¥Û¥¹¥È¤Ç @code{ksh} ¤ò + µ¯Æ°¤·¤Þ¤¹¡£¤¿¤Ö¤ó @code{ksh} ¤Ï¥Ç¥Õ¥©¥ë¥È¤ÇÍúÎò¤òÊݸ¤·¤Þ¤¹¡£@tramp{} + ¤ÏÍúÎò¤ÎÊݸ¤òÄä»ß¤·¤è¤¦¤È»î¤ß¤Þ¤¹¤¬¡¢¤¢¤Ê¤¿¤¬¼ê½õ¤±¤ò¤¹¤ëɬÍפ¬¤¢¤ë + ¤«¤â¤·¤ì¤Þ¤»¤ó¡£Î㤨¤Ð¡¢¤¢¤Ê¤¿¤Î @file{.kshrc} ¤Ë¤³¤ì¤òÆþ¤ì¤Æ¤¯¤À¤µ¤¤: + + @example + if [ -f $HOME/.sh_history ] ; then + /bin/rm $HOME/.sh_history + fi + if [ "$@{HISTFILE-unset@}" != "unset" ] ; then + unset HISTFILE + fi + if [ "$@{HISTSIZE-unset@}" != "unset" ] ; then + unset HISTSIZE + fi + @end example @end itemize |
From: Kai Gro?j. <ka...@us...> - 2002-01-20 16:39:42
|
Update of /cvsroot/tramp/tramp/texi In directory usw-pr-cvs1:/tmp/cvs-serv1818/tramp/texi Modified Files: ChangeLog tramp.texi Log Message: * tramp.texi (External transfer methods): Document double use of `-t' for the `scpx' method. Explain why it is useful for Windows users. (Inline methods): Ditto for the `smx' method. * tramp.el: Remove some todo items which are done. (tramp-methods): Use doubled `-t -t' for `scpx' and `smx' methods. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/texi/ChangeLog,v retrieving revision 2.11 retrieving revision 2.12 diff -C2 -d -r2.11 -r2.12 *** ChangeLog 2001/12/11 17:43:00 2.11 --- ChangeLog 2002/01/20 16:39:40 2.12 *************** *** 1,2 **** --- 1,9 ---- + 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.texi (External transfer methods): Document double use of + `-t' for the `scpx' method. Explain why it is useful for Windows + users. + (Inline methods): Ditto for the `smx' method. + 2001-12-11 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.texi =================================================================== RCS file: /cvsroot/tramp/tramp/texi/tramp.texi,v retrieving revision 2.10 retrieving revision 2.11 diff -C2 -d -r2.10 -r2.11 *** tramp.texi 2001/12/11 17:43:00 2.10 --- tramp.texi 2002/01/20 16:39:40 2.11 *************** *** 13,17 **** @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Tuesday, 11 December, 2001 --- 13,17 ---- @c If you change it by hand, the modifications will not stay. @set VERSION $Revision$ ! @set UPDATED Sunday, 20 January, 2002 *************** *** 675,678 **** --- 675,693 ---- + @item @option{smx} --- @command{ssh} with @command{mimencode} + + As you expect, this is similar to @option{sm}, only a little + different. Whereas @option{sm} opens a normal interactive shell on + the remote host, this option uses @command{ssh -t -t HOST -l USER + /bin/sh} tp open a connection. This is useful for users where the + normal login shell is set up to ask them a number of questions when + logging in. This procedure avoids these questions, and just gives + @tramp{} a more-or-less `standard' login shell to work with. + + This is also useful for Windows users where @command{ssh}, when + invoked from an Emacs buffer, tells them that it is not allocating a + pseudo tty. When this happens, the login shell is wont to not print + any shell prompt, which confuses @tramp{} mightily. + @end itemize *************** *** 745,753 **** As you expect, this is similar to @option{scp}, only a little different. Whereas @option{scp} opens a normal interactive shell on the ! remote host, this option uses @command{ssh -t HOST -l user /bin/sh} to open a connection. This is useful for users where the normal login ! shell is set up to ask them a number of question when logging in. This procedure avoids these questions, and just gives @tramp{} a more-or-less `standard' login shell to work with. @end itemize --- 760,773 ---- As you expect, this is similar to @option{scp}, only a little different. Whereas @option{scp} opens a normal interactive shell on the ! remote host, this option uses @command{ssh -t -t HOST -l USER /bin/sh} to open a connection. This is useful for users where the normal login ! shell is set up to ask them a number of questions when logging in. This procedure avoids these questions, and just gives @tramp{} a more-or-less `standard' login shell to work with. + + This is also useful for Windows users where @command{ssh}, when + invoked from an Emacs buffer, tells them that it is not allocating a + pseudo tty. When this happens, the login shell is wont to not print + any shell prompt, which confuses @tramp{} mightily. @end itemize |
From: Kai Gro?j. <ka...@us...> - 2002-01-20 16:39:42
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv1818/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: * tramp.texi (External transfer methods): Document double use of `-t' for the `scpx' method. Explain why it is useful for Windows users. (Inline methods): Ditto for the `smx' method. * tramp.el: Remove some todo items which are done. (tramp-methods): Use doubled `-t -t' for `scpx' and `smx' methods. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.74 retrieving revision 2.75 diff -C2 -d -r2.74 -r2.75 *** ChangeLog 2002/01/20 10:57:31 2.74 --- ChangeLog 2002/01/20 16:39:39 2.75 *************** *** 2,5 **** --- 2,7 ---- * tramp.el: Remove some todo items which are done. + (tramp-methods): Use doubled `-t -t' for `scpx' and `smx' + methods. 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.76 retrieving revision 2.77 diff -C2 -d -r2.76 -r2.77 *** tramp.el 2002/01/20 10:57:31 2.76 --- tramp.el 2002/01/20 16:39:39 2.77 *************** *** 490,494 **** (tramp-rcp-program "scp") (tramp-remote-sh "/bin/sh") ! (tramp-rsh-args ("-e" "none" "-t" "/bin/sh")) (tramp-rcp-args nil) (tramp-rcp-keep-date-arg "-p") --- 490,494 ---- (tramp-rcp-program "scp") (tramp-remote-sh "/bin/sh") ! (tramp-rsh-args ("-e" "none" "-t" "-t" "/bin/sh")) (tramp-rcp-args nil) (tramp-rcp-keep-date-arg "-p") *************** *** 503,507 **** (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") ! (tramp-rsh-args ("-e" "none" "-t" "/bin/sh")) (tramp-rcp-args nil) (tramp-rcp-keep-date-arg nil) --- 503,507 ---- (tramp-rcp-program nil) (tramp-remote-sh "/bin/sh") ! (tramp-rsh-args ("-e" "none" "-t" "-t" "/bin/sh")) (tramp-rcp-args nil) (tramp-rcp-keep-date-arg nil) |
From: Kai Gro?j. <ka...@us...> - 2002-01-20 10:57:34
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv25448/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: Remove some todo items which are done. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.73 retrieving revision 2.74 diff -C2 -d -r2.73 -r2.74 *** ChangeLog 2002/01/20 10:42:05 2.73 --- ChangeLog 2002/01/20 10:57:31 2.74 *************** *** 1,4 **** --- 1,8 ---- 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.el: Remove some todo items which are done. + + 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + * tramp.el (tramp-handle-write-region): When calling `write-region' to write the temp file, pass `no-message' for Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.75 retrieving revision 2.76 diff -C2 -d -r2.75 -r2.76 *** tramp.el 2002/01/20 10:42:05 2.75 --- tramp.el 2002/01/20 10:57:31 2.76 *************** *** 4876,4883 **** ;; likely to produce long command lines, and some shells choke on ;; long command lines. - ;; * Have `tramp-wait-for-regexp' return a list of match strings, - ;; rather than relying on the saved match data. With this change, - ;; it is safer to slap a `save-match-data' around various functions. - ;; (Daniel Pittman) ;; * Implement `load' operation. ;; * Find out about the new auto-save mechanism in Emacs 21 and --- 4876,4879 ---- *************** *** 4887,4891 **** ;; * Allow correction of passwords, if the remote end allows this. ;; (Mark Hershberger) - ;; * Bug with file name completion if `@user' part is omitted. ;; * Make sure permissions of tmp file are good. ;; (Nelson Minar <ne...@me...>) --- 4883,4886 ---- *************** *** 4901,4907 **** ;; * grok ~ in tramp-remote-path (Henrik Holm <he...@te...>) ;; * `C' in dired gives error `not tramp file name'. - ;; * instead of putting in user-login-name as remote login, rely - ;; on ssh/scp to fill these in. Make this controllable with a variable. - ;; I would prefer to use nothing if nothing was specified -- <da...@da...> ;; * Also allow to omit user names when doing multi-hop. Not sure yet ;; what the user names should default to, though. --- 4896,4899 ---- |
From: Kai Gro?j. <ka...@us...> - 2002-01-20 10:42:09
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv19949/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-set-visited-file-modtime): Take care to not clobber `last-coding-system-used' -- it would confuse jka-compr. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.72 retrieving revision 2.73 diff -C2 -d -r2.72 -r2.73 *** ChangeLog 2002/01/20 08:30:00 2.72 --- ChangeLog 2002/01/20 10:42:05 2.73 *************** *** 8,11 **** --- 8,16 ---- the buffer is clobbered by a local time, which will bite us when the local and remote times are out of sync. + (tramp-handle-write-region): Make sure to set + `last-coding-system-used' at the very end of the function. In + particular, don't allow `set-visited-file-modtime' to clobber it. + (tramp-handle-set-visited-file-modtime): Take care to not clobber + `last-coding-system-used' -- it would confuse jka-compr. 2002-01-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.74 retrieving revision 2.75 diff -C2 -d -r2.74 -r2.75 *** tramp.el 2002/01/20 08:30:00 2.74 --- tramp.el 2002/01/20 10:42:05 2.75 *************** *** 1574,1578 **** (when time-list (tramp-run-real-handler 'set-visited-file-modtime (list time-list))) ! (let* ((f (buffer-file-name)) (v (tramp-dissect-file-name f)) (multi-method (tramp-file-name-multi-method v)) --- 1574,1582 ---- (when time-list (tramp-run-real-handler 'set-visited-file-modtime (list time-list))) ! (let* ((last-coding-system-used ;don't clobber ! (if (boundp 'last-coding-system-used) ! last-coding-system-used ! nil)) ! (f (buffer-file-name)) (v (tramp-dissect-file-name f)) (multi-method (tramp-file-name-multi-method v)) *************** *** 2465,2472 **** (tramp-get-decoding-function multi-method method)) (set-buffer tmpbuf) - (funcall (tramp-get-decoding-function multi-method method) - (point-min) - (point-max)) (let ((coding-system-for-write 'no-conversion)) (write-region (point-min) (point-max) tmpfil)) (kill-buffer tmpbuf)) --- 2469,2476 ---- (tramp-get-decoding-function multi-method method)) (set-buffer tmpbuf) (let ((coding-system-for-write 'no-conversion)) + (funcall (tramp-get-decoding-function multi-method method) + (point-min) + (point-max)) (write-region (point-min) (point-max) tmpfil)) (kill-buffer tmpbuf)) *************** *** 2510,2513 **** --- 2514,2518 ---- (list (tramp-handle-expand-file-name filename) 0)) (let ((local-copy (tramp-handle-file-local-copy filename)) + (coding-system-used nil) (result nil)) (when visit *************** *** 2519,2524 **** --- 2524,2535 ---- (tramp-run-real-handler 'insert-file-contents (list local-copy nil beg end replace))) + (tramp-message 9 "last coding system used was %s" last-coding-system-used) + ;; Now `last-coding-system-used' has right value. Remember it. + (when (boundp 'last-coding-system-used) + (setq coding-system-used last-coding-system-used)) (tramp-message 9 "Inserting local temp file `%s'...done" local-copy) (delete-file local-copy) + (when (boundp 'last-coding-system-used) + (setq last-coding-system-used coding-system-used)) (list (expand-file-name filename) (second result))))) *************** *** 2702,2708 **** method))) (delete-file tmpfil) - ;; Make `last-coding-system-used' have the right value. - (when (boundp 'last-coding-system-used) - (setq last-coding-system-used coding-system-used)) (unless (equal curbuf (current-buffer)) (error "Buffer has changed from `%s' to `%s'" --- 2713,2716 ---- *************** *** 2710,2713 **** --- 2718,2724 ---- (when (eq visit t) (set-visited-file-modtime)) + ;; Make `last-coding-system-used' have the right value. + (when (boundp 'last-coding-system-used) + (setq last-coding-system-used coding-system-used)) (when (or (eq visit t) (eq visit nil) |
From: Kai Gro?j. <ka...@us...> - 2002-01-20 08:30:04
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv32290/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-write-region): When calling `write-region' to write the temp file, pass `no-message' for VISIT. If our own VISIT arg is true, we explicitly call `set-visited-file-modtime' later on. If we pass VISIT=t when writing the temp file, the visited-file-modtime information of the buffer is clobbered by a local time, which will bite us when the local and remote times are out of sync. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.71 retrieving revision 2.72 diff -C2 -d -r2.71 -r2.72 *** ChangeLog 2002/01/19 19:22:12 2.71 --- ChangeLog 2002/01/20 08:30:00 2.72 *************** *** 1,2 **** --- 1,12 ---- + 2002-01-20 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-write-region): When calling + `write-region' to write the temp file, pass `no-message' for + VISIT. If our own VISIT arg is true, we explicitly call + `set-visited-file-modtime' later on. If we pass VISIT=t when + writing the temp file, the visited-file-modtime information of + the buffer is clobbered by a local time, which will bite us when + the local and remote times are out of sync. + 2002-01-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.73 retrieving revision 2.74 diff -C2 -d -r2.73 -r2.74 *** tramp.el 2002/01/19 19:21:11 2.73 --- tramp.el 2002/01/20 08:30:00 2.74 *************** *** 2570,2580 **** ;; because this makes the logic simpler. (setq tmpfil (tramp-make-temp-file)) ! ;; We used to pass 'no-message instead of visit in the following ! ;; call. Why? 2001-12-26 grossjoh (tramp-run-real-handler 'write-region (if confirm ; don't pass this arg unless defined for backward compat. ! (list start end tmpfil append visit lockname confirm) ! (list start end tmpfil append visit lockname))) ;; Now, `last-coding-system-used' has the right value. Remember it. (when (boundp 'last-coding-system-used) --- 2570,2581 ---- ;; because this makes the logic simpler. (setq tmpfil (tramp-make-temp-file)) ! ;; We say `no-message' here because we don't want the visited file ! ;; modtime data to be clobbered from the temp file. We call ! ;; `set-visited-file-modtime' ourselves later on. (tramp-run-real-handler 'write-region (if confirm ; don't pass this arg unless defined for backward compat. ! (list start end tmpfil append 'no-message lockname confirm) ! (list start end tmpfil append 'no-message lockname))) ;; Now, `last-coding-system-used' has the right value. Remember it. (when (boundp 'last-coding-system-used) |
From: Kai Gro?j. <ka...@us...> - 2002-01-19 19:22:15
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv20234 Modified Files: ChangeLog Log Message: *** empty log message *** Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.70 retrieving revision 2.71 diff -C2 -d -r2.70 -r2.71 *** ChangeLog 2002/01/19 19:21:11 2.70 --- ChangeLog 2002/01/19 19:22:12 2.71 *************** *** 11,15 **** lists; pad short lists when calling that function. Reported by Skip Montanaro <sk...@po...>. ! 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> --- 11,17 ---- lists; pad short lists when calling that function. Reported by Skip Montanaro <sk...@po...>. ! Also swap preference order of `itimer-time-difference' and ! `subtract-time': prefer the latter. ! 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> |
From: Kai Gro?j. <ka...@us...> - 2002-01-19 19:21:15
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv20049/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-time-diff): `itimer-time-difference' expects three-element lists; pad short lists when calling that function. Reported by Skip Montanaro <sk...@po...>. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.69 retrieving revision 2.70 diff -C2 -d -r2.69 -r2.70 *** ChangeLog 2002/01/19 12:13:34 2.69 --- ChangeLog 2002/01/19 19:21:11 2.70 *************** *** 8,11 **** --- 8,14 ---- (tramp-handle-verify-visited-file-modtime): Allow 1 sec difference between times. + (tramp-time-diff): `itimer-time-difference' expects three-element + lists; pad short lists when calling that function. Reported by + Skip Montanaro <sk...@po...>. 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.72 retrieving revision 2.73 diff -C2 -d -r2.72 -r2.73 *** tramp.el 2002/01/19 12:13:34 2.72 --- tramp.el 2002/01/19 19:21:11 2.73 *************** *** 4663,4670 **** fit in an integer." ;; Pacify byte-compiler with `symbol-function'. ! (cond ((fboundp 'itimer-time-difference) ! (floor (funcall (symbol-function 'itimer-time-difference) t1 t2))) ! ((fboundp 'subtract-time) (cadr (funcall (symbol-function 'subtract-time) t1 t2))) (t ;; snarfed from Emacs 21 time-date.el --- 4663,4673 ---- fit in an integer." ;; Pacify byte-compiler with `symbol-function'. ! (cond ((fboundp 'subtract-time) (cadr (funcall (symbol-function 'subtract-time) t1 t2))) + ((fboundp 'itimer-time-difference) + (floor (funcall + (symbol-function 'itimer-time-difference) + (if (< (length t1) 3) (append t1 '(0)) t1) + (if (< (length t2) 3) (append t2 '(0)) t2)))) (t ;; snarfed from Emacs 21 time-date.el |
From: Kai Gro?j. <ka...@us...> - 2002-01-19 12:13:37
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv2847/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-verify-visited-file-modtime): Allow 1 sec difference between times. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.68 retrieving revision 2.69 diff -C2 -d -r2.68 -r2.69 *** ChangeLog 2002/01/19 12:00:21 2.68 --- ChangeLog 2002/01/19 12:13:34 2.69 *************** *** 6,9 **** --- 6,11 ---- (tramp-handle-set-visited-file-modtime): If time-list is provided, call real handler with that data. + (tramp-handle-verify-visited-file-modtime): Allow 1 sec + difference between times. 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.71 retrieving revision 2.72 diff -C2 -d -r2.71 -r2.72 *** tramp.el 2002/01/19 12:00:21 2.71 --- tramp.el 2002/01/19 12:13:34 2.72 *************** *** 1616,1621 **** ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (and (equal (car (visited-file-modtime)) (nth 0 modtime)) ! (equal (cdr (visited-file-modtime)) (nth 1 modtime))) (save-excursion (tramp-send-command --- 1616,1621 ---- ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (let ((mt (visited-file-modtime))) ! (< (abs (tramp-time-diff modtime (list (car mt) (cdr mt)))) 2)) (save-excursion (tramp-send-command |
From: Kai Gro?j. <ka...@us...> - 2002-01-19 12:00:24
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv860/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-set-visited-file-modtime): If time-list is provided, call real handler with that data. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.67 retrieving revision 2.68 diff -C2 -d -r2.67 -r2.68 *** ChangeLog 2002/01/19 11:38:54 2.67 --- ChangeLog 2002/01/19 12:00:21 2.68 *************** *** 4,7 **** --- 4,9 ---- does not support filename handlers. Set the Lisp variable that we use for emulating modtime back to nil. + (tramp-handle-set-visited-file-modtime): If time-list is + provided, call real handler with that data. 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.70 retrieving revision 2.71 diff -C2 -d -r2.70 -r2.71 *** tramp.el 2002/01/19 11:38:54 2.70 --- tramp.el 2002/01/19 12:00:21 2.71 *************** *** 1572,1575 **** --- 1572,1577 ---- (error "Can't set-visited-file-modtime: buffer `%s' not visiting a file" (buffer-name))) + (when time-list + (tramp-run-real-handler 'set-visited-file-modtime (list time-list))) (let* ((f (buffer-file-name)) (v (tramp-dissect-file-name f)) |
From: Kai Gro?j. <ka...@us...> - 2002-01-19 11:38:58
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv29815/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (clear-visited-file-modtime): Advise this function; it does not support filename handlers. Set the Lisp variable that we use for emulating modtime back to nil. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.66 retrieving revision 2.67 diff -C2 -d -r2.66 -r2.67 *** ChangeLog 2002/01/10 10:30:29 2.66 --- ChangeLog 2002/01/19 11:38:54 2.67 *************** *** 1,2 **** --- 1,8 ---- + 2002-01-19 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (clear-visited-file-modtime): Advise this function; it + does not support filename handlers. Set the Lisp variable that + we use for emulating modtime back to nil. + 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.69 retrieving revision 2.70 diff -C2 -d -r2.69 -r2.70 *** tramp.el 2002/01/10 10:30:29 2.69 --- tramp.el 2002/01/19 11:38:54 2.70 *************** *** 1627,1630 **** --- 1627,1636 ---- (equal tramp-buffer-file-attributes attr))))) + (defadvice clear-visited-file-modtime (after tramp activate) + "Set `tramp-buffer-file-attributes' back to nil. + Tramp uses this variable as an emulation for the actual modtime of the file, + if the remote host can't provide the modtime." + (setq tramp-buffer-file-attributes nil)) + (defun tramp-handle-set-file-modes (filename mode) "Like `set-file-modes' for tramp files." |
From: Kai Gro?j. <ka...@us...> - 2002-01-10 10:30:33
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv16600/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-expand-file-name): Bind directory-sep-char to "/" so that XEmacs on Windows does the right thing. (tramp-handle-file-truename): Return trailing "/" if input had trailing "/". Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.65 retrieving revision 2.66 diff -C2 -d -r2.65 -r2.66 *** ChangeLog 2002/01/06 14:02:38 2.65 --- ChangeLog 2002/01/10 10:30:29 2.66 *************** *** 1,2 **** --- 1,10 ---- + 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> + + * tramp.el (tramp-handle-expand-file-name): Bind + directory-sep-char to "/" so that XEmacs on Windows does the + right thing. + (tramp-handle-file-truename): Return trailing "/" if input had + trailing "/". + 2002-01-06 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.68 retrieving revision 2.69 diff -C2 -d -r2.68 -r2.69 *** tramp.el 2002/01/06 14:02:38 2.68 --- tramp.el 2002/01/10 10:30:29 2.69 *************** *** 1371,1374 **** --- 1371,1377 ---- (path (tramp-file-name-path v)) (steps (tramp-split-string path "/")) + (pathdir (let ((directory-sep-char ?/)) + (file-name-as-directory path))) + (is-dir (string= path pathdir)) (thisstep nil) (numchase 0) *************** *** 1424,1428 **** (tramp-make-tramp-file-name multi-method method user host ! (mapconcat 'identity (cons "" result) "/")))) ;; Basic functions. --- 1427,1432 ---- (tramp-make-tramp-file-name multi-method method user host ! (concat (mapconcat 'identity (cons "" result) "/") ! (if is-dir "/" ""))))) ;; Basic functions. *************** *** 2291,2297 **** (host (tramp-file-name-host v)) (path (tramp-file-name-path v))) - (tramp-message-for-buffer multi-method method user host - 10 "Expand file name `%s' in dir `%s'" - name dir) (unless (file-name-absolute-p path) (setq path (concat "~/" path))) --- 2295,2298 ---- *************** *** 2313,2321 **** (setq path (concat uname fname)))) ;; No tilde characters in file name, do normal ! ;; expand-file-name (this does "/./" and "/../"). ! (tramp-make-tramp-file-name ! multi-method method user host ! (tramp-drop-volume-letter ! (tramp-run-real-handler 'expand-file-name (list path)))))))) ;; Remote commands. --- 2314,2325 ---- (setq path (concat uname fname)))) ;; No tilde characters in file name, do normal ! ;; expand-file-name (this does "/./" and "/../"). We bind ! ;; directory-sep-char here for XEmacs on Windows, which would ! ;; otherwise use backslash. ! (let ((directory-sep-char ?/)) ! (tramp-make-tramp-file-name ! multi-method method user host ! (tramp-drop-volume-letter ! (tramp-run-real-handler 'expand-file-name (list path))))))))) ;; Remote commands. |