From 034cb0963366f131566dd5dc9d8a2f7282dd59ae Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Mon, 29 Mar 2004 02:51:59 +0000 Subject: [PATCH] New version 6.7.3. --- lisp/printing.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 ;; Maintainer: Vinicius Jose Latorre -;; 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 @@ -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 )) -- 2.39.5