Mercurial > emacs
comparison lisp/startup.el @ 37834:a3e60560cd39
(command-line-1): When >2 files visited,
leave the last one visible, and make that the selected window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 May 2001 16:27:59 +0000 |
| parents | 0a8958170e89 |
| children | efc03a2c216e |
comparison
equal
deleted
inserted
replaced
| 37833:a2fb133c122d | 37834:a3e60560cd39 |
|---|---|
| 1591 (find-file-other-window file))) | 1591 (find-file-other-window file))) |
| 1592 (or (zerop line) | 1592 (or (zerop line) |
| 1593 (goto-line line)) | 1593 (goto-line line)) |
| 1594 (setq line 0)))))))) | 1594 (setq line 0)))))))) |
| 1595 ;; If 3 or more files visited, and not all visible, | 1595 ;; If 3 or more files visited, and not all visible, |
| 1596 ;; show user what they all are. | 1596 ;; show user what they all are. But leave the last one current. |
| 1597 (and (> file-count 2) | 1597 (and (> file-count 2) |
| 1598 (not noninteractive) | 1598 (not noninteractive) |
| 1599 (or (get-buffer-window first-file-buffer) | 1599 (or (get-buffer-window first-file-buffer) |
| 1600 (progn (other-window 1) | 1600 (list-buffers)))))) |
| 1601 (buffer-menu))))))) | |
| 1602 | 1601 |
| 1603 | 1602 |
| 1604 (defun command-line-normalize-file-name (file) | 1603 (defun command-line-normalize-file-name (file) |
| 1605 "Collapse multiple slashes to one, to handle non-Emacs file names." | 1604 "Collapse multiple slashes to one, to handle non-Emacs file names." |
| 1606 (save-match-data | 1605 (save-match-data |