From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Mon, 29 Mar 2004 02:51:59 +0000 (+0000)
Subject: New version 6.7.3.
X-Git-Tag: ttn-vms-21-2-B4~7036
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=034cb0963366f131566dd5dc9d8a2f7282dd59ae;p=emacs.git

New version 6.7.3.
---

diff --git a/lisp/printing.el b/lisp/printing.el
index 3e1df1554aa..1a5a743d99a 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -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 @@ See `pr-visible-entry-alist'.")
     (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 @@ See `pr-visible-entry-alist'.")
     (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
     ))