Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
247e20a8
Commit
247e20a8
authored
Oct 04, 1994
by
Karl Heuer
Browse files
(Fmodify_syntax_entry): Don't use XFASTINT as an lvalue.
parent
f58dd69b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
9 deletions
+9
-9
src/syntax.c
src/syntax.c
+9
-9
No files found.
src/syntax.c
View file @
247e20a8
...
...
@@ -291,7 +291,7 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
{
register
unsigned
char
*
p
,
match
;
register
enum
syntaxcode
code
;
Lisp_Objec
t
val
;
in
t
val
;
CHECK_NUMBER
(
c
,
0
);
CHECK_STRING
(
newentry
,
1
);
...
...
@@ -309,36 +309,36 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
if
(
match
)
p
++
;
if
(
match
==
' '
)
match
=
0
;
XSETFASTINT
(
val
,
(
match
<<
8
)
+
(
int
)
code
)
;
val
=
(
match
<<
8
)
+
(
int
)
code
;
while
(
*
p
)
switch
(
*
p
++
)
{
case
'1'
:
XFASTINT
(
val
)
|=
1
<<
16
;
val
|=
1
<<
16
;
break
;
case
'2'
:
XFASTINT
(
val
)
|=
1
<<
17
;
val
|=
1
<<
17
;
break
;
case
'3'
:
XFASTINT
(
val
)
|=
1
<<
18
;
val
|=
1
<<
18
;
break
;
case
'4'
:
XFASTINT
(
val
)
|=
1
<<
19
;
val
|=
1
<<
19
;
break
;
case
'p'
:
XFASTINT
(
val
)
|=
1
<<
20
;
val
|=
1
<<
20
;
break
;
case
'b'
:
XFASTINT
(
val
)
|=
1
<<
21
;
val
|=
1
<<
21
;
break
;
}
XVECTOR
(
syntax_table
)
->
contents
[
0xFF
&
XINT
(
c
)]
=
val
;
XSETFASTINT
(
XVECTOR
(
syntax_table
)
->
contents
[
0xFF
&
XINT
(
c
)]
,
val
)
;
return
Qnil
;
}
...
...
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