Lines Matching +defs:decode +defs:coding +defs:region
1 ;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
91 (unless (and (fboundp 'base64-encode-region)
92 (fboundp 'base64-decode-region))
97 (autoload 'tramp-uuencode-region "tramp-uu"
104 (unless (fboundp 'uudecode-decode-region)
105 (autoload 'uudecode-decode-region "uudecode"))
615 See the variable `tramp-coding-commands' for details.
1770 ;; (defvar tramp-perl-decode "%s -ne '
1785 (defvar tramp-perl-decode-with-module
1836 (defvar tramp-perl-decode
1900 (defvar tramp-dos-coding-system
1901 (if (and (fboundp 'coding-system-p)
1902 (funcall 'coding-system-p '(dos)))
1905 "Some Emacsen know the `dos' coding system, others need `undecided-dos'.")
1921 ;; I use instead of find-operation-coding-system in XEmacs?
1922 (defvar tramp-feature-write-region-fix
1923 (when (fboundp 'find-operation-coding-system)
1924 (let ((file-coding-system-alist '(("test" emacs-mule))))
1925 (funcall (symbol-function 'find-operation-coding-system)
1926 'write-region 0 0 "" nil "test")))
1927 "Internal variable to say if `write-region' chooses the right coding.
1928 Older versions of Emacs chose the coding system for `write-region' based
1973 (write-region . tramp-handle-write-region)
2469 coding-system-used)
2474 (when (boundp 'last-coding-system-used)
2475 (setq coding-system-used (symbol-value 'last-coding-system-used)))
2490 (when (boundp 'last-coding-system-used)
2491 (set 'last-coding-system-used coding-system-used))
3071 (let ((coding-system-for-write 'binary)
3073 (write-region (point-min) (point-max) newname))
3500 ;; Since zmacs-region-stays doesn't exist in Emacs, this ought to
3502 ;; (let ((zmacs-region-stays t))
3820 (delete-region (point) (progn (forward-line -1) (point)))
3828 ;; `uudecode-decode-region' doesn't handle it
3845 (let ((coding-system-for-write 'binary))
3847 (write-region (point-min) (point-max) tmpfil))
3852 (write-region (point-min) (point-max) tmpfil2)
3856 (tramp-call-local-coding-command
3903 coding-system-used result)
3912 ;; Now `last-coding-system-used' has right value. Remember it.
3913 (when (boundp 'last-coding-system-used)
3914 (setq coding-system-used (symbol-value 'last-coding-system-used)))
3919 (when (boundp 'last-coding-system-used)
3920 (set 'last-coding-system-used coding-system-used))
4018 (defun tramp-handle-write-region
4020 "Like `write-region' for tramp files."
4032 ;; "tramp-handle-write-region: LOCKNAME must be nil or equal FILENAME"))
4033 ;; XEmacs takes a coding system as the seventh argument, not `confirm'
4047 ;; We use this to save the value of `last-coding-system-used'
4049 ;; we set `last-coding-system-used' to this saved value.
4050 ;; This way, any intermediary coding systems used while
4053 coding-system-used
4055 ;; Write region into a tmp file. This isn't really needed if we
4066 'write-region
4070 ;; Now, `last-coding-system-used' has the right value. Remember it.
4071 (when (boundp 'last-coding-system-used)
4072 (setq coding-system-used (symbol-value 'last-coding-system-used)))
4094 5 "Encoding region...")
4102 6 "Encoding region using function `%s'..."
4122 6 "Encoding region using command `%s'..." loc-enc)
4123 (unless (equal 0 (tramp-call-local-coding-command
4134 5 "Decoding region into remote file %s..." filename)
4159 (concat "Couldn't write region to `%s',"
4160 " decode using `%s' failed")
4162 (tramp-message 5 "Decoding region into remote file %s...done"
4179 ;; Make `last-coding-system-used' have the right value.
4180 (when (boundp 'last-coding-system-used)
4181 (set 'last-coding-system-used coding-system-used))
4306 ((eq operation 'write-region)
4866 (narrow-to-region (point) (tramp-point-at-eol))
4893 (narrow-to-region (point) (tramp-point-at-eol))
4922 (narrow-to-region (point) (tramp-point-at-eol))
4980 (narrow-to-region (point) (tramp-point-at-eol))
5016 (narrow-to-region (point) (tramp-point-at-eol))
5046 (narrow-to-region (point) (tramp-point-at-eol))
5705 (coding-system-for-read (unless (and (not (featurep 'xemacs))
5707 tramp-dos-coding-system))
5786 (coding-system-for-read (unless (and (not (featurep 'xemacs))
5788 tramp-dos-coding-system))
5838 (coding-system-for-read (unless (and (not (featurep 'xemacs))
5840 tramp-dos-coding-system))
5903 (coding-system-for-read (unless (and (not (featurep 'xemacs))
5905 tramp-dos-coding-system))
6017 This is needed in order to hide `last-coding-system-used', which is set
6019 (let (last-coding-system-used)
6176 ;; Try to set up the coding system correctly.
6180 (tramp-message 9 "Determining coding system")
6187 (let* ((cs (or (process-coding-system p) (cons 'undecided 'undecided)))
6188 cs-decode cs-encode)
6190 (setq cs-decode (car cs))
6192 (unless cs-decode (setq cs-decode 'undecided))
6194 (setq cs-encode (tramp-coding-system-change-eol-conversion
6197 (setq cs-decode (tramp-coding-system-change-eol-conversion
6198 cs-decode 'dos)))
6199 (set-buffer-process-coding-system cs-decode cs-encode))
6202 ;; We have found a ^M but cannot frob the process coding system
6358 (tramp-message 5 "Sending the Perl `mime-decode' implementations.")
6362 (format tramp-perl-decode tramp-remote-perl)
6369 (format tramp-perl-decode-with-module tramp-remote-perl)
6438 (defvar tramp-coding-commands
6440 base64-encode-region base64-decode-region)
6442 base64-encode-region base64-decode-region)
6444 base64-encode-region base64-decode-region)
6446 tramp-uuencode-region uudecode-decode-region)
6448 tramp-uuencode-region uudecode-decode-region)
6450 tramp-uuencode-region uudecode-decode-region)
6452 tramp-uuencode-region uudecode-decode-region)
6454 base64-encode-region base64-decode-region)
6456 base64-encode-region base64-decode-region))
6457 "List of coding commands for inline transfer.
6476 and end of region, and are expected to replace the region contents
6481 Goes through the list `tramp-coding-commands'."
6482 (let ((commands tramp-coding-commands)
6525 (unless (zerop (tramp-call-local-coding-command
6532 (unless (zerop (tramp-call-local-coding-command
6557 (defun tramp-call-local-coding-command (cmd input output)
6691 (delete-region (point) (point-max)))
6697 (delete-region (point) (progn (forward-line 1) (point))))))
7263 (write-region "" nil buffer-auto-save-file-name))
7370 (defun tramp-coding-system-change-eol-conversion (coding-system eol-type)
7371 "Return a coding system like CODING-SYSTEM but with given EOL-TYPE.
7373 (cond ((fboundp 'coding-system-change-eol-conversion)
7374 (apply #'coding-system-change-eol-conversion
7375 (list coding-system eol-type)))
7376 ((fboundp 'subsidiary-coding-system)
7378 #'subsidiary-coding-system
7379 (list coding-system
7558 tramp-coding-commands
7620 (set varsym (concat "(base64-decode-string \""
7631 "\\((base64-decode-string \\)" "\\\\" ;; \2 \
7686 (kill-region start (point)))))
7784 ;; * Separate local `tramp-coding-commands' from remote ones. Connect
7812 ;; * How to deal with MULE in `insert-file-contents' and `write-region'?
7814 ;; * Grok `append' parameter for `write-region'.