aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-02-02 04:17:02 +0000
committerGlenn Morris2008-02-02 04:17:02 +0000
commit723bbcec6ecd5cd39a578d6e6e4819a2d18961b3 (patch)
tree162944553efb4db967d42de9995eab7ce305f308
parentf6bcd65fa55b64529060cd5fcec3610e1d8ab572 (diff)
downloademacs-723bbcec6ecd5cd39a578d6e6e4819a2d18961b3.tar.gz
emacs-723bbcec6ecd5cd39a578d6e6e4819a2d18961b3.zip
(ps-mule-initialize, ps-mule-begin-job)
(ps-mule-end-job): Declare as functions.
-rw-r--r--lisp/ps-print.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 2579cc6ff13..28acf220a3a 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1,7 +1,8 @@
1;;; ps-print.el --- print text from the buffer as PostScript 1;;; ps-print.el --- print text from the buffer as PostScript
2 2
3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 3;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
4;; 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. 4;; 2002, 2003, 2004, 2005, 2006, 2007, 2008
5;; Free Software Foundation, Inc.
5 6
6;; Author: Jim Thompson (was <thompson@wg2.waii.com>) 7;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
7;; Jacques Duthen (was <duthen@cegelec-red.fr>) 8;; Jacques Duthen (was <duthen@cegelec-red.fr>)
@@ -6409,6 +6410,12 @@ If FACE is not a valid face name, use default face."
6409(defun ps-generate-postscript (from to) 6410(defun ps-generate-postscript (from to)
6410 (ps-plot-region from to 0)) 6411 (ps-plot-region from to 0))
6411 6412
6413;; These are autoloaded, but ps-mule generates autoloads at the end of
6414;; this file, so they are unknown at this point when compiling.
6415(declare-function ps-mule-initialize "ps-mule" ())
6416(declare-function ps-mule-begin-job "ps-mule" (from to))
6417(declare-function ps-mule-end-job "ps-mule" ())
6418
6412(defun ps-generate (buffer from to genfunc) 6419(defun ps-generate (buffer from to genfunc)
6413 (save-excursion 6420 (save-excursion
6414 (let ((from (min to from)) 6421 (let ((from (min to from))