From 9ba60df97fcb71c5b27df6dd296aa41fb1ec9ed7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 May 1994 03:15:35 +0000 Subject: [PATCH] (posn-col-row): Use let*. --- lisp/subr.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index c281a64843d..6665bcd05f7 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -437,9 +437,9 @@ corresponds to the vertical position of the click in the scroll bar." (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) -- 2.39.5