mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(posn-col-row): Heed frame parameter `line-spacing' and

Browse Source 
`default-line-spacing', rather than buffer-local `line-spacing'.
This commit is contained in:
John Paul Wallington 2003-03-11 12:49:20 +00:00
parent 963c2e09c0
commit ee24a85250
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2003-03-11 John Paul Wallington <jpw@gnu.org>
* subr.el (posn-col-row): Heed frame parameter `line-spacing' and
`default-line-spacing', rather than buffer-local `line-spacing'.
2003-03-10 Per Abrahamsen <abraham@dina.kvl.dk>
* cus-edit.el (customize-rogue): New command.

8
lisp/subr.el
View File

@ -657,9 +657,8 @@ 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 (buffer-local-value 'line-spacing
(window-buffer window))
0)))
(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,7 +671,8 @@ corresponds to the vertical position of the click in the scroll bar."
(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))))
(y (/ (cdr pair) (+ (frame-char-height frame)
(or vspacing 0)))))
(cons x y))))))
(defsubst posn-timestamp (position)