[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: |
Tue, 11 Mar 2003 07:47:57 -0500 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.342 emacs/lisp/subr.el:1.343
*** emacs/lisp/subr.el:1.342 Mon Mar 10 08:25:42 2003
--- emacs/lisp/subr.el Tue Mar 11 07:47:56 2003
***************
*** 657,665 ****
corresponds to the vertical position of the click in the scroll bar."
(let* ((pair (nth 2 position))
(window (posn-window position))
! (vspacing (or (buffer-local-value 'line-spacing
! (window-buffer window))
! 0)))
(if (eq (if (consp (nth 1 position))
(car (nth 1 position))
(nth 1 position))
--- 657,664 ----
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))
***************
*** 672,678 ****
(cons (scroll-bar-scale pair (window-width window)) 0)
(let* ((frame (if (framep window) window (window-frame window)))
(x (/ (car pair) (frame-char-width frame)))
! (y (/ (cdr pair) (+ (frame-char-height frame) vspacing))))
(cons x y))))))
(defsubst posn-timestamp (position)
--- 671,678 ----
(cons (scroll-bar-scale pair (window-width window)) 0)
(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)