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,