/[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.208 by kai, Thu Sep 12 13:07:49 2002 UTC revision 2.209 by kai, Thu Sep 12 16:08:06 2002 UTC
# Line 72  Line 72 
72  ;; In the Tramp CVS repository, the version numer is auto-frobbed from  ;; In the Tramp CVS repository, the version numer is auto-frobbed from
73  ;; the Makefile, so you should edit the top-level Makefile to change  ;; the Makefile, so you should edit the top-level Makefile to change
74  ;; the version number.  ;; the version number.
75  (defconst tramp-version "2.0.16"  (defconst tramp-version "2.0.17"
76    "This version of tramp.")    "This version of tramp.")
77    
78  (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"  (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"
# Line 5258  Goes through the list `tramp-coding-comm Line 5258  Goes through the list `tramp-coding-comm
5258               multi-method method user host 9               multi-method method user host 9
5259               "Checking local encoding command `%s' for sanity" loc-enc)               "Checking local encoding command `%s' for sanity" loc-enc)
5260              (unless (zerop (tramp-call-local-coding-command              (unless (zerop (tramp-call-local-coding-command
5261                              loc-enc null-device null-device))                              loc-enc nil nil))
5262                (throw 'wont-work nil)))                (throw 'wont-work nil)))
5263            (when (stringp loc-dec)            (when (stringp loc-dec)
5264              (tramp-message-for-buffer              (tramp-message-for-buffer
5265               multi-method method user host 9               multi-method method user host 9
5266               "Checking local decoding command `%s' for sanity" loc-dec)               "Checking local decoding command `%s' for sanity" loc-dec)
5267              (unless (zerop (tramp-call-local-coding-command              (unless (zerop (tramp-call-local-coding-command
5268                              loc-dec null-device null-device))                              loc-dec nil nil))
5269                (throw 'wont-work nil)))                (throw 'wont-work nil)))
5270            ;; CCC: At this point, maybe we should check that the output            ;; CCC: At this point, maybe we should check that the output
5271            ;; of the commands is correct.  But for the moment we will            ;; of the commands is correct.  But for the moment we will
# Line 5293  Goes through the list `tramp-coding-comm Line 5293  Goes through the list `tramp-coding-comm
5293    "Call the local encoding or decoding command.    "Call the local encoding or decoding command.
5294  If CMD contains \"%s\", provide input file INPUT there in command.  If CMD contains \"%s\", provide input file INPUT there in command.
5295  Otherwise, INPUT is passed via standard input.  Otherwise, INPUT is passed via standard input.
5296  OUTPUT specifies a filename or t, which means to standard output  INPUT can also be nil which means `/dev/null'.
5297  \(and thus, the current buffer)."  OUTPUT can be a string (which specifies a filename), or t (which
5298    means standard output and thus the current buffer), or nil (which
5299    means discard it)."
5300    (call-process    (call-process
5301     tramp-encoding-shell                 ;program     tramp-encoding-shell                 ;program
5302     (unless (string-match "%s" cmd)      ;input file     (unless (and input (string-match "%s" cmd))
5303       input)       input)                             ;input
5304     (if (eq output t) t nil)             ;output     (if (eq output t) t nil)             ;output
5305     nil                                  ;redisplay     nil                                  ;redisplay
5306     tramp-encoding-command-switch     tramp-encoding-command-switch
5307     ;; actual shell command     ;; actual shell command
5308     (concat     (concat
5309      (if (string-match "%s" cmd) (format cmd input) cmd)      (if (string-match "%s" cmd) (format cmd input) cmd)
5310      (if (stringp output) (concat "> " output) nil))))      (if (stringp output) (concat "> " output) ""))))
5311    
5312  (defun tramp-maybe-open-connection (multi-method method user host)  (defun tramp-maybe-open-connection (multi-method method user host)
5313    "Maybe open a connection to HOST, logging in as USER, using METHOD.    "Maybe open a connection to HOST, logging in as USER, using METHOD.

Legend:
Removed from v.2.208  
changed lines
  Added in v.2.209

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