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

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

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

revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC revision 1.3 by ossau, Wed Jan 30 00:03:40 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp primitives fns)  (define-module (lang elisp primitives fns)
2    #:use-module (lang elisp internals fset))    #:use-module (lang elisp internals set)
3      #:use-module (lang elisp internals fset)
4      #:use-module (lang elisp internals null))
5    
6  (fset 'fset fset)  (fset 'fset fset)
7  (fset 'defalias fset)  (fset 'defalias fset)
# Line 12  Line 14 
14    
15  (fset 'interactive-p  (fset 'interactive-p
16        (lambda ()        (lambda ()
17          #f))          %nil))
18    
19  (fset 'commandp  (fset 'commandp
20        (lambda (sym)        (lambda (sym)
21          (if (interactive-spec (fref sym)) #t #f)))          (if (interactive-spec (fref sym)) #t %nil)))
22    
23  (fset 'fboundp  (fset 'fboundp
24        (lambda (sym)        (lambda (sym)
# Line 32  Line 34 
34    
35  (fset 'byte-code-function-p  (fset 'byte-code-function-p
36        (lambda (object)        (lambda (object)
37          #f))          %nil))
38    
39  (fset 'run-hooks  (fset 'run-hooks
40        (lambda (hooks)        (lambda hooks
41          (cond ((null hooks))          (for-each (lambda (hooksym)
42                ((list? hooks)                      (for-each (lambda (fn)
43                 (for-each (lambda (hook)                                  (elisp-apply fn '()))
44                             (elisp-apply hook '()))                                (value hooksym #f)))
45                           hooks))                    hooks)))
               (else  
                (elisp-apply hooks '())))))  

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

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