Mercurial > emacs
comparison lisp/printing.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 19 Sep 2005 10:20:33 +0000 |
| parents | 2d92f5c9d6ae 4d1085b02d64 |
| children | ee12d75eb214 |
comparison
equal
deleted
inserted
replaced
| 90227:10fe5fadaf89 | 90228:fa0da9b57058 |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> | 5 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
| 6 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> | 6 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
| 7 ;; Time-stamp: <2005/06/11 19:51:32 vinicius> | 7 ;; Time-stamp: <2005-09-18 05:57:14 deego> |
| 8 ;; Keywords: wp, print, PostScript | 8 ;; Keywords: wp, print, PostScript |
| 9 ;; Version: 6.8.4 | 9 ;; Version: 6.8.4 |
| 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ | 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
| 11 | 11 |
| 12 (defconst pr-version "6.8.4" | 12 (defconst pr-version "6.8.4" |
| 6422 (error "Internal error: `pr-i-process' = %S" pr-i-process)) | 6422 (error "Internal error: `pr-i-process' = %S" pr-i-process)) |
| 6423 ) | 6423 ) |
| 6424 ;; handlers | 6424 ;; handlers |
| 6425 ((quit error) | 6425 ((quit error) |
| 6426 (ding) | 6426 (ding) |
| 6427 (message (error-message-string data))))) | 6427 (message "%s" (error-message-string data))))) |
| 6428 | 6428 |
| 6429 | 6429 |
| 6430 (defun pr-interface-printify (&rest ignore) | 6430 (defun pr-interface-printify (&rest ignore) |
| 6431 "Printify a buffer." | 6431 "Printify a buffer." |
| 6432 (interactive) | 6432 (interactive) |
| 6447 (error "Internal error: `pr-i-process' = %S" pr-i-process)) | 6447 (error "Internal error: `pr-i-process' = %S" pr-i-process)) |
| 6448 ) | 6448 ) |
| 6449 ;; handlers | 6449 ;; handlers |
| 6450 ((quit error) | 6450 ((quit error) |
| 6451 (ding) | 6451 (ding) |
| 6452 (message (error-message-string data))))) | 6452 (message "%s" (error-message-string data))))) |
| 6453 | 6453 |
| 6454 | 6454 |
| 6455 (defun pr-interface-ps-print (&rest ignore) | 6455 (defun pr-interface-ps-print (&rest ignore) |
| 6456 "Print using ps-print package." | 6456 "Print using ps-print package." |
| 6457 (interactive) | 6457 (interactive) |
| 6513 (error "Internal error: `pr-i-process' = %S" pr-i-process)) | 6513 (error "Internal error: `pr-i-process' = %S" pr-i-process)) |
| 6514 )) | 6514 )) |
| 6515 ;; handlers | 6515 ;; handlers |
| 6516 ((quit error) | 6516 ((quit error) |
| 6517 (ding) | 6517 (ding) |
| 6518 (message (error-message-string data))))) | 6518 (message "%s" (error-message-string data))))) |
| 6519 | 6519 |
| 6520 | 6520 |
| 6521 (defun pr-i-ps-send () | 6521 (defun pr-i-ps-send () |
| 6522 (cond ((eq pr-i-ps-send 'printer) | 6522 (cond ((eq pr-i-ps-send 'printer) |
| 6523 nil) | 6523 nil) |