From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 31 Jan 1995 01:26:09 +0000 (+0000)
Subject: (defvar_display): New function.
X-Git-Tag: emacs-19.34~5252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=950c215d92e111b1a6e43c06824f68737c8f5a6e;p=emacs.git

(defvar_display): New function.
---

diff --git a/src/lread.c b/src/lread.c
index d19c15787a4..ad8ba2a9838 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1817,7 +1817,7 @@ defalias (sname, string)
 
 /* Define an "integer variable"; a symbol whose value is forwarded
    to a C variable of type int.  Sample call: */
-  /* DEFVARINT ("indent-tabs-mode", &indent_tabs_mode, "Documentation");  */
+  /* DEFVAR_INT ("indent-tabs-mode", &indent_tabs_mode, "Documentation");  */
 void
 defvar_int (namestring, address)
      char *namestring;
@@ -1906,6 +1906,22 @@ defvar_per_buffer (namestring, address, type, doc)
 }
 
 #endif /* standalone */
+
+/* Similar but define a variable whose value is the Lisp Object stored
+   at a particular offset in the current perdisplay object.  */
+
+void
+defvar_display (namestring, offset)
+     char *namestring;
+     int offset;
+{
+  Lisp_Object sym, val;
+  sym = intern (namestring);
+  val = allocate_misc ();
+  XMISC (val)->type = Lisp_Misc_Display_Objfwd;
+  XDISPLAY_OBJFWD (val)->offset = offset;
+  XSYMBOL (sym)->value = val;
+}
 
 init_lread ()
 {