Mercurial > emacs
changeset 54636:be1994e2a5ce
New version 6.7.3.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Mon, 29 Mar 2004 02:51:59 +0000 |
| parents | 55314eeb3692 |
| children | df2f0fcc5fa2 |
| files | lisp/printing.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/printing.el Mon Mar 29 02:46:53 2004 +0000 +++ b/lisp/printing.el Mon Mar 29 02:51:59 2004 +0000 @@ -5,13 +5,13 @@ ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> -;; Time-stamp: <2004/03/28 19:19:17 vinicius> +;; Time-stamp: <2004/03/28 23:37:38 vinicius> ;; Keywords: wp, print, PostScript -;; Version: 6.7.2 +;; Version: 6.7.3 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ -(defconst pr-version "6.7.2" - "printing.el, v 6.7.2 <2004/02/29 vinicius> +(defconst pr-version "6.7.3" + "printing.el, v 6.7.3 <2004/03/28 vinicius> Please send all bug fixes and enhancements to Vinicius Jose Latorre <vinicius@cpqd.com.br> @@ -4572,8 +4572,8 @@ (defun pr-menu-position (entry index horizontal) (let ((pos (cdr (pr-e-mouse-pixel-position)))) (list - (list (car pos) ; X - (- (cdr pos) ; Y + (list (or (car pos) 0) ; X + (- (or (cdr pos) 0) ; Y (* (pr-menu-index entry index) pr-menu-char-height))) (selected-frame)))) ; frame ) @@ -4582,9 +4582,9 @@ (defun pr-menu-position (entry index horizontal) (let ((pos (cdr (pr-e-mouse-pixel-position)))) (list - (list (- (car pos) ; X + (list (- (or (car pos) 0) ; X (* horizontal pr-menu-char-width)) - (- (cdr pos) ; Y + (- (or (cdr pos) 0) ; Y (* (pr-menu-index entry index) pr-menu-char-height))) (selected-frame)))) ; frame ))