/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.342 by jpw, Mon Mar 10 13:25:42 2003 UTC revision 1.343 by jpw, Tue Mar 11 12:47:56 2003 UTC
# Line 657  For a scroll-bar event, the result colum Line 657  For a scroll-bar event, the result colum
657  corresponds to the vertical position of the click in the scroll bar."  corresponds to the vertical position of the click in the scroll bar."
658    (let* ((pair   (nth 2 position))    (let* ((pair   (nth 2 position))
659           (window (posn-window position))           (window (posn-window position))
660           (vspacing (or (buffer-local-value 'line-spacing           (vspacing (or (frame-parameter (window-frame window) 'line-spacing)
661                                             (window-buffer window))                         default-line-spacing)))
                        0)))  
662      (if (eq (if (consp (nth 1 position))      (if (eq (if (consp (nth 1 position))
663                  (car (nth 1 position))                  (car (nth 1 position))
664                (nth 1 position))                (nth 1 position))
# Line 672  corresponds to the vertical position of Line 671  corresponds to the vertical position of
671            (cons (scroll-bar-scale pair (window-width window)) 0)            (cons (scroll-bar-scale pair (window-width window)) 0)
672          (let* ((frame (if (framep window) window (window-frame window)))          (let* ((frame (if (framep window) window (window-frame window)))
673                 (x (/ (car pair) (frame-char-width frame)))                 (x (/ (car pair) (frame-char-width frame)))
674                 (y (/ (cdr pair) (+ (frame-char-height frame) vspacing))))                 (y (/ (cdr pair) (+ (frame-char-height frame)
675                                       (or vspacing 0)))))
676            (cons x y))))))            (cons x y))))))
677    
678  (defsubst posn-timestamp (position)  (defsubst posn-timestamp (position)

Legend:
Removed from v.1.342  
changed lines
  Added in v.1.343

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26