Mercurial > emacs

comparison lisp/progmodes/ebnf2ps.el @ 52163:0306a6f7d0f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ebnf-begin-job code fix
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Fri, 08 Aug 2003 02:32:06 +0000
parents 265858431838
children 282da92e75ee
comparison
equal deleted inserted replaced
52162:2b13b04b07a9 52163:0306a6f7d0f4
3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 5 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7 ;; Keywords: wp, ebnf, PostScript 7 ;; Keywords: wp, ebnf, PostScript
8 ;; Time-stamp: <2003-02-10 10:40:14 jbarranquero> 8 ;; Time-stamp: <2003/08/07 23:23:14 vinicius>
9 ;; Version: 3.6.1 9 ;; Version: 3.6.1
10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ 10 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
4264 (defsubst ebnf-font-height (font) 4264 (defsubst ebnf-font-height (font)
4265 (ebnf-font-select font 'line-height)) 4265 (ebnf-font-select font 'line-height))
4266 4266
4267 4267
4268 (defun ebnf-begin-job () 4268 (defun ebnf-begin-job ()
4269 (ps-printing-region nil nil) 4269 (ps-printing-region nil nil nil)
4270 (if ebnf-use-float-format 4270 (if ebnf-use-float-format
4271 (setq ebnf-format-float "%1.3f" 4271 (setq ebnf-format-float "%1.3f"
4272 ebnf-message-float "%3.2f") 4272 ebnf-message-float "%3.2f")
4273 (setq ebnf-format-float "%s" 4273 (setq ebnf-format-float "%s"
4274 ebnf-message-float "%s")) 4274 ebnf-message-float "%s"))