comparison lisp/mule/latin.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 4dee0387b9de
children 7b87bc73f796
comparison
equal deleted inserted replaced
5582:873d7425c1ad 5583:10f179710250
2054 (setq name (create-variant-language-environment "English" coding-system) 2054 (setq name (create-variant-language-environment "English" coding-system)
2055 assocked (assoc name language-info-alist)) 2055 assocked (assoc name language-info-alist))
2056 (setcar assocked 2056 (setcar assocked
2057 (upcase (symbol-name coding-system))) 2057 (upcase (symbol-name coding-system)))
2058 (setcdr assocked 2058 (setcdr assocked
2059 (remassq 'locale (cdr assocked)))) 2059 (delete* 'locale (cdr assocked) :key #'car)))
2060 2060
2061 ;;; latin.el ends here 2061 ;;; latin.el ends here