/[guile]/guile/guile-core/lang/elisp/base.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/base.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by ossau, Fri Feb 8 11:50:51 2002 UTC revision 1.5 by ossau, Wed Feb 13 21:50:55 2002 UTC
# Line 35  Line 35 
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")

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26