Mercurial > emacs
comparison lisp/dired.el @ 44061:f816ded285dd
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 21 Mar 2002 09:35:35 +0000 |
| parents | 9978ea345d85 |
| children | e87d819f2887 |
comparison
equal
deleted
inserted
replaced
| 44060:42c4f337cf14 | 44061:f816ded285dd |
|---|---|
| 2149 (if (not dired-shrink-to-fit) | 2149 (if (not dired-shrink-to-fit) |
| 2150 (pop-to-buffer (get-buffer-create buf)) | 2150 (pop-to-buffer (get-buffer-create buf)) |
| 2151 ;; let window shrink to fit: | 2151 ;; let window shrink to fit: |
| 2152 (let ((window (selected-window)) | 2152 (let ((window (selected-window)) |
| 2153 target-lines w2) | 2153 target-lines w2) |
| 2154 (cond ;; if split-window-threshold is enabled, use the largest window | 2154 (cond ;; if split-height-threshold is enabled, use the largest window |
| 2155 ((and (> (window-height (setq w2 (get-largest-window))) | 2155 ((and (> (window-height (setq w2 (get-largest-window))) |
| 2156 split-height-threshold) | 2156 split-height-threshold) |
| 2157 (= (frame-width) (window-width w2))) | 2157 (= (frame-width) (window-width w2))) |
| 2158 (setq window w2)) | 2158 (setq window w2)) |
| 2159 ;; if the least-recently-used window is big enough, use it | 2159 ;; if the least-recently-used window is big enough, use it |