comparison src/lread.c @ 11020:0951bb12c8ee

(defvar_kboard): Renamed from defvar_display.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Mar 1995 01:58:01 +0000
parents 050a2d62d186
children aeaaa579d967
comparison
equal deleted inserted replaced
11019:48bf6677dab3 11020:0951bb12c8ee
1906 } 1906 }
1907 1907
1908 #endif /* standalone */ 1908 #endif /* standalone */
1909 1909
1910 /* Similar but define a variable whose value is the Lisp Object stored 1910 /* Similar but define a variable whose value is the Lisp Object stored
1911 at a particular offset in the current perdisplay object. */ 1911 at a particular offset in the current kboard object. */
1912 1912
1913 void 1913 void
1914 defvar_display (namestring, offset) 1914 defvar_kboard (namestring, offset)
1915 char *namestring; 1915 char *namestring;
1916 int offset; 1916 int offset;
1917 { 1917 {
1918 Lisp_Object sym, val; 1918 Lisp_Object sym, val;
1919 sym = intern (namestring); 1919 sym = intern (namestring);
1920 val = allocate_misc (); 1920 val = allocate_misc ();
1921 XMISC (val)->type = Lisp_Misc_Display_Objfwd; 1921 XMISC (val)->type = Lisp_Misc_Kboard_Objfwd;
1922 XDISPLAY_OBJFWD (val)->offset = offset; 1922 XKBOARD_OBJFWD (val)->offset = offset;
1923 XSYMBOL (sym)->value = val; 1923 XSYMBOL (sym)->value = val;
1924 } 1924 }
1925 1925
1926 init_lread () 1926 init_lread ()
1927 { 1927 {