[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Fri, 14 Mar 2003 17:37:00 -0500 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.343 emacs/lisp/subr.el:1.344
*** emacs/lisp/subr.el:1.343 Tue Mar 11 07:47:56 2003
--- emacs/lisp/subr.el Fri Mar 14 17:36:57 2003
***************
*** 656,664 ****
For a scroll-bar event, the result column is 0, and the row
corresponds to the vertical position of the click in the scroll bar."
(let* ((pair (nth 2 position))
! (window (posn-window position))
! (vspacing (or (frame-parameter (window-frame window) 'line-spacing)
! default-line-spacing)))
(if (eq (if (consp (nth 1 position))
(car (nth 1 position))
(nth 1 position))
--- 656,662 ----
For a scroll-bar event, the result column is 0, and the row
corresponds to the vertical position of the click in the scroll bar."
(let* ((pair (nth 2 position))
! (window (posn-window position)))
(if (eq (if (consp (nth 1 position))
(car (nth 1 position))
(nth 1 position))
***************
*** 672,678 ****
(let* ((frame (if (framep window) window (window-frame window)))
(x (/ (car pair) (frame-char-width frame)))
(y (/ (cdr pair) (+ (frame-char-height frame)
! (or vspacing 0)))))
(cons x y))))))
(defsubst posn-timestamp (position)
--- 670,678 ----
(let* ((frame (if (framep window) window (window-frame window)))
(x (/ (car pair) (frame-char-width frame)))
(y (/ (cdr pair) (+ (frame-char-height frame)
! (or (frame-parameter frame 'line-spacing)
! default-line-spacing
! 0)))))
(cons x y))))))
(defsubst posn-timestamp (position)