Mercurial > emacs
comparison lisp/files.el @ 16831:3626b6cd2ad1
(switch-to-buffer-other-frame)
(switch-to-buffer-other-window): New arg NORECORD.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 05 Jan 1997 02:55:09 +0000 |
parents | 8ae41d9d350d |
children | c1b9bc4c525b |
comparison
equal
deleted
inserted
replaced
16830:4792e73d511f | 16831:3626b6cd2ad1 |
---|---|
487 (file-name-directory newname)))))))) | 487 (file-name-directory newname)))))))) |
488 (setq newname (expand-file-name tem (file-name-directory newname))) | 488 (setq newname (expand-file-name tem (file-name-directory newname))) |
489 (setq count (1- count))) | 489 (setq count (1- count))) |
490 newname)) | 490 newname)) |
491 | 491 |
492 (defun switch-to-buffer-other-window (buffer) | 492 (defun switch-to-buffer-other-window (buffer &optional norecord) |
493 "Select buffer BUFFER in another window." | 493 "Select buffer BUFFER in another window. |
494 Optional second arg NORECORD non-nil means | |
495 do not put this buffer at the front of the list of recently selected ones." | |
494 (interactive "BSwitch to buffer in other window: ") | 496 (interactive "BSwitch to buffer in other window: ") |
495 (let ((pop-up-windows t)) | 497 (let ((pop-up-windows t)) |
496 (pop-to-buffer buffer t))) | 498 (pop-to-buffer buffer t norecord))) |
497 | 499 |
498 (defun switch-to-buffer-other-frame (buffer) | 500 (defun switch-to-buffer-other-frame (buffer &optional norecord) |
499 "Switch to buffer BUFFER in another frame." | 501 "Switch to buffer BUFFER in another frame. |
502 Optional second arg NORECORD non-nil means | |
503 do not put this buffer at the front of the list of recently selected ones." | |
500 (interactive "BSwitch to buffer in other frame: ") | 504 (interactive "BSwitch to buffer in other frame: ") |
501 (let ((pop-up-frames t)) | 505 (let ((pop-up-frames t)) |
502 (pop-to-buffer buffer t) | 506 (pop-to-buffer buffer t norecord) |
503 (raise-frame (window-frame (selected-window))))) | 507 (raise-frame (window-frame (selected-window))))) |
504 | 508 |
505 (defun find-file (filename) | 509 (defun find-file (filename) |
506 "Edit file FILENAME. | 510 "Edit file FILENAME. |
507 Switch to a buffer visiting file FILENAME, | 511 Switch to a buffer visiting file FILENAME, |