Mercurial > hg > xemacs-beta

comparison lisp/obsolete.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 855b667dea13
children 2fc3f2f35523
comparison
equal deleted inserted replaced
5582:873d7425c1ad 5583:10f179710250
261 (define-compatible-function-alias 'byte-code-function-p 261 (define-compatible-function-alias 'byte-code-function-p
262 'compiled-function-p) ;FSFmacs 262 'compiled-function-p) ;FSFmacs
263 263
264 (define-compatible-function-alias 'interactive-form 264 (define-compatible-function-alias 'interactive-form
265 'function-interactive) ;GNU 21.1 265 'function-interactive) ;GNU 21.1
266 (define-compatible-function-alias 'assq-delete-all 266 (define-function 'assq-delete-all 'remassq) ;GNU 21.1
267 'remassq) ;GNU 21.1 267 (make-compatible 'assq-delete-all "use (delete* ITEM SEQUENCE :key #'car)")
268 268
269 (defun makehash (&optional test) 269 (defun makehash (&optional test)
270 "Create a new hash table. 270 "Create a new hash table.
271 Optional first argument TEST specifies how to compare keys in the table. 271 Optional first argument TEST specifies how to compare keys in the table.
272 Predefined tests are `eq', `eql', and `equal'. Default is `eql'." 272 Predefined tests are `eq', `eql', and `equal'. Default is `eql'."
450 (make-compatible 'memql "use the more full-featured `member*' instead.") 450 (make-compatible 'memql "use the more full-featured `member*' instead.")
451 451
452 (define-obsolete-variable-alias 'cl-macro-environment 452 (define-obsolete-variable-alias 'cl-macro-environment
453 'byte-compile-macro-environment) 453 'byte-compile-macro-environment)
454 454
455 ;; Actual implementations of these functions are in cl-extra.el, after
456 ;; cl-macs is loaded, since those implementations use #'labels and
457 ;; #'symbol-macrolet. These APIs were always XEmacs-specific, were never
458 ;; widely used, and it was always more readable and more compatible to use
459 ;; the CL functions.
460 (make-obsolete 'remassoc "use delete* with :test #'equal, :key #'car")
461 (make-obsolete 'remassq "use delete* with :test #'eq, :key #'car")
462 (make-obsolete 'remrassoc "use delete* with :test #'equal, :key #'cdr")
463 (make-obsolete 'remrassq "use delete* with :test #'eq, :key #'cdr")
464
455 (provide 'obsolete) 465 (provide 'obsolete)
456 ;;; obsolete.el ends here 466 ;;; obsolete.el ends here