From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 03:15:35 +0000 (+0000)
Subject: (posn-col-row): Use let*.
X-Git-Tag: emacs-19.34~8213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ba60df97fcb71c5b27df6dd296aa41fb1ec9ed7;p=emacs.git

(posn-col-row): Use let*.
---

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)