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

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

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

revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
1    (define-module (lang elisp primitives guile)
2      #:use-module (lang elisp internals fset))
3    
4    ;;; {Importing Guile procedures into Elisp}
5    
6    ;; It may be worthwhile to import some Guile procedures into the Elisp
7    ;; environment.  For now, though, we don't do this.
8    
9    (if #f
10        (let ((accessible-procedures
11               (apropos-fold (lambda (module name var data)
12                               (cons (cons name var) data))
13                             '()
14                             ""
15                             (apropos-fold-accessible (current-module)))))
16          (for-each (lambda (name var)
17                      (if (procedure? var)
18                          (fset name var)))
19                    (map car accessible-procedures)
20                    (map cdr accessible-procedures))))

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