Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 7c94d56991e1
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
417 (command-line) 417 (command-line)
418 ;; Do this again, in case .emacs defined more abbreviations. 418 ;; Do this again, in case .emacs defined more abbreviations.
419 (setq default-directory (abbreviate-file-name default-directory)) 419 (setq default-directory (abbreviate-file-name default-directory))
420 ;; Specify the file for recording all the auto save files of 420 ;; Specify the file for recording all the auto save files of
421 ;; this session. This is used by recover-session. 421 ;; this session. This is used by recover-session.
422 (setq auto-save-list-file-name 422 (if auto-save-list-file-prefix
423 (expand-file-name 423 (setq auto-save-list-file-name
424 (format "%s%d-%s" 424 (expand-file-name
425 auto-save-list-file-prefix 425 (format "%s%d-%s"
426 (emacs-pid) 426 auto-save-list-file-prefix
427 (system-name)))) 427 (emacs-pid)
428 (system-name)))))
428 (run-hooks 'emacs-startup-hook) 429 (run-hooks 'emacs-startup-hook)
429 (and term-setup-hook 430 (and term-setup-hook
430 (run-hooks 'term-setup-hook)) 431 (run-hooks 'term-setup-hook))
431 (setq term-setup-hook nil) 432 (setq term-setup-hook nil)
432 ;; ;; Modify the initial frame based on what .emacs puts into 433 ;; ;; Modify the initial frame based on what .emacs puts into