mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

New commands: guile-scheme-apropos, guile-scheme-describe,

Browse source 
guile-scheme-kill-process.

Bug fixed for GNU Emacs 20.7.
This commit is contained in:
Keisuke Nishida 2001-05-06 21:35:14 +00:00
parent fe7c2f88c2
commit 19a96c8ae4
4 changed files with 138 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

21
emacs/guile-emacs.scm
View file

@ -55,7 +55,7 @@
;;;
;;; for guile-import and guile-use-modules
;;; for guile-import and guile-import-module
;;;
(define (guile-emacs-export-procedure name proc docs)
@ -111,7 +111,7 @@
;;;
;;; for guile-emacs-complete-symbol
;;; for guile-scheme-complete-symbol
;;;
(define (guile-emacs-complete-alist str)
@ -125,6 +125,23 @@
apropos-fold-all)
(lambda (p1 p2) (string<? (car p1) (car p2)))))
;;;
;;; for guile-scheme-apropos
;;;
(define (guile-emacs-apropos regexp)
(with-output-to-string (lambda () (apropos regexp))))
;;;
;;; for guile-scheme-describe
;;;
(define (guile-emacs-describe sym)
(object-documentation (eval sym (current-module))))
;;;
;;; Guile 1.4 compatibility
;;;