Mercurial > emacs

comparison src/minibuf.c @ 26164:d39ec0a27081

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 25 Oct 1999 04:58:18 +0000
parents 2a7f35e0072b
children d3926d907840
comparison
equal deleted inserted replaced
26163:99c35bcce8c0 26164:d39ec0a27081
358 { 358 {
359 Lisp_Object buf_list; 359 Lisp_Object buf_list;
360 360
361 for (buf_list = Vbuffer_alist; 361 for (buf_list = Vbuffer_alist;
362 CONSP (buf_list); 362 CONSP (buf_list);
363 buf_list = XCONS (buf_list)->cdr) 363 buf_list = XCDR (buf_list))
364 { 364 {
365 Lisp_Object other_buf; 365 Lisp_Object other_buf;
366 366
367 other_buf = XCONS (XCONS (buf_list)->car)->cdr; 367 other_buf = XCDR (XCAR (buf_list));
368 if (STRINGP (XBUFFER (other_buf)->directory)) 368 if (STRINGP (XBUFFER (other_buf)->directory))
369 { 369 {
370 current_buffer->directory = XBUFFER (other_buf)->directory; 370 current_buffer->directory = XBUFFER (other_buf)->directory;
371 break; 371 break;
372 } 372 }
563 563
564 /* Although the buffer's name starts with a space, undo should be 564 /* Although the buffer's name starts with a space, undo should be
565 enabled in it. */ 565 enabled in it. */
566 Fbuffer_enable_undo (buf); 566 Fbuffer_enable_undo (buf);
567 567
568 XCONS (tail)->car = buf; 568 XCAR (tail) = buf;
569 } 569 }
570 else 570 else
571 { 571 {
572 int count = specpdl_ptr - specpdl; 572 int count = specpdl_ptr - specpdl;
573 573
1024 Lisp_Object zero; 1024 Lisp_Object zero;
1025 XSETFASTINT (zero, 0); 1025 XSETFASTINT (zero, 0);
1026 1026
1027 /* Ignore this element if it fails to match all the regexps. */ 1027 /* Ignore this element if it fails to match all the regexps. */
1028 for (regexps = Vcompletion_regexp_list; CONSP (regexps); 1028 for (regexps = Vcompletion_regexp_list; CONSP (regexps);
1029 regexps = XCONS (regexps)->cdr) 1029 regexps = XCDR (regexps))
1030 { 1030 {
1031 tem = Fstring_match (XCONS (regexps)->car, eltstring, zero); 1031 tem = Fstring_match (XCAR (regexps), eltstring, zero);
1032 if (NILP (tem)) 1032 if (NILP (tem))
1033 break; 1033 break;
1034 } 1034 }
1035 if (CONSP (regexps)) 1035 if (CONSP (regexps))
1036 continue; 1036 continue;
1278 Lisp_Object zero; 1278 Lisp_Object zero;
1279 XSETFASTINT (zero, 0); 1279 XSETFASTINT (zero, 0);
1280 1280
1281 /* Ignore this element if it fails to match all the regexps. */ 1281 /* Ignore this element if it fails to match all the regexps. */
1282 for (regexps = Vcompletion_regexp_list; CONSP (regexps); 1282 for (regexps = Vcompletion_regexp_list; CONSP (regexps);
1283 regexps = XCONS (regexps)->cdr) 1283 regexps = XCDR (regexps))
1284 { 1284 {
1285 tem = Fstring_match (XCONS (regexps)->car, eltstring, zero); 1285 tem = Fstring_match (XCAR (regexps), eltstring, zero);
1286 if (NILP (tem)) 1286 if (NILP (tem))
1287 break; 1287 break;
1288 } 1288 }
1289 if (CONSP (regexps)) 1289 if (CONSP (regexps))
1290 continue; 1290 continue;