Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7ee2733f
Commit
7ee2733f
authored
Jan 16, 2015
by
Dmitry Antipov
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Tiny lisp.h cleanup
* lisp.h (XTERMINAL): Add eassert. * process.c (make_lisp_proc): Now static here.
parent
b689b906
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
10 additions
and
6 deletions
+10
-6
src/ChangeLog
src/ChangeLog
+3
-0
src/lisp.h
src/lisp.h
+2
-6
src/process.c
src/process.c
+5
-0
No files found.
src/ChangeLog
View file @
7ee2733f
...
...
@@ -15,6 +15,9 @@
* window.c (allocate_window): Now static here.
Use ALLOCATE_ZEROED_PSEUDOVECTOR. Add comment.
* lisp.h (XTERMINAL): Add eassert.
* process.c (make_lisp_proc): Now static here.
2015-01-16 Paul Eggert <eggert@cs.ucla.edu>
Give up on -Wsuggest-attribute=const
...
...
src/lisp.h
View file @
7ee2733f
...
...
@@ -608,6 +608,7 @@ INLINE bool SUBRP (Lisp_Object);
INLINE
bool
(
SYMBOLP
)
(
Lisp_Object
);
INLINE
bool
(
VECTORLIKEP
)
(
Lisp_Object
);
INLINE
bool
WINDOWP
(
Lisp_Object
);
INLINE
bool
TERMINALP
(
Lisp_Object
);
INLINE
struct
Lisp_Save_Value
*
XSAVE_VALUE
(
Lisp_Object
);
INLINE
struct
Lisp_Symbol
*
(
XSYMBOL
)
(
Lisp_Object
);
INLINE
void
*
(
XUNTAG
)
(
Lisp_Object
,
int
);
...
...
@@ -998,6 +999,7 @@ XWINDOW (Lisp_Object a)
INLINE
struct
terminal
*
XTERMINAL
(
Lisp_Object
a
)
{
eassert
(
TERMINALP
(
a
));
return
XUNTAG
(
a
,
Lisp_Vectorlike
);
}
...
...
@@ -1060,12 +1062,6 @@ builtin_lisp_symbol (int index)
return
make_lisp_symbol
(
lispsym
+
index
);
}
INLINE
Lisp_Object
make_lisp_proc
(
struct
Lisp_Process
*
p
)
{
return
make_lisp_ptr
(
p
,
Lisp_Vectorlike
);
}
#define XSETINT(a, b) ((a) = make_number (b))
#define XSETFASTINT(a, b) ((a) = make_natnum (b))
#define XSETCONS(a, b) ((a) = make_lisp_ptr (b, Lisp_Cons))
...
...
src/process.c
View file @
7ee2733f
...
...
@@ -422,6 +422,11 @@ pset_write_queue (struct Lisp_Process *p, Lisp_Object val)
}
static
Lisp_Object
make_lisp_proc
(
struct
Lisp_Process
*
p
)
{
return
make_lisp_ptr
(
p
,
Lisp_Vectorlike
);
}
static
struct
fd_callback_data
{
...
...
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