35 |
|
|
36 |
;;; Everything below here is written in Elisp. |
;;; Everything below here is written in Elisp. |
37 |
|
|
38 |
(defun load-emacs () |
(defun load-emacs (&optional new-load-path debug) |
39 |
|
(if debug (message "load-path: %s" load-path)) |
40 |
|
(cond (new-load-path |
41 |
|
(message "Setting load-path to: %s" new-load-path) |
42 |
|
(setq load-path new-load-path))) |
43 |
|
(if debug (message "load-path: %s" load-path)) |
44 |
(scheme (read-set! keywords 'prefix)) |
(scheme (read-set! keywords 'prefix)) |
45 |
(message "Calling loadup.el to clothe the bare Emacs...") |
(message "Calling loadup.el to clothe the bare Emacs...") |
46 |
(load "loadup.el") |
(load "loadup.el") |