Mercurial > emacs
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 { |