Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 245:51092a27c943 r20-5b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b21
author cvs
date Mon, 13 Aug 2007 10:17:54 +0200
parents 41f2f0e326e9
children 727739f917cb
comparison
equal deleted inserted replaced
244:78d4f1140794 245:51092a27c943
761 (progn (find-file arg) (current-buffer)))) 761 (progn (find-file arg) (current-buffer))))
762 (noninteractive (find-file arg)) 762 (noninteractive (find-file arg))
763 (t (find-file-other-window arg))) 763 (t (find-file-other-window arg)))
764 (when line 764 (when line
765 (goto-line line) 765 (goto-line line)
766 (setq line nil)))) 766 (setq line nil))))))))
767 ;; If 3 or more files visited, and not all visible,
768 ;; show user what they all are.
769 (when (and (not noninteractive)
770 (> file-count 2)
771 (not (get-buffer-window first-file-buffer)))
772 (other-window 1)
773 (buffer-menu nil))))))
774 767
775 (defvar startup-presentation-hack-keymap 768 (defvar startup-presentation-hack-keymap
776 (let ((map (make-sparse-keymap))) 769 (let ((map (make-sparse-keymap)))
777 (set-keymap-name map 'startup-presentation-hack-keymap) 770 (set-keymap-name map 'startup-presentation-hack-keymap)
778 (define-key map '[button1] 'startup-presentation-hack) 771 (define-key map '[button1] 'startup-presentation-hack)