Mercurial > hg > xemacs-beta

comparison lisp/packages.el @ 5583:10f179710250

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 cc6f0266bc36
comparison
equal deleted inserted replaced
5582:873d7425c1ad 5583:10f179710250
109 (defun package-provide (name &rest attributes) 109 (defun package-provide (name &rest attributes)
110 (let ((info (if (and attributes (floatp (car attributes))) 110 (let ((info (if (and attributes (floatp (car attributes)))
111 (list :version (car attributes)) 111 (list :version (car attributes))
112 attributes))) 112 attributes)))
113 (setq packages-package-list 113 (setq packages-package-list
114 (cons (cons name info) (remassq name packages-package-list))))) 114 (cons (cons name info) (delete* name packages-package-list
115 :test #'eq :key #'car)))))
115 116
116 (defun package-suppress (package file form) 117 (defun package-suppress (package file form)
117 "Set up a package-suppress condition FORM for FILE in PACKAGE. 118 "Set up a package-suppress condition FORM for FILE in PACKAGE.
118 When XEmacs searches for a file in the load path, it will ignore FILE 119 When XEmacs searches for a file in the load path, it will ignore FILE
119 if FORM evaluates to non-nil." 120 if FORM evaluates to non-nil."