Lines Matching +defs:user +defs:init +defs:file
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
517 ;; It is also possible to add an user defined PostScript prologue code before
519 ;; `ps-user-defined-prologue'.
521 ;; `ps-user-defined-prologue' may be a string or a symbol function which
527 ;; By default `ps-user-defined-prologue' is nil.
540 ;; As an example for `ps-user-defined-prologue' setting:
543 ;; (setq ps-user-defined-prologue
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.
1251 ;; `ps-user-defined-prologue' and `ps-error-handler-message'.
1370 ;; `ps-user-defined-prologue' example setting for HP PostScript printer.
1384 ;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for user defined PostScript
1386 ;; `ps-prologue-file' enhancement.
1671 (defcustom ps-user-defined-prologue nil
1674 `ps-user-defined-prologue' may be a string or a symbol function which returns a
1691 As an example for `ps-user-defined-prologue' setting:
1694 (setq ps-user-defined-prologue
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"
3632 '(29 . ps-user-defined-prologue)
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"
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))
4732 (defsubst ps-init-output-queue ()
4807 (ps-init-output-queue))
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)
5479 (defmacro ps-n-up-xcolumn (init) `(nth 0 ,init))
5480 (defmacro ps-n-up-ycolumn (init) `(nth 1 ,init))
5481 (defmacro ps-n-up-xline (init) `(nth 2 ,init))
5482 (defmacro ps-n-up-yline (init) `(nth 3 ,init))
5483 (defmacro ps-n-up-repeat (init) `(nth 4 ,init))
5484 (defmacro ps-n-up-end (init) `(nth 5 ,init))
5485 (defmacro ps-n-up-xstart (init) `(nth 6 ,init))
5486 (defmacro ps-n-up-ystart (init) `(nth 7 ,init))
5504 (defun ps-begin-file ()
5522 "\n%%For: " (user-full-name)
5535 "\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0"
5555 "\n%%BeginResource: procset PSPrintUserDefinedPrologue-" (user-login-name) " 0 0\n\n")
5557 (ps-insert-string ps-user-defined-prologue)
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)
6364 ;; ps-user-face-background is a symbol face list
6662 (ps-init-output-queue)
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.