diff options
| author | Richard M. Stallman | 1994-05-23 03:15:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-23 03:15:35 +0000 |
| commit | 9ba60df97fcb71c5b27df6dd296aa41fb1ec9ed7 (patch) | |
| tree | dc38c0dc5698c2fbbb7657fe0e7051126e9564ba | |
| parent | a4e104bf5ccd3e19a16cdb6bad79edff86fba3cb (diff) | |
| download | emacs-9ba60df97fcb71c5b27df6dd296aa41fb1ec9ed7.tar.gz emacs-9ba60df97fcb71c5b27df6dd296aa41fb1ec9ed7.zip | |
(posn-col-row): Use let*.
| -rw-r--r-- | lisp/subr.el | 6 |
1 files 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." | |||
| 437 | (car (nth 1 position))) | 437 | (car (nth 1 position))) |
| 438 | 'horizontal-scroll-bar) | 438 | 'horizontal-scroll-bar) |
| 439 | (cons (scroll-bar-scale pair (window-width window)) 0) | 439 | (cons (scroll-bar-scale pair (window-width window)) 0) |
| 440 | (let ((frame (if (framep window) window (window-frame window))) | 440 | (let* ((frame (if (framep window) window (window-frame window))) |
| 441 | (x (/ (car pair) (frame-char-width frame))) | 441 | (x (/ (car pair) (frame-char-width frame))) |
| 442 | (y (/ (cdr pair) (frame-char-height frame)))) | 442 | (y (/ (cdr pair) (frame-char-height frame)))) |
| 443 | (cons x y)))))) | 443 | (cons x y)))))) |
| 444 | 444 | ||
| 445 | (defsubst posn-timestamp (position) | 445 | (defsubst posn-timestamp (position) |