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

[John Paul Wallington]

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)