procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Parenthesize macro bodies.

Browse source 
* lisp.h (XSETINT, XSETCONS, XSETVECTOR, XSETSTRING, XSETSYMBOL)
(XSETFLOAT, XSETMISC): Parenthesize.
This commit is contained in:
Paul Eggert 2012-09-09 18:17:23 -07:00
parent 9b851e2550
commit ff55dfe832
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2012-09-10 Paul Eggert <eggert@cs.ucla.edu>
* lisp.h (XSETINT, XSETCONS, XSETVECTOR, XSETSTRING, XSETSYMBOL)
(XSETFLOAT, XSETMISC): Parenthesize macro bodies.
2012-09-09 Stefan Monnier <monnier@iro.umontreal.ca>
* lisp.h (make_lisp_ptr): New macro to replace XSET.

14
src/lisp.h
View file

@ -554,16 +554,16 @@ clip_to_bounds (ptrdiff_t lower, EMACS_INT num, ptrdiff_t upper)
/* Construct a Lisp_Object from a value or address. */
#define XSETINT(a, b) (a) = make_number (b)
#define XSETCONS(a, b) (a) = make_lisp_ptr (b, Lisp_Cons)
#define XSETVECTOR(a, b) (a) = make_lisp_ptr (b, Lisp_Vectorlike)
#define XSETSTRING(a, b) (a) = make_lisp_ptr (b, Lisp_String)
#define XSETSYMBOL(a, b) (a) = make_lisp_ptr (b, Lisp_Symbol)
#define XSETFLOAT(a, b) (a) = make_lisp_ptr (b, Lisp_Float)
#define XSETINT(a, b) ((a) = make_number (b))
#define XSETCONS(a, b) ((a) = make_lisp_ptr (b, Lisp_Cons))
#define XSETVECTOR(a, b) ((a) = make_lisp_ptr (b, Lisp_Vectorlike))
#define XSETSTRING(a, b) ((a) = make_lisp_ptr (b, Lisp_String))
#define XSETSYMBOL(a, b) ((a) = make_lisp_ptr (b, Lisp_Symbol))
#define XSETFLOAT(a, b) ((a) = make_lisp_ptr (b, Lisp_Float))
/* Misc types. */
#define XSETMISC(a, b) (a) = make_lisp_ptr (b, Lisp_Misc)
#define XSETMISC(a, b) ((a) = make_lisp_ptr (b, Lisp_Misc))
#define XSETMARKER(a, b) (XSETMISC (a, b), XMISCTYPE (a) = Lisp_Misc_Marker)
/* Pseudovector types. */