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