/[guile]/guile/guile-core/emacs/guileint/guileint.el
ViewVC logotype

Diff of /guile/guile-core/emacs/guileint/guileint.el

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

revision 1.1 by ossau, Wed Aug 20 19:00:44 2003 UTC revision 1.2 by ossau, Thu Aug 21 18:34:43 2003 UTC
# Line 21  Line 21 
21  ;;;  ;;;
22  ;;; BUGS:  ;;; BUGS:
23  ;;;  ;;;
 ;;;  
 ;;; Setup load-path  
24    
 (if (featurep 'guileint)  
     nil  
     
25  (require 'cl-19 "cl")  (require 'cl-19 "cl")
26    
 (defconst guileint-init-file "guileint")  
   
 (defvar guileint-emacs-dir nil)  
 (let ((pathlist (getenv "EMACSSITELOAD")))  
   (if (and pathlist  
            (string-match (concat "\\(\\(/[^:/]+\\)*\\)/?"  
                                  guileint-init-file  
                                  "\\(\.elc?\\)?\\(:\\|\\'\\)")  
                          pathlist))  
       (setq guileint-emacs-dir (match-string 1 pathlist))))  
   
 (defvar guileint-default-load-path load-path)  
 (setq load-path  
       (append (list  
                guileint-emacs-dir  
                )  
               guileint-default-load-path  
               '(  
                 )))  
   
27  (setq scheme-program-name  (setq scheme-program-name
28        (let ((v (getenv "SCHEME_PROGRAM_NAME")))        (let ((v (getenv "SCHEME_PROGRAM_NAME")))
29          (or v          (or v
# Line 114  Line 89 
89  (load "inda-scheme")  (load "inda-scheme")
90    
91  (provide 'guileint)  (provide 'guileint)
 )  

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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