Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-print.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 0d2f883870bc
children
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
1 ;;; w3-print.el --- Printing support for emacs-w3 1 ;;; w3-print.el --- Printing support for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/07 01:05:01 3 ;; Created: 1997/04/02 21:09:14
4 ;; Version: 1.7 4 ;; Version: 1.8
5 ;; Keywords: faces, help, printing, hypermedia 5 ;; Keywords: faces, help, printing, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
67 (write-region (point-min) (point-max) 67 (write-region (point-min) (point-max)
68 (expand-file-name "w3-tmp.latex" 68 (expand-file-name "w3-tmp.latex"
69 w3-temporary-directory) nil 5) 69 w3-temporary-directory) nil 5)
70 (shell-command 70 (shell-command
71 (format 71 (format
72 "cd %s ; latex w3-tmp.latex ; %s w3-tmp.dvi ; rm -f w3-tmp*" 72 "cd %s ; latex w3-tmp.latex ; latex w3-tmp.latex ; %s w3-tmp.dvi ; rm -f w3-tmp*"
73 w3-temporary-directory 73 w3-temporary-directory
74 w3-print-command)) 74 w3-print-command))
75 (kill-buffer "*Shell Command Output*"))))))) 75 (kill-buffer "*Shell Command Output*")))))))
76 76
77 (defun w3-print-url-under-point () 77 (defun w3-print-url-under-point ()