Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-05-23 03:15:35 +00:00
parent a4e104bf5c
commit 9ba60df97f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -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)