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) |
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) |
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 '()))))) |
|