Commit 9ba60df9 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent a4e104bf
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment