Mercurial > emacs
comparison lisp/dired.el @ 78462:49b138bd37ef
Use window-full-width-p instead of comparing frame-width and
window-width.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 08 Aug 2007 05:46:49 +0000 |
| parents | 9355f9b7bbff |
| children | f85317d85f18 e5a68f18fcb9 |
comparison
equal
deleted
inserted
replaced
| 78461:90683ffc924a | 78462:49b138bd37ef |
|---|---|
| 2545 (let ((window (selected-window)) | 2545 (let ((window (selected-window)) |
| 2546 target-lines w2) | 2546 target-lines w2) |
| 2547 (cond ;; if split-height-threshold is enabled, use the largest window | 2547 (cond ;; if split-height-threshold is enabled, use the largest window |
| 2548 ((and (> (window-height (setq w2 (get-largest-window))) | 2548 ((and (> (window-height (setq w2 (get-largest-window))) |
| 2549 split-height-threshold) | 2549 split-height-threshold) |
| 2550 (= (frame-width) (window-width w2))) | 2550 (window-full-width-p w2)) |
| 2551 (setq window w2)) | 2551 (setq window w2)) |
| 2552 ;; if the least-recently-used window is big enough, use it | 2552 ;; if the least-recently-used window is big enough, use it |
| 2553 ((and (> (window-height (setq w2 (get-lru-window))) | 2553 ((and (> (window-height (setq w2 (get-lru-window))) |
| 2554 (* 2 window-min-height)) | 2554 (* 2 window-min-height)) |
| 2555 (= (frame-width) (window-width w2))) | 2555 (window-full-width-p w2)) |
| 2556 (setq window w2))) | 2556 (setq window w2))) |
| 2557 (save-excursion | 2557 (save-excursion |
| 2558 (set-buffer buf) | 2558 (set-buffer buf) |
| 2559 (goto-char (point-max)) | 2559 (goto-char (point-max)) |
| 2560 (skip-chars-backward "\n\r\t ") | 2560 (skip-chars-backward "\n\r\t ") |