Lines Matching +defs:body +defs:file
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64 (defconst uudecode-body-line
70 (defvar uudecode-temporary-file-directory
72 ((boundp 'temporary-file-directory) temporary-file-directory)
76 (defun uudecode-decode-region-external (start end &optional file-name)
87 (cond ((null file-name))
88 ((stringp file-name))
90 (setq file-name (read-file-name "File to Name:"
93 (setq tempfile (if file-name
94 (expand-file-name file-name)
95 (if (fboundp 'make-temp-file)
96 (let ((temporary-file-directory
97 uudecode-temporary-file-directory))
98 (make-temp-file "uu"))
99 (expand-file-name
101 uudecode-temporary-file-directory))))
110 (insert "begin 600 " (file-name-nondirectory tempfile) "\n")
112 (cd (file-name-directory tempfile))
122 (if (file-exists-p tempfile)
123 (unless file-name
127 (insert-file-contents-literally tempfile)))
129 (ignore-errors (or file-name (delete-file tempfile))))))
146 (defun uudecode-decode-region-internal (start end &optional file-name)
159 (cond ((null file-name))
160 ((stringp file-name))
162 (setq file-name (expand-file-name
163 (read-file-name "File to Name:"
216 (if file-name
218 (with-temp-file file-name
229 (defun uudecode-decode-region (start end &optional file-name)
233 (uudecode-decode-region-external start end file-name)
234 (uudecode-decode-region-internal start end file-name)))