Mercurial > hg > xemacs-beta

comparison lisp/prim/startup.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 9ad43877534d
children b405438285a2
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
684 (sit-for 0) 684 (sit-for 0)
685 (setq unread-command-event (next-command-event))) 685 (setq unread-command-event (next-command-event)))
686 (when timeout (disable-timeout timeout)) 686 (when timeout (disable-timeout timeout))
687 (with-current-buffer (get-buffer "*scratch*") 687 (with-current-buffer (get-buffer "*scratch*")
688 (erase-buffer) 688 (erase-buffer)
689 (insert initial-scratch-message) 689 (when (stringp initial-scratch-message)
690 (insert initial-scratch-message))
690 ;; In case the XEmacs server has already selected 691 ;; In case the XEmacs server has already selected
691 ;; another buffer, erase the one our message is in. 692 ;; another buffer, erase the one our message is in.
692 (set-buffer-modified-p nil))))) 693 (set-buffer-modified-p nil)))))
693 694
694 ;; Command-line-options exist 695 ;; Command-line-options exist