mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* emacs.scm (emacs-eval-request):

Browse source 
(emacs-symdoc): (This procedure needs updating!)
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:45:45 +00:00
parent d7faeb2ee9
commit a71aca7af9
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/emacs.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@ -170,7 +170,7 @@
(apply throw key args))))))
(define (emacs-eval-request form)
(result-to-emacs (eval form)))
(result-to-emacs (eval form (interaction-environment))))
;;*fixme* Not necessary to use flags no-stack and no-source
(define (get-frame-source frame)
@ -248,9 +248,9 @@
(define (emacs-symdoc symbol)
(if (or (not (module-bound? (current-module) symbol))
(not (procedure? (eval symbol))))
(not (procedure? (eval symbol) (interaction-environment))))
'nil
(procedure-documentation (eval symbol))))
(procedure-documentation (eval symbol (interaction-environment)))))
;;; A fix to get the emacs interface to work together with the module system.
;;;