Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-print.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; w3-print.el,v --- Printing support for emacs-w3 1 ;;; w3-print.el --- Printing support for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/06/06 15:03:15 3 ;; Created: 1996/07/09 02:54:01
4 ;; Version: 1.15 4 ;; Version: 1.3
5 ;; Keywords: faces, help, printing, hypermedia 5 ;; Keywords: faces, help, printing, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993, 1994 by William M. Perry (wmperry@spry.com) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; 9 ;;;
10 ;;; This file is part of GNU Emacs. 10 ;;; This file is part of GNU Emacs.
11 ;;; 11 ;;;
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;;; it under the terms of the GNU General Public License as published by 13 ;;; it under the terms of the GNU General Public License as published by
65 (require 'ps-print) 65 (require 'ps-print)
66 (setq buffer (or buffer (current-buffer)) 66 (setq buffer (or buffer (current-buffer))
67 function (or function 'ps-print-buffer-with-faces)) 67 function (or function 'ps-print-buffer-with-faces))
68 (let ((ps-bold-faces ps-bold-faces) 68 (let ((ps-bold-faces ps-bold-faces)
69 (ps-italic-faces ps-italic-faces) 69 (ps-italic-faces ps-italic-faces)
70 (inhibit-read-only t)
70 (ps-underline-faces (cond 71 (ps-underline-faces (cond
71 ((boundp 'ps-underline-faces) 72 ((boundp 'ps-underline-faces)
72 (symbol-value 'ps-underline-faces)) 73 (symbol-value 'ps-underline-faces))
73 ((boundp 'ps-underlined-faces) 74 ((boundp 'ps-underlined-faces)
74 (symbol-value 'ps-underlined-faces)) 75 (symbol-value 'ps-underlined-faces))