Mercurial > emacs
comparison lisp/ps-print.el @ 105994:009383a57ce8
* x-dnd.el (x-dnd-maybe-call-test-function):
* window.el (split-window-vertically):
* whitespace.el (whitespace-help-on):
* vc-rcs.el (vc-rcs-consult-headers):
* userlock.el (ask-user-about-lock-help)
(ask-user-about-supersession-help):
* type-break.el (type-break-force-mode-line-update):
* time-stamp.el (time-stamp-conv-warn):
* terminal.el (te-set-output-log, te-more-break, te-filter)
(te-sentinel,terminal-emulator):
* term.el (make-term, term-exec, term-sentinel, term-read-input-ring)
(term-write-input-ring, term-check-source, term-start-output-log):
(term-display-buffer-line, term-dynamic-list-completions):
(term-ansi-make-term, serial-term):
* subr.el (selective-display):
* strokes.el (strokes-xpm-to-compressed-string, strokes-decode-buffer)
(strokes-encode-buffer, strokes-xpm-for-compressed-string):
* speedbar.el (speedbar-buffers-tail-notes, speedbar-buffers-item-info)
(speedbar-reconfigure-keymaps, speedbar-add-localized-speedbar-support)
(speedbar-remove-localized-speedbar-support)
(speedbar-set-mode-line-format, speedbar-create-tag-hierarchy)
(speedbar-update-special-contents, speedbar-buffer-buttons-engine)
(speedbar-buffers-line-directory):
* simple.el (shell-command-on-region, append-to-buffer)
(prepend-to-buffer):
* shadowfile.el (shadow-save-todo-file):
* scroll-bar.el (scroll-bar-set-window-start, scroll-bar-drag-1)
(scroll-bar-maybe-set-window-start):
* sb-image.el (speedbar-image-dump):
* saveplace.el (save-place-alist-to-file, save-places-to-alist)
(load-save-place-alist-from-file):
* ps-samp.el (ps-print-message-from-summary):
* ps-print.el (ps-flush-output, ps-insert-file, ps-get-boundingbox)
(ps-background-image, ps-begin-job, ps-do-despool):
* ps-bdf.el (bdf-find-file, bdf-read-font-info):
* printing.el (pr-interface, pr-ps-file-print, pr-find-buffer-visiting)
(pr-ps-message-from-summary, pr-lpr-message-from-summary):
(pr-call-process, pr-file-list, pr-interface-save):
* novice.el (disabled-command-function)
(enable-command, disable-command):
* mouse.el (mouse-buffer-menu-alist):
* mouse-copy.el (mouse-kill-preserving-secondary):
* macros.el (kbd-macro-query):
* ledit.el (ledit-go-to-lisp, ledit-go-to-liszt):
* informat.el (batch-info-validate):
* ido.el (ido-copy-current-word, ido-initiate-auto-merge):
* hippie-exp.el (try-expand-dabbrev-visible):
* help-mode.el (help-make-xrefs):
* help-fns.el (describe-variable):
* generic-x.el (bat-generic-mode-run-as-comint):
* finder.el (finder-mouse-select):
* find-dired.el (find-dired-sentinel):
* filesets.el (filesets-file-close):
* files.el (list-directory):
* faces.el (list-faces-display, describe-face):
* facemenu.el (list-colors-display):
* ezimage.el (ezimage-image-association-dump, ezimage-image-dump):
* epg.el (epg--process-filter, epg-cancel):
* epa.el (epa--marked-keys, epa--select-keys, epa-display-info)
(epa--read-signature-type):
* emerge.el (emerge-copy-as-kill-A, emerge-copy-as-kill-B)
(emerge-file-names):
* ehelp.el (electric-helpify):
* ediff.el (ediff-regions-wordwise, ediff-regions-linewise):
* ediff-vers.el (rcs-ediff-view-revision):
* ediff-util.el (ediff-setup):
* ediff-mult.el (ediff-append-custom-diff):
* ediff-diff.el (ediff-exec-process, ediff-process-sentinel)
(ediff-wordify):
* echistory.el (Electric-command-history-redo-expression):
* dos-w32.el (find-file-not-found-set-buffer-file-coding-system):
* disp-table.el (describe-display-table):
* dired.el (dired-find-buffer-nocreate):
* dired-aux.el (dired-rename-subdir, dired-dwim-target-directory):
* dabbrev.el (dabbrev--same-major-mode-p):
* chistory.el (list-command-history):
* apropos.el (apropos-documentation):
* allout.el (allout-obtain-passphrase):
(allout-copy-exposed-to-buffer):
(allout-verify-passphrase): Use with-current-buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 13 Nov 2009 22:19:45 +0000 |
| parents | db5e4a5897ec |
| children | d258bc2a4ad1 |
comparison
equal
deleted
inserted
replaced
| 105993:505670342624 | 105994:009383a57ce8 |
|---|---|
| 4732 ;; Output strings in the list ARGS in the PostScript prologue part. | 4732 ;; Output strings in the list ARGS in the PostScript prologue part. |
| 4733 (defun ps-output-prologue (args) | 4733 (defun ps-output-prologue (args) |
| 4734 (ps-output 'prologue (if (stringp args) (list args) args))) | 4734 (ps-output 'prologue (if (stringp args) (list args) args))) |
| 4735 | 4735 |
| 4736 (defun ps-flush-output () | 4736 (defun ps-flush-output () |
| 4737 (save-excursion | 4737 (with-current-buffer ps-spool-buffer |
| 4738 (set-buffer ps-spool-buffer) | |
| 4739 (goto-char (point-max)) | 4738 (goto-char (point-max)) |
| 4740 (while ps-output-head | 4739 (while ps-output-head |
| 4741 (let ((it (car ps-output-head))) | 4740 (let ((it (car ps-output-head))) |
| 4742 (cond | 4741 (cond |
| 4743 ((eq t it) | 4742 ((eq t it) |
| 4754 (setq ps-output-head (cdr ps-output-head)))) | 4753 (setq ps-output-head (cdr ps-output-head)))) |
| 4755 (ps-init-output-queue)) | 4754 (ps-init-output-queue)) |
| 4756 | 4755 |
| 4757 (defun ps-insert-file (fname) | 4756 (defun ps-insert-file (fname) |
| 4758 (ps-flush-output) | 4757 (ps-flush-output) |
| 4759 (save-excursion | 4758 (with-current-buffer ps-spool-buffer |
| 4760 (set-buffer ps-spool-buffer) | |
| 4761 (goto-char (point-max)) | 4759 (goto-char (point-max)) |
| 4762 (insert-file-contents fname))) | 4760 (insert-file-contents fname))) |
| 4763 | 4761 |
| 4764 ;; These functions insert the arrays that define the contents of the headers. | 4762 ;; These functions insert the arrays that define the contents of the headers. |
| 4765 | 4763 |
| 4838 "^%%BoundingBox:\ | 4836 "^%%BoundingBox:\ |
| 4839 \\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)") | 4837 \\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)") |
| 4840 | 4838 |
| 4841 | 4839 |
| 4842 (defun ps-get-boundingbox () | 4840 (defun ps-get-boundingbox () |
| 4843 (save-excursion | 4841 (with-current-buffer ps-spool-buffer |
| 4844 (set-buffer ps-spool-buffer) | |
| 4845 (save-excursion | 4842 (save-excursion |
| 4846 (if (re-search-forward ps-boundingbox-re nil t) | 4843 (if (re-search-forward ps-boundingbox-re nil t) |
| 4847 (vector (string-to-number ; lower x | 4844 (vector (string-to-number ; lower x |
| 4848 (buffer-substring (match-beginning 1) (match-end 1))) | 4845 (buffer-substring (match-beginning 1) (match-end 1))) |
| 4849 (string-to-number ; lower y | 4846 (string-to-number ; lower y |
| 4907 "\nBeginBackImage\n") | 4904 "\nBeginBackImage\n") |
| 4908 (ps-insert-file image-file) | 4905 (ps-insert-file image-file) |
| 4909 ;; coordinate adjustment to center image | 4906 ;; coordinate adjustment to center image |
| 4910 ;; around x and y position | 4907 ;; around x and y position |
| 4911 (let ((box (ps-get-boundingbox))) | 4908 (let ((box (ps-get-boundingbox))) |
| 4912 (save-excursion | 4909 (with-current-buffer ps-spool-buffer |
| 4913 (set-buffer ps-spool-buffer) | |
| 4914 (save-excursion | 4910 (save-excursion |
| 4915 (if (re-search-backward "^--back--" nil t) | 4911 (if (re-search-backward "^--back--" nil t) |
| 4916 (replace-match | 4912 (replace-match |
| 4917 (format "%s %s" | 4913 (format "%s %s" |
| 4918 (ps-float-format | 4914 (ps-float-format |
| 5793 ps-line-number-start (max 1 (min ps-line-number-start | 5789 ps-line-number-start (max 1 (min ps-line-number-start |
| 5794 (if (integerp ps-line-number-step) | 5790 (if (integerp ps-line-number-step) |
| 5795 ps-line-number-step | 5791 ps-line-number-step |
| 5796 ps-zebra-stripe-height)))) | 5792 ps-zebra-stripe-height)))) |
| 5797 ;; spooling buffer | 5793 ;; spooling buffer |
| 5798 (save-excursion | 5794 (with-current-buffer ps-spool-buffer |
| 5799 (set-buffer ps-spool-buffer) | |
| 5800 (goto-char (point-max)) | 5795 (goto-char (point-max)) |
| 5801 (and (re-search-backward "^%%Trailer$" nil t) | 5796 (and (re-search-backward "^%%Trailer$" nil t) |
| 5802 (delete-region (match-beginning 0) (point-max)))) | 5797 (delete-region (match-beginning 0) (point-max)))) |
| 5803 ;; miscellaneous | 5798 ;; miscellaneous |
| 5804 (setq ps-zebra-stripe-full-p (memq ps-zebra-stripe-follow | 5799 (setq ps-zebra-stripe-full-p (memq ps-zebra-stripe-follow |
| 6571 (let ((coding-system-for-write 'raw-text-unix)) | 6566 (let ((coding-system-for-write 'raw-text-unix)) |
| 6572 (write-region (point-min) (point-max) filename)) | 6567 (write-region (point-min) (point-max) filename)) |
| 6573 (and ps-razzle-dazzle (message "Wrote %s" filename))) | 6568 (and ps-razzle-dazzle (message "Wrote %s" filename))) |
| 6574 ;; Else, spool to the printer | 6569 ;; Else, spool to the printer |
| 6575 (and ps-razzle-dazzle (message "Printing...")) | 6570 (and ps-razzle-dazzle (message "Printing...")) |
| 6576 (save-excursion | 6571 (with-current-buffer ps-spool-buffer |
| 6577 (set-buffer ps-spool-buffer) | |
| 6578 (let* ((coding-system-for-write 'raw-text-unix) | 6572 (let* ((coding-system-for-write 'raw-text-unix) |
| 6579 (ps-printer-name (or ps-printer-name | 6573 (ps-printer-name (or ps-printer-name |
| 6580 (and (boundp 'printer-name) | 6574 (and (boundp 'printer-name) |
| 6581 (symbol-value 'printer-name)))) | 6575 (symbol-value 'printer-name)))) |
| 6582 (ps-lpr-switches | 6576 (ps-lpr-switches |