Mercurial > emacs
diff lisp/subr.el @ 7640:9b1194796ef5
(posn-col-row): Use let*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 03:15:35 +0000 |
| parents | 83dba60657ef |
| children | 5fcf0620b8d3 |
line wrap: on
line diff
--- a/lisp/subr.el Sun May 22 22:14:17 1994 +0000 +++ b/lisp/subr.el Mon May 23 03:15:35 1994 +0000 @@ -437,9 +437,9 @@ (car (nth 1 position))) 'horizontal-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)))) + (let* ((frame (if (framep window) window (window-frame window))) + (x (/ (car pair) (frame-char-width frame))) + (y (/ (cdr pair) (frame-char-height frame)))) (cons x y)))))) (defsubst posn-timestamp (position)