[Emacs-diffs] Changes to emacs/lisp/subr.el

[John Paul Wallington]

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)