Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4360b0c6
Commit
4360b0c6
authored
Aug 19, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lread.c (defvar_per_buffer): Support new TYPE argument, by
setting the appropriate slot in buffer_local_types.
parent
8ea0a720
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
src/lread.c
src/lread.c
+3
-1
No files found.
src/lread.c
View file @
4360b0c6
...
...
@@ -1472,9 +1472,10 @@ defvar_lisp_nopro (namestring, address, doc)
the current buffer. address is the address of the slot in the buffer that is current now. */
void
defvar_per_buffer
(
namestring
,
address
,
doc
)
defvar_per_buffer
(
namestring
,
address
,
type
,
doc
)
char
*
namestring
;
Lisp_Object
*
address
;
Lisp_Object
type
;
char
*
doc
;
{
Lisp_Object
sym
;
...
...
@@ -1487,6 +1488,7 @@ defvar_per_buffer (namestring, address, doc)
XSET
(
XSYMBOL
(
sym
)
->
value
,
Lisp_Buffer_Objfwd
,
(
Lisp_Object
*
)
offset
);
*
(
Lisp_Object
*
)(
offset
+
(
char
*
)
&
buffer_local_symbols
)
=
sym
;
*
(
Lisp_Object
*
)(
offset
+
(
char
*
)
&
buffer_local_types
)
=
type
;
if
(
*
(
int
*
)(
offset
+
(
char
*
)
&
buffer_local_flags
)
==
0
)
/* Did a DEFVAR_PER_BUFFER without initializing the corresponding
slot of buffer_local_flags */
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment