changeset 7640:9b1194796ef5

(posn-col-row): Use let*.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 May 1994 03:15:35 +0000
parents 67b7d1ea7b2e
children 2db2ad2025c4
files lisp/subr.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
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)