cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilisp-val.el

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilisp-val.el --
   4 ;;; ILISP buffer value interface
   5 ;;;
   6 ;;; This file is part of ILISP.
   7 ;;; Please refer to the file COPYING for copyrights and licensing
   8 ;;; information.
   9 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
  10 ;;; of present and past contributors.
  11 ;;;
  12 ;;; $Id: ilisp-val.el,v 1.3 2001-07-02 09:40:49 youngs Exp $
  13
  14 (defun ilisp-value (variable &optional no-error-p)
  15   "Return the value of VARIABLE in the ILISP buffer.
  16 If NO-ERROR-P is NIL, then an error will be signalled if VARIABLE is nil."
  17   (save-excursion
  18     (set-buffer (ilisp-buffer))
  19     (let ((value (eval variable)))
  20       (if value
  21           value
  22           (if no-error-p
  23               nil
  24               (error "%s is not defined." variable))))))
  25
  26
  27 (defun set-ilisp-value (variable value)
  28   "Set the value of VARIABLE in the ILISP buffer."
  29   (save-excursion
  30     (set-buffer (ilisp-buffer))
  31     (set variable value)))
  32
  33 ;;; end of file -- ilisp-val.el --