diff options
| author | Paul Eggert | 2014-12-18 18:12:01 -0800 |
|---|---|---|
| committer | Paul Eggert | 2014-12-18 18:12:24 -0800 |
| commit | ad013ba63134d4fe6470665abf2f9e33a595848a (patch) | |
| tree | 595bcf2e2228e833fac882aeb60a8793b057f024 /src/data.c | |
| parent | 83299b940dd211f4e142d754b93ea592e9f67974 (diff) | |
| download | emacs-ad013ba63134d4fe6470665abf2f9e33a595848a.tar.gz emacs-ad013ba63134d4fe6470665abf2f9e33a595848a.zip | |
Minor cleanups for Lisp objects and symbols
* alloc.c (next_vector, set_next_vector):
* lisp.h (lisp_h_INTEGERP, make_number, XFASTINT, make_natnum):
(lisp_h_make_number) [USE_LSB_TAG]:
Use Lisp_Int0 instead of the mystery constant 0.
* alloc.c (mark_object): Always set and use po; that's simpler.
(CHECK_LIVE, CHECK_ALLOCATED_AND_LIVE):
Properly parenthesize definientia.
* bidi.c (bidi_initialize):
* buffer.c (init_buffer_once):
* nsfns.m (syms_of_nsfns):
* nsmenu.m (syms_of_nsmenu):
* nsselect.m (syms_of_nsselect):
Prefer DEFSYM to defining by hand.
* data.c: Fix too-long line.
* lisp.h (DECLARE_GDB_SYM): New macro.
(DEFINE_GDB_SYMBOL_BEGIN): Use it.
(DEFINE_GDB_SYMBOL_BEGIN, DEFINE_GDB_SYMBOL_END) [!MAIN_PROGRAM]:
Declare the symbol, so it's visible to everywhere lisp.h is included.
Move forward decls as far forward as they can go,
to allow future changes to use them.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index b48dbbebabc..7151d220b05 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -89,7 +89,8 @@ static Lisp_Object Qdefun; | |||
| 89 | Lisp_Object Qinteractive_form; | 89 | Lisp_Object Qinteractive_form; |
| 90 | static Lisp_Object Qdefalias_fset_function; | 90 | static Lisp_Object Qdefalias_fset_function; |
| 91 | 91 | ||
| 92 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, struct Lisp_Buffer_Local_Value *); | 92 | static void swap_in_symval_forwarding (struct Lisp_Symbol *, |
| 93 | struct Lisp_Buffer_Local_Value *); | ||
| 93 | 94 | ||
| 94 | static bool | 95 | static bool |
| 95 | BOOLFWDP (union Lisp_Fwd *a) | 96 | BOOLFWDP (union Lisp_Fwd *a) |