Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children f53b5ca2e663
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
633 (interactive "BSwitch to buffer in other frame: ") 633 (interactive "BSwitch to buffer in other frame: ")
634 (let* ((name (get-frame-name-for-buffer buffer)) 634 (let* ((name (get-frame-name-for-buffer buffer))
635 (frame (make-frame (if name 635 (frame (make-frame (if name
636 (list (cons 'name (symbol-name name))))))) 636 (list (cons 'name (symbol-name name)))))))
637 (pop-to-buffer buffer t frame) 637 (pop-to-buffer buffer t frame)
638 (select-frame frame) 638 (unless focus-follows-mouse
639 (select-frame frame))
639 (make-frame-visible frame) 640 (make-frame-visible frame)
640 buffer)) 641 buffer))
641 642
642 (defun find-file (filename &optional codesys) 643 (defun find-file (filename &optional codesys)
643 "Edit file FILENAME. 644 "Edit file FILENAME.