mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

New version 6.7.3.

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2004-03-29 02:51:59 +00:00
parent b6ea9927a0
commit 034cb09633
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/printing.el
View File

@ -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
))