Mercurial > emacs

comparison lisp/printing.el @ 54621:14d929e67a70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modify interactive declaration.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Sun, 28 Mar 2004 22:29:31 +0000
parents 085835de6939
children be1994e2a5ce
comparison
equal deleted inserted replaced
54620:b4feb28d4b89 54621:14d929e67a70
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
8 ;; Time-stamp: <2004/03/10 20:37:21 vinicius> 8 ;; Time-stamp: <2004/03/28 19:19:17 vinicius>
9 ;; Keywords: wp, print, PostScript 9 ;; Keywords: wp, print, PostScript
10 ;; Version: 6.7.2 10 ;; Version: 6.7.2
11 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ 11 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
12 12
13 (defconst pr-version "6.7.2" 13 (defconst pr-version "6.7.2"
4654 `pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not; 4654 `pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
4655 otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is 4655 otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is
4656 non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is 4656 non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is
4657 non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is 4657 non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is
4658 non-nil." 4658 non-nil."
4659 (interactive) 4659 (interactive "P")
4660 (pr-update-var 'pr-ps-name pr-ps-printer-alist) 4660 (pr-update-var 'pr-ps-name pr-ps-printer-alist)
4661 (pr-update-var 'pr-txt-name pr-txt-printer-alist) 4661 (pr-update-var 'pr-txt-name pr-txt-printer-alist)
4662 (pr-update-var 'pr-ps-utility pr-ps-utility-alist) 4662 (pr-update-var 'pr-ps-utility pr-ps-utility-alist)
4663 (pr-do-update-menus force)) 4663 (pr-do-update-menus force))
4664 4664