mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

(defvar_kboard): Renamed from defvar_display.

Browse Source
This commit is contained in:
Karl Heuer 1995-03-15 01:58:01 +00:00
parent e5f8af9e15
commit 4ac386907d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/lread.c
View File

@ -1908,18 +1908,18 @@ 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. */
at a particular offset in the current kboard object. */
void
defvar_display (namestring, offset)
defvar_kboard (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;
XMISC (val)->type = Lisp_Misc_Kboard_Objfwd;
XKBOARD_OBJFWD (val)->offset = offset;
XSYMBOL (sym)->value = val;
}