Mercurial > hg > xemacs-beta
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)) |