comparison src/symbols.c @ 5338:8608eadee6ba

Move #'delq, #'delete to Lisp, adding support for sequences. src/ChangeLog addition: 2011-01-11 Aidan Kehoe <kehoea@parhasard.net> * device-msw.c (Fmswindows_printer_list): Remove a Fdelete () call here, remove the necessity for it. * fns.c (Fdelete, Fdelq): * lisp.h: Move #'delete, #'delq to Lisp, implemented in terms of #'delete* * select.c (Fown_selection_internal): * select.c (handle_selection_clear): Use delq_no_quit() in these functions, don't reimplement it or use Fdelq(), which is now gone. lisp/ChangeLog addition: 2011-01-11 Aidan Kehoe <kehoea@parhasard.net> * subr.el (delete, delq, remove, remq): Move #'remove, #'remq here, they don't belong in cl-seq.el; move #'delete, #'delq here from fns.c, implement them in terms of #'delete*, allowing support for sequences generally. * update-elc.el (do-autoload-commands): Use #'delete*, not #'delq here, now the latter's no longer dumped. * cl-macs.el (delete, delq): Add compiler macros transforming #'delete and #'delq to #'delete* calls.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 14 Jan 2011 23:35:29 +0000
parents d804e621add0
children b5561bfd5061 a9094f28f9a9
comparison
equal deleted inserted replaced
5337:906ccc7dcd70 5338:8608eadee6ba
2544 Lisp_Object alist = current_buffer->local_var_alist; 2544 Lisp_Object alist = current_buffer->local_var_alist;
2545 Lisp_Object alist_element 2545 Lisp_Object alist_element
2546 = buffer_local_alist_element (current_buffer, variable, bfwd); 2546 = buffer_local_alist_element (current_buffer, variable, bfwd);
2547 2547
2548 if (!NILP (alist_element)) 2548 if (!NILP (alist_element))
2549 current_buffer->local_var_alist = Fdelq (alist_element, alist); 2549 current_buffer->local_var_alist = delq_no_quit (alist_element,
2550 alist);
2550 2551
2551 /* Make sure symbol does not think it is set up for this buffer; 2552 /* Make sure symbol does not think it is set up for this buffer;
2552 force it to look once again for this buffer's value */ 2553 force it to look once again for this buffer's value */
2553 if (!NILP (bfwd->current_buffer) && 2554 if (!NILP (bfwd->current_buffer) &&
2554 current_buffer == XBUFFER (bfwd->current_buffer)) 2555 current_buffer == XBUFFER (bfwd->current_buffer))