mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 04:40:29 +02:00
16 lines
403 B
Scheme
16 lines
403 B
Scheme
(define-module (lang elisp primitives buffers)
|
|
#:use-module (ice-9 optargs)
|
|
#:use-module (lang elisp internals fset))
|
|
|
|
(fset 'buffer-disable-undo
|
|
(lambda* (#:optional buffer)
|
|
'unimplemented))
|
|
|
|
(fset 're-search-forward
|
|
(lambda* (regexp #:optional bound noerror count)
|
|
'unimplemented))
|
|
|
|
(fset 're-search-backward
|
|
(lambda* (regexp #:optional bound noerror count)
|
|
'unimplemented))
|
|
|