diff options
| author | Karl Heuer | 1995-03-15 01:58:01 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-03-15 01:58:01 +0000 |
| commit | 4ac386907d5bf8af94bfbc9b712dfe95214a3308 (patch) | |
| tree | 731d27ef31a9cd8b1bfa4bace9941b1b87a8bfd9 | |
| parent | e5f8af9e15fd5f2a53f74051f5fe01cc8ccf642f (diff) | |
| download | emacs-4ac386907d5bf8af94bfbc9b712dfe95214a3308.tar.gz emacs-4ac386907d5bf8af94bfbc9b712dfe95214a3308.zip | |
(defvar_kboard): Renamed from defvar_display.
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c index ad8ba2a9838..f0afa5f0710 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1908,18 +1908,18 @@ defvar_per_buffer (namestring, address, type, doc) | |||
| 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 | ||