Lines Matching +defs:file +defs:tail
19 Vinicius's last change version -- this file may have been edited as part of
26 ;; This file is part of GNU Emacs.
39 ;; GNU Emacs; see the file COPYING. If not, write to the Free Software
55 ;; print a PostScript file, but some faces are better seeing on the screen than
146 ;; it will save the PostScript image to a file instead of sending it to the
147 ;; printer; you will be prompted for the name of the file to save the image to.
149 ;; you may save the spooled images to a file by giving a prefix argument to
154 ;; When invoked this way, `ps-despool' will prompt you for the name of the file
346 ;; name of the buffer and, if the buffer is visiting a file, the file's
601 ;; when viewing file generated using landscape. Also on some
607 ;; `setpagedevice', generate a test file and send it to your printer;
608 ;; if the printed file isn't ok, set `ps-spool-config' to nil.
924 ;; printing instructions may be appended to the end of the file just like any
944 ;; - generate the PostScript image to a file (C-u M-x ps-print-buffer)
945 ;; - open this file and find the line:
951 ;; - send this file to the printer (or to ghostscript).
1025 ;; The PostScript file should be sent to YOUR PostScript printer.
1047 ;; .emacs file:
1124 ;; It has the following EPS PostScript images attributes: file name containing
1157 ;; If it is not possible to read (or does not exist) an image file, that file
1181 ;; pr -t file | awk '{printf "%3d %s\n", length($0), $0}' | sort -r | head
1182 ;; to determine the longest lines of your file.
1386 ;; `ps-prologue-file' enhancement.
1745 for a shared network printer. You can also set it to a name of a file, in
1746 which case the output gets appended to that file. \(Note that `ps-print'
1747 package already has facilities for printing to a file, so you might as well use
1760 (file :tag "Print to file")
1797 "*Name of program for printing a PostScript file.
1835 "*Non-nil means insert C-d at end of PostScript file generated."
2248 FILENAME is a file name which contains an EPS image or some PostScript
2274 (file :tag "EPS File")
2425 buffer is visiting a file, the file's directory. Headers are customizable by
2666 viewing file generated using landscape. Also on some printers,
2672 `setpagedevice', generate a test file and send it to your printer; if
2673 the printed file isn't OK, set `ps-spool-config' to nil."
2825 - generate the PostScript image to a file (C-u M-x ps-print-buffer)
2826 - open this file and delete the leading `%' (which is the PostScript comment
3349 "*Directory where it's located the PostScript prologue file used by ps-print.
3405 instructions may be appended to the end of the file just like any other
3461 user for a file name, and saves the PostScript image in that file instead of
3466 image in a file with that name."
3548 user for a file name, and saves the spooled PostScript image in that file
3553 image in a file with that name."
3561 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
3887 (defvar buffer-file-coding-system)
3951 (defun ps-prologue-file (filenumber)
3958 (expand-file-name (format "ps-prin%d.ps" filenumber)
3960 (if (and (file-exists-p filename)
3961 (file-readable-p filename))
3963 (insert-file-contents filename)
3965 (error "ps-print PostScript prologue `%s' file was not found"
3984 (defvar ps-output-tail nil)
4309 file.")
4379 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
4656 (let* ((name (concat (file-name-nondirectory (or (buffer-file-name)
4659 (prompt (format "Save PostScript to file (default %s): " name))
4660 (res (read-file-name prompt default-directory name nil)))
4661 (while (cond ((file-directory-p res)
4664 ((not (file-writable-p res))
4667 ((file-exists-p res)
4672 (setq res (read-file-name
4673 (format "%s; save PostScript to file: " prompt)
4674 (file-name-directory res) nil nil
4675 (file-name-nondirectory res))))
4676 (if (file-directory-p res)
4677 (expand-file-name name (file-name-as-directory res))
4734 ps-output-tail ps-output-head))
4777 (setcdr ps-output-tail args)
4778 (while (cdr ps-output-tail)
4779 (setq ps-output-tail (cdr ps-output-tail)))))
4809 (defun ps-insert-file (fname)
4814 (insert-file-contents fname)))
4985 (let ((image-file (expand-file-name (nth 0 image))))
4986 (when (file-readable-p image-file)
4999 (ps-insert-file image-file)
5040 (let (new (tail list))
5041 (while tail
5042 (or (member (car tail) new)
5043 (setq new (cons (car tail) new)))
5044 (setq tail (cdr tail)))
5052 (let ((tail list) (index 0) found)
5053 (while tail
5054 (if (setq found (eq (car (car tail)) item))
5055 (setq tail nil)
5057 tail (cdr tail))))
5504 (defun ps-begin-file ()
5779 (let ((fname (buffer-file-name)))
5781 (if (string-equal (buffer-name) (file-name-nondirectory fname))
5782 (abbreviate-file-name (file-name-directory fname))
5851 (setq ps-print-prologue-0 (ps-prologue-file 0)
5852 ps-print-prologue-1 (ps-prologue-file 1)
6663 (let (safe-marker completed-safely needs-begin-file)
6677 (setq needs-begin-file t))
6684 (when needs-begin-file
6685 (ps-begin-file)
6692 (ps-end-job needs-begin-file)
6710 (defun ps-end-job (needs-begin-file)
6737 ;; Set end of PostScript file
6741 (if (and needs-begin-file
6762 (setq filename (expand-file-name filename))
6959 (defun ps-info-file ()
6977 ;; The left headers will display the node name and file name.
6978 '(ps-info-node ps-info-file)))
7039 ;; To make this file smaller, some commands go in a separate file.