Mercurial > emacs

comparison src/editfns.c @ 25662:0a7261c1d487

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 13 Sep 1999 02:23:04 +0000
parents b278da3accef
children 8f59abd3a02b
comparison
equal deleted inserted replaced
25661:a6e2ae7964fb 25662:0a7261c1d487
2286 register struct buffer *buf; 2286 register struct buffer *buf;
2287 register int newhead, newtail; 2287 register int newhead, newtail;
2288 register Lisp_Object tem; 2288 register Lisp_Object tem;
2289 int obegv, ozv; 2289 int obegv, ozv;
2290 2290
2291 buf = XBUFFER (XCONS (data)->car); 2291 buf = XBUFFER (XCAR (data));
2292 2292
2293 data = XCONS (data)->cdr; 2293 data = XCDR (data);
2294 2294
2295 tem = XCONS (data)->car; 2295 tem = XCAR (data);
2296 newhead = XINT (tem); 2296 newhead = XINT (tem);
2297 tem = XCONS (data)->cdr; 2297 tem = XCDR (data);
2298 newtail = XINT (tem); 2298 newtail = XINT (tem);
2299 if (newhead + newtail > BUF_Z (buf) - BUF_BEG (buf)) 2299 if (newhead + newtail > BUF_Z (buf) - BUF_BEG (buf))
2300 { 2300 {
2301 newhead = 0; 2301 newhead = 0;
2302 newtail = 0; 2302 newtail = 0;
2759 this_format[format - this_format_start] = 0; 2759 this_format[format - this_format_start] = 0;
2760 2760
2761 if (INTEGERP (args[n])) 2761 if (INTEGERP (args[n]))
2762 sprintf (p, this_format, XINT (args[n])); 2762 sprintf (p, this_format, XINT (args[n]));
2763 else 2763 else
2764 sprintf (p, this_format, XFLOAT (args[n])->data); 2764 sprintf (p, this_format, XFLOAT_DATA (args[n]));
2765 2765
2766 if (p > buf 2766 if (p > buf
2767 && multibyte 2767 && multibyte
2768 && !ASCII_BYTE_P (*((unsigned char *) p - 1)) 2768 && !ASCII_BYTE_P (*((unsigned char *) p - 1))
2769 && !CHAR_HEAD_P (*((unsigned char *) p))) 2769 && !CHAR_HEAD_P (*((unsigned char *) p)))