Mercurial > hg > xemacs-beta

comparison lisp/prim/startup.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents e04119814345
children 8d2a9b52c682
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
613 (setq debug-on-error debug-on-error-from-init-file))) 613 (setq debug-on-error debug-on-error-from-init-file)))
614 614
615 (setq init-file-loaded t) 615 (setq init-file-loaded t)
616 616
617 ;; Do this here in case the init file sets mail-host-address. 617 ;; Do this here in case the init file sets mail-host-address.
618 ;; Don't do this here unless noninteractive, it is frequently wrong. -sb
618 (or user-mail-address 619 (or user-mail-address
619 (setq user-mail-address (concat (user-login-name) "@" 620 (setq user-mail-address (concat (user-login-name) "@"
620 (or mail-host-address 621 (or mail-host-address
621 (system-name))))) 622 (system-name)))))
622 623