martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy
1991-11-27 03:29:02 +00:00
parent 809ca691c2
commit c35f9044a5
1 changed files with 7 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/startup.el
View File

@@ -148,23 +148,16 @@ directory name of the directory where the `.emacs' file was looked for.")
(setq version-control 'never))))
;; Choose a good default value for split-window-keep-point.
(setq split-window-keep-point (> (baud-rate) 2400))
(setq split-window-keep-point (> baud-rate 2400))
;; Read window system's init file if using a window system.
(if (and window-system (not noninteractive))
(condition-case data
(load (concat term-file-prefix
(symbol-name window-system)
"-win")
;; Every window system should have a startup file;
;; barf if we can't find it.
nil t)
(error
(let ((standard-output 'external-debugging-output))
(princ "Error initializing window system: ")
(prin1 data)
(terpri)
(kill-emacs)))))
(load (concat term-file-prefix
(symbol-name window-system)
"-win")
;; Every window system should have a startup file;
;; barf if we can't find it.
nil t))
(let ((done nil)
(args (cdr command-line-args)))