Lines Matching +defs:with +defs:temp +defs:message
7 ;; (copyright statements below in code to be updated with the above notice)
26 ;; along with GNU Emacs; see the file COPYING. If not, write to the
43 ;; and higher. (XEmacs 20 is missing the `with-timeout' macro. Emacs
45 ;; package `fsf-compat' for the `with-timeout' macro.)
47 ;; This version might not work with pre-Emacs 21 VC unless VC is
107 ;; XEmacs is distributed with few Lisp packages. Further packages are
110 ;; disable EFS when Tramp is loaded? Then XEmacs can ship with EFS
113 ;; Tramp only knows how to deal with `file-name-handler-alist', not
121 ;; must be done with the `eval-after-load' trick.
181 "Edit remote files with a combination of rsh and rcp or similar programs."
200 Each element looks like (REGEXP . DIRECTORY), with the same meaning like
202 is a local file name, the backup directory is prepended with Tramp file
221 file name, the backup directory is prepended with Tramp file name prefix
274 "*Use this switch together with `tramp-encoding-shell' for local commands.
303 ;; CCC I have changed all occurrences of comint-quote-filename with
310 ;;-Any character in this list is quoted (preceded with a backslash)
601 programs are happy with just one character, the newline character.
677 COMMAND may contain percent escapes. `%u' will be replaced with the
678 user name, `%h' will be replaced with the host name, and `%n' will be
679 replaced with an end-of-line character, as specified in the variable
682 the FUNCTION. For example, the `%u' escape is forbidden with the
890 tilde expansion, all directory names starting with `~' will be ignored."
942 "*Regexp matching a `login failed' message.
952 The confirmation should be done with yes or no.
964 The confirmation should be done with y or n.
986 Copying has been performed successfully already, so this message can
1012 (defcustom tramp-temp-name-prefix "tramp."
1054 Should always start with \"^\". Derived from `tramp-prefix-format'."
1140 (defcustom tramp-host-with-port-regexp
1174 "\\(" tramp-host-with-port-regexp "\\)" tramp-postfix-host-regexp
1280 the file name. In this regular expression, `%s' is replaced with the
1307 "\\(" tramp-host-with-port-regexp "\\)")
1402 This list is used for copying/renaming with out-of-band methods.
1453 (with-temp-buffer
1472 (message \"Bytes sent: %s\\tBytes received: %s\" sent received)
1475 (message \"You should set `tramp-chunksize' to a maximum of %s\"
1477 (message \"Test does not work\")
1484 the `*scratch*' buffer and then hitting C-j with the cursor after the
1617 "This command is used to get a long listing with numeric user and group ids.
1703 "Perl script to produce output suitable for use with `file-attributes'
1768 ;; Escape sequence %s is replaced with name of Perl binary.")
1774 ;; Escape sequence %s is replaced with name of Perl binary.")
1777 (defvar tramp-perl-encode-with-module
1780 Escape sequence %s is replaced with name of Perl binary.
1785 (defvar tramp-perl-decode-with-module
1788 Escape sequence %s is replaced with name of Perl binary.
1833 Escape sequence %s is replaced with name of Perl binary.
1879 Escape sequence %s is replaced with name of Perl binary.
2008 (defsubst tramp-message (level fmt-string &rest args)
2009 "Emit a message depending on verbosity level.
2011 message is emitted only if `tramp-verbose' is greater than or equal to LEVEL.
2012 Calls function `message' with FMT-STRING as control string and the remaining
2013 ARGS to actually emit the message (if applicable).
2017 (apply #'message (concat "tramp: " fmt-string) args)
2027 (tramp-insert-with-face
2031 (defun tramp-message-for-buffer
2033 "Like `tramp-message' but temporarily switches to the tramp buffer.
2035 remaining args passed to `tramp-message'."
2038 (apply 'tramp-message level fmt-string args)))
2049 (defmacro with-parsed-tramp-file-name (filename var &rest body)
2078 (put 'with-parsed-tramp-file-name 'lisp-indent-function 2)
2080 (def-edebug-spec with-parsed-tramp-file-name (form symbolp body))
2084 'emacs-lisp-mode '("\\<with-parsed-tramp-file-name\\>")))
2153 (with-parsed-tramp-file-name linkname l
2196 (with-parsed-tramp-file-name file nil
2215 (message "Loading %s..." file))
2221 (message "Loading %s...done" file))
2228 (with-parsed-tramp-file-name file nil
2235 (with-parsed-tramp-file-name file nil
2240 (with-parsed-tramp-file-name (expand-file-name filename) nil
2248 ;; People expect an error message in a timely fashion when
2254 (tramp-message-for-buffer
2259 (tramp-message-for-buffer
2275 (tramp-message-for-buffer multi-method method user host
2278 (tramp-message-for-buffer multi-method method user host
2283 (tramp-message-for-buffer
2293 (with-parsed-tramp-file-name symlink-target sym
2316 (tramp-message-for-buffer
2326 (with-parsed-tramp-file-name filename nil
2350 (with-parsed-tramp-file-name filename nil
2355 (tramp-handle-file-attributes-with-perl multi-method method user host
2357 (tramp-handle-file-attributes-with-ls multi-method method user host
2360 (defun tramp-handle-file-attributes-with-ls
2366 (tramp-message-for-buffer multi-method method user host 10
2367 "file attributes with ls: %s"
2445 (defun tramp-handle-file-attributes-with-perl
2448 (tramp-message-for-buffer multi-method method user host 10
2449 "file attributes with perl: %s"
2470 (with-parsed-tramp-file-name f nil
2477 ;; `tramp-handle-file-attributes-with-ls'.
2505 (with-current-buffer buf
2512 (with-parsed-tramp-file-name f nil
2522 ;; For compatibility, deal with both the old
2542 ;; if and only if that agrees with the buffer's record.
2547 (with-parsed-tramp-file-name filename nil
2564 (with-parsed-tramp-file-name filename nil
2569 (with-parsed-tramp-file-name filename nil
2574 (with-parsed-tramp-file-name filename nil
2613 (with-parsed-tramp-file-name file1 v1
2614 (with-parsed-tramp-file-name file2 v2
2637 (with-parsed-tramp-file-name filename nil
2652 (with-parsed-tramp-file-name filename nil
2663 (with-parsed-tramp-file-name filename nil
2669 (with-parsed-tramp-file-name filename nil
2681 (with-parsed-tramp-file-name filename nil
2693 (with-parsed-tramp-file-name filename nil
2714 ;; (with-parsed-tramp-file-name directory nil
2729 (with-parsed-tramp-file-name directory nil
2741 (with-parsed-tramp-file-name directory nil
2773 (let ((temp (nreverse result))
2778 (while temp
2779 (setq item (pop temp))
2783 (while temp
2784 (setq item (pop temp))
2795 (with-parsed-tramp-file-name directory nil
2830 (with-parsed-tramp-file-name directory nil
2843 ;; tagging the directories with a trailing '/'. Because I
2892 (with-parsed-tramp-file-name filename v1
2893 (with-parsed-tramp-file-name newname v2
2916 "error with add-name-to-file, see buffer `%s' for details"
2975 ;; We cannot invoke `with-parsed-tramp-file-name';
2978 (with-parsed-tramp-file-name filename l
2986 (with-parsed-tramp-file-name newname l
3063 (tramp-message
3065 " with inline copying across machines")))
3141 ;; We cannot invoke `with-parsed-tramp-file-name';
3144 (with-parsed-tramp-file-name filename l
3164 (with-parsed-tramp-file-name newname l
3210 x `((?t . ,(format "/tmp/%s" tramp-temp-name-prefix)))))
3244 (message "Transferring %s to %s..." filename newname)
3259 (message "Transferring %s to %s...done" filename newname)
3273 (with-parsed-tramp-file-name dir nil
3287 (with-parsed-tramp-file-name directory nil
3298 (with-parsed-tramp-file-name filename nil
3313 (with-parsed-tramp-file-name filename nil
3332 (with-parsed-tramp-file-name default-directory nil
3349 (with-current-buffer
3362 (with-parsed-tramp-file-name file nil
3388 (message "Uncompressing %s..." file)
3392 (message "Uncompressing %s...done" file)
3400 (message "Compressing %s..." file)
3404 (message "Compressing %s...done" file)
3439 (with-parsed-tramp-file-name filename nil
3440 (tramp-message-for-buffer
3495 (with-current-buffer
3526 (with-parsed-tramp-file-name filename nil
3538 Doesn't do anything if the NAME does not start with a drive letter."
3549 If the localname part of the given filename starts with \"/../\" then
3561 (with-parsed-tramp-file-name name nil
3603 ;; "/", because on Windows there would be problems with UNC
3616 ;; ;; Look if localname starts with "/../" construct. If this is
3648 (with-parsed-tramp-file-name default-directory nil
3715 (with-current-buffer
3729 (with-current-buffer
3755 ;; happening. Emit a helpful message and do it anyway.
3756 (message "tramp-handle-shell-command called with non-tramp directory: `%s'"
3774 (defsubst tramp-make-temp-file (filename)
3776 (funcall (if (fboundp 'make-temp-file) 'make-temp-file 'make-temp-name)
3777 (expand-file-name tramp-temp-name-prefix
3783 (with-parsed-tramp-file-name filename nil
3799 (setq tmpfil (tramp-make-temp-file filename))
3811 (tramp-message 5 "Encoding remote file %s..." filename)
3822 (tramp-message 5 "Decoding remote file %s..." filename)
3835 (tramp-message-for-buffer
3837 6 "Decoding remote file %s with function %s..."
3851 (let ((tmpfil2 (tramp-make-temp-file filename)))
3853 (tramp-message
3854 6 "Decoding remote file %s with command %s..."
3859 (tramp-message-for-buffer
3871 (with-parsed-tramp-file-name filename nil
3884 (with-parsed-tramp-file-name filename nil
3908 (tramp-message-for-buffer
3910 9 "Inserting local temp file `%s'..." local-copy)
3915 (tramp-message-for-buffer
3917 9 "Inserting local temp file `%s'...done" local-copy)
3927 (with-parsed-tramp-file-name filename nil
3972 ;; File name must be unique. This is ensured with Emacs 22 (see
4039 (with-parsed-tramp-file-name filename nil
4058 (setq tmpfil (tramp-make-temp-file filename))
4062 ;; We say `no-message' here because we don't want the visited file
4063 ;; modtime data to be clobbered from the temp file. We call
4068 (list start end tmpfil append 'no-message lockname confirm)
4069 (list start end tmpfil append 'no-message lockname)))
4093 (tramp-message-for-buffer multi-method method user host
4100 (tramp-message-for-buffer
4106 ;; the base64.el that comes with pgnus-0.84. If
4120 (tramp-message-for-buffer
4132 (tramp-message-for-buffer
4141 (tramp-message-for-buffer
4147 (tramp-message-for-buffer
4152 (tramp-message-for-buffer
4162 (tramp-message 5 "Decoding region into remote file %s...done"
4185 (message "Wrote %s" filename)))))
4188 ;; Because EFS does not play nicely with TRAMP (both systems match a
4196 ;; efs-sifn-handler-function to handle any filename with environment
4206 ;; This inhibits EFS and Ange-FTP, too, because they conflict with tramp.
4262 ARGS are the arguments OPERATION has been called with."
4349 ;; (edebug-trace "%s" (with-output-to-string (backtrace)))
4354 (with-parsed-tramp-file-name filename nil
4377 ;; (with setq) to indicate a lock. But Tramp also calls itself during
4388 Together with `tramp-locker', this implements a locking mechanism
4393 Together with `tramp-locked', this implements a locking mechanism
4418 ;; (edebug-trace "%s" (with-output-to-string (backtrace)))
4481 ;;; Interactions with other packages:
4488 (with-parsed-tramp-file-name name nil
4804 ;; Compares partial user and host names with possible completions.
4842 (with-temp-buffer
4879 (with-temp-buffer
4908 (with-temp-buffer
4966 (with-temp-buffer
5002 (with-temp-buffer
5029 (with-temp-buffer
5064 (with-current-buffer (tramp-get-buffer multi-method method user host)
5065 (tramp-message 5 (concat "Sending the Perl script `" name "'..."))
5076 (tramp-message 5 (concat "Sending the Perl script `" name "'...done.")))))))
5149 (with-parsed-tramp-file-name file nil
5162 (with-temp-buffer
5201 (with-current-buffer
5218 (with-current-buffer
5230 with `~' will be ignored.
5285 ;; -- communication with external shell --
5292 (tramp-message 9 "Finding command to check if file exists")
5357 (tramp-message
5365 (tramp-message
5377 (tramp-message
5380 (t (tramp-message 5 "Remote `%s' groks tilde expansion, good"
5389 (tramp-message 9 "Checking remote `%s' command for `-n' option" cmd)
5393 (tramp-message 7 "Testing remote command `%s' for -n..." cmd)
5399 (tramp-message 7 "Testing remote command `%s' for -n...%s"
5422 (tramp-message 9 "Finding a suitable `ls' command")
5438 (tramp-message 9 "Sending login name `%s'"
5450 (tramp-message 9 "Sending password")
5455 (tramp-message 9 "Found remote shell prompt.")
5462 (tramp-message 9 "Permission denied by remote host.")
5498 The terminal type can be configured with `tramp-terminal-type'."
5499 (tramp-message 9 "Setting `%s' as terminal type."
5514 (tramp-message 9 "Process has finished.")
5524 (tramp-message 10 "'set mode' error ignored.")
5525 (tramp-message 9 "Process has finished.")
5527 (tramp-message 9 "Process has died.")
5535 (tramp-message 9 "Sending login name `%s'" user)
5545 (tramp-message 9 "Sending password")
5550 (tramp-message 9 "Found shell prompt on `%s'" host)
5556 (tramp-message 9 "Permission denied by remote host `%s'" host)
5572 (tramp-message 9 "Waiting 60s for prompt from remote shell")
5582 (tramp-message 10 "Looking for regexp \"%s\" from remote shell"
5591 (tramp-message 10 "%s" (mapconcat 'identity (process-command p) " "))
5594 (tramp-message 9 "Waiting for prompts from remote shell")
5598 (with-timeout (timeout)
5614 (tramp-message 9 "Waiting 60s for prompt from remote shell")
5615 (with-timeout (60 (throw 'tramp-action 'timeout))
5625 (tramp-message 10 "Looking for regexp \"%s\" from remote shell"
5635 (tramp-message 9 "Waiting for prompts from remote shell")
5648 ;; okay for some commands to just fail with an error message, but
5659 (tramp-message 10 "Sending command to remote shell: %s"
5682 together with an out-of-band transfer method! You must use an inline
5691 (error "Cannot use out-of-band method `%s' with telnet connection method"
5696 (tramp-message 7 "Opening connection for %s@%s using %s..."
5756 (tramp-message 7 "Opening connection for %s@%s using %s..."
5758 (tramp-message 7 "Opening connection at %s using %s..." host method))
5769 x `((?t . ,(format "/tmp/%s" tramp-temp-name-prefix)))))
5800 (tramp-message 7 "Initializing remote shell")
5806 "Open a connection using the `su' program with METHOD.
5819 (error "Cannot use out-of-band method `%s' with `su' connection method"
5826 "Cannot connect to different host `%s' with `su' connection method"
5829 (tramp-message 7 "Opening connection for `%s' using `%s'..."
5895 (tramp-message 7 "Opening `%s' connection..." multi-method)
5912 (tramp-message 9 "Waiting 60s for local shell to come up...")
5943 HOST. You can use percent escapes in COMMAND: `%h' is replaced with
5944 the host name, and `%n' is replaced with an end of line character, as
5954 (tramp-message 9 "Sending telnet command `%s'" cmd1)
5967 with the user name, `%h' will be replaced with the host name, and `%n'
5968 will be replaced with the value of `tramp-rsh-end-of-line'. You can use
5980 (tramp-message 9 "Sending rlogin command `%s'" cmd1)
5997 You can use percent escapes in the COMMAND. `%u' is replaced with the
5998 user name, and `%n' is replaced with the value of
6007 (tramp-message 9 "Sending su command `%s'" cmd1)
6036 (with-timeout (timeout)
6079 seconds. If not, it produces an error message with the given ERROR-ARGS."
6151 (tramp-message 8 "Setting up remote shell environment")
6169 (tramp-message 9 "Checking remote host type for `send-process-string' bug")
6180 (tramp-message 9 "Determining coding system")
6186 ;; with the process.
6206 (tramp-message 9 "Trying `stty -onlcr'")
6210 (tramp-message
6216 (tramp-message 9 "Waiting 30s for `set +o vi +o emacs'")
6220 (tramp-message 9 "Waiting 30s for `unset MAIL MAILCHECK MAILPATH'")
6225 (tramp-message 9 "Waiting 30s for `unset CDPATH'")
6229 (tramp-message 9 "Setting shell prompt")
6255 ;; with buggy /bin/sh implementations will have a working bash or
6260 ;; output of (tramp-find-shell) to show up along with the output of
6266 ;; After much debugging I couldn't find any problem with the implementation
6276 (tramp-message
6284 (tramp-message 5 "Using remote command `%s' for getting directory listings"
6304 ;; Unalias ls(1) to work around issues with those silly people who make it
6343 (tramp-message 5 "Sending the Perl `mime-encode' implementations.")
6354 (format tramp-perl-encode-with-module tramp-remote-perl)
6358 (tramp-message 5 "Sending the Perl `mime-decode' implementations.")
6369 (format tramp-perl-decode-with-module tramp-remote-perl)
6400 ;; Improve error message and/or error check.
6404 (tramp-message
6417 (tramp-message
6475 If they are functions, they will be called with two arguments, start
6477 with the encoded or decoded results, respectively.")
6493 ;; called remotely with null input and output. This makes
6500 (tramp-message-for-buffer
6507 (tramp-message-for-buffer
6522 (tramp-message-for-buffer
6529 (tramp-message-for-buffer
6548 (tramp-message 10 "Using remote encoding %s" rem-enc)
6550 (tramp-message 10 "Using remote decoding %s" rem-dec)
6552 (tramp-message 10 "Using local encoding %s" loc-enc)
6554 (tramp-message 10 "Using local decoding %s" loc-dec)
6629 (tramp-insert-with-face 'bold (format "$ %s\n" command))))
6643 (tramp-message 9 "Waiting 30s for %s..." msg))
6670 (with-timeout (timeout)
6721 Sends `echo $?' along with the COMMAND for checking the exit status. If
6766 ;; debug message
6771 (tramp-insert-with-face 'bold (format "$ %s\n" string))))
6785 (tramp-message-for-buffer
6822 (tramp-insert-with-face
7089 ;; with this when USER is nil?
7166 (with-current-buffer (tramp-get-buffer multi-method method user host)
7177 (with-current-buffer (tramp-get-buffer multi-method method user host)
7280 "Replace all occurrences of the string FROM with TO in STRING.
7292 (defun tramp-insert-with-face (face string)
7293 "Insert text with a specific face."
7305 this is the function `temp-directory'."
7308 ((fboundp 'temp-directory)
7309 (funcall (symbol-function 'temp-directory))) ;pacify byte-compiler
7316 ((file-exists-p "c:/temp") (file-name-as-directory "c:/temp"))
7317 (t (message (concat "Neither `temporary-file-directory' nor "
7318 "`temp-directory' is defined -- using /tmp."))
7347 ;; Pacify byte-compiler with `symbol-function'.
7371 "Return a coding system like CODING-SYSTEM but with given EOL-TYPE.
7416 ;; does not deal well with newline characters. Newline is replaced by
7421 ;; `shell-quote-argument' work with newlines without making it
7435 ;; function to work with Bourne-like shells.
7464 ;; ;; Anyway, this advice fixes the problem (with a sledgehammer :)
7509 (if arg (insert tramp-version) (message tramp-version)))
7549 tramp-temp-name-prefix
7592 Enter your bug report in this message, including as much detail as you
7612 (val (with-current-buffer reporter-eval-buffer
7619 (with-current-buffer reporter-eval-buffer
7640 (with-current-buffer reporter-eval-buffer
7646 ;; We load message.el and mml.el from Gnus.
7649 (load "message" 'noerror)
7651 (require 'message nil 'noerror)
7653 (when (functionp 'message-mode)
7654 (funcall (symbol-function 'message-mode)))
7662 (eq major-mode 'message-mode)
7688 The buffer(s) above will be appended to this message. If you don't want
7719 ;; Don't send. Delete the message buffer.
7749 ;; Make sure that we get integration with the VC package.
7787 ;; * Cooperate with PCL-CVS. It uses start-process, which doesn't
7803 ;; * Don't use globbing for directories with many files, as this is
7812 ;; * How to deal with MULE in `insert-file-contents' and `write-region'?
7824 ;; Of course, this has issues with usability (stale cache bites)
7833 ;; * Make it work for XEmacs 20, which is missing `with-timeout'.
7844 ;; then look if it's the right version (with `perl -v').