From 14b288ceb989fc9d5034c1145dad272cdadb6829 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Tue, 12 Jul 2011 21:10:55 -0400 Subject: [PATCH] elisp variable aliases * module/language/elisp/boot.el (defvaralias): New function. --- module/language/elisp/boot.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index 37cac5071..d264c8370 100644 --- a/module/language/elisp/boot.el +++ b/module/language/elisp/boot.el @@ -139,6 +139,14 @@ (fset 'boundp (@ (language elisp runtime) symbol-bound?)) (fset 'fboundp (@ (language elisp runtime) symbol-fbound?)) +(defun defvaralias (new-alias base-variable &optional docstring) + (let ((fluid (funcall (@ (language elisp runtime) symbol-fluid) + base-variable))) + (funcall (@ (language elisp runtime) set-symbol-fluid!) + new-alias + fluid) + base-variable)) + ;;; Numerical type predicates (defun floatp (object)