diff lisp/mule/general-late.el @ 5583:10f179710250

Deprecate #'remassoc, #'remassq, #'remrassoc, #'remrassq. src/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * fns.c (remassoc_no_quit): * fns.c (remrassq_no_quit): * fns.c (syms_of_fns): * fontcolor-tty.c (Fregister_tty_color): * fontcolor-tty.c (Funregister_tty_color): * fontcolor-tty.c (Ffind_tty_color): * lisp.h: Remove Fremassq, Fremrassq, Fremassoc, Fremrassoc, they're XEmacs-specific functions and Lisp callers should use (delete* ... :key #'car) anyway. Keep the non-Lisp-visible _no_quit versions, calling FdeleteX from C with the appropriate arguments is ungainly. lisp/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * obsolete.el: * obsolete.el (assq-delete-all): * packages.el (package-provide): * packages.el (package-suppress): * mule/cyrillic.el ("Cyrillic-KOI8"): * mule/cyrillic.el (koi8-u): * mule/general-late.el (posix-charset-to-coding-system-hash): * mule/latin.el: * mule/latin.el (for): * cl-extra.el: * cl-extra.el (cl-extra): * loadup.el (load-history): Change any uses of #'remassq, #'remassoc and friends to calling #'delete* with an appropriate key argument. Provide compatibility implementations, mark them obsolete. man/ChangeLog addition: 2011-10-09 Aidan Kehoe <kehoea@parhasard.net> * lispref/lists.texi (Association Lists): Don't document #'remassoc, #'remassq and friends in detail; they're XEmacs-specific and (delete* ... :key #'car) is preferable.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 09 Oct 2011 12:55:51 +0100
parents 308d34e9f07d
children
line wrap: on
line diff
--- a/lisp/mule/general-late.el	Sun Oct 09 10:39:09 2011 +0100
+++ b/lisp/mule/general-late.el	Sun Oct 09 12:55:51 2011 +0100
@@ -46,13 +46,13 @@
       ;; fraction faster for those languages.
       language-info-alist
       (cons (assoc "Japanese" language-info-alist)
-	    (remassoc "Japanese" language-info-alist))
+	    (delete* "Japanese" language-info-alist :test #'equal :key #'car))
       language-info-alist 
       (cons (assoc "German" language-info-alist)
-	    (remassoc "German" language-info-alist))
+	    (delete* "German" language-info-alist :test #'equal :key #'car))
       language-info-alist
       (cons (assoc "English" language-info-alist)
-	    (remassoc "English" language-info-alist))
+	    (delete* "English" language-info-alist :test #'equal :key #'car))
 
       ;; Make Installation-string actually reflect the environment at
       ;; byte-compile time. (We can't necessarily decode it when version.el