Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 5277:d804e621add0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Simplify the API of PARSE_KEYWORDS for callers. src/ChangeLog addition: 2010-09-18 Aidan Kehoe <kehoea@parhasard.net> Simplify the API of PARSE_KEYWORDS for callers. * lisp.h (PARSE_KEYWORDS): Simply the API, while making the implementation a little more complex; work out KEYWORDS_OFFSET from the appropriate Lisp_Subr struct, take the function name as the C name of the DEFUN rather than a symbol visible as a Lisp_Object, on debug builds assert that we're actually in the function so we choke on badly-done copy-and-pasting, * lisp.h (PARSE_KEYWORDS_8): New. This is the old PARSE_KEYWORDS. * fns.c (Fmerge, FsortX, Ffill, Freduce, Freplace): Change to use the new PARSE_KEYWORDS syntax. * elhash.c (Fmake_hash_table): Chance to the new PARSE_KEYWORDS syntax, rename a define to correspond to what other files use. * symbols.c (intern_massaging_name): * buffer.c (ADD_INT): Rename intern_converting_underscores_to_dashes() to intern_massaging_name(), now it does a little more.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 18 Sep 2010 15:57:20 +0100
parents 0b4d355771bd
children 3889ef128488 308d34e9f07d
comparison
equal deleted inserted replaced
5276:dd2976af8783 5277:d804e621add0
1817 CHECK_BUFFER (buffer); /* dead buffers should be allowed, no? */ 1817 CHECK_BUFFER (buffer); /* dead buffers should be allowed, no? */
1818 b = XBUFFER (buffer); 1818 b = XBUFFER (buffer);
1819 1819
1820 #define ADD_INT(field) \ 1820 #define ADD_INT(field) \
1821 plist = cons3 (make_int (b->text->field), \ 1821 plist = cons3 (make_int (b->text->field), \
1822 intern_converting_underscores_to_dashes (#field), plist) 1822 intern_massaging_name (#field), plist)
1823 #define ADD_BOOL(field) \ 1823 #define ADD_BOOL(field) \
1824 plist = cons3 (b->text->field ? Qt : Qnil, \ 1824 plist = cons3 (b->text->field ? Qt : Qnil, \
1825 intern_converting_underscores_to_dashes (#field), plist) 1825 intern_massaging_name (#field), plist)
1826 ADD_INT (bufz); 1826 ADD_INT (bufz);
1827 ADD_INT (z); 1827 ADD_INT (z);
1828 #ifdef OLD_BYTE_CHAR 1828 #ifdef OLD_BYTE_CHAR
1829 ADD_INT (mule_bufmin); 1829 ADD_INT (mule_bufmin);
1830 ADD_INT (mule_bufmax); 1830 ADD_INT (mule_bufmax);