(assoc-ignore-case, assoc-ignore-representation):

Add WHEN to obsolescence declaration.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fc3194de5c746da1dd2c3851cbd29e8a85371e9..5f20270163964085d281cf5c4731169edb01f05a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-10  Juanma Barranquero  <lekktu@gmail.com>
 
+       * subr.el (assoc-ignore-case, assoc-ignore-representation):
+       Add WHEN to obsolescence declaration.
+
        * makefile.w32-in (AUTOGENEL): Add calc-loaddefs.el.
 
 2008-04-10  Dan Nicolaescu  <dann@ics.uci.edu>

diff --git a/lisp/subr.el b/lisp/subr.el
index eee59086419738f2d3288cf097318fda217eb700..17fe146aff64319ffbee9b92805e805e5ec81c85 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -382,14 +382,14 @@ If TEST is omitted or nil, `equal' is used."
       (setq tail (cdr tail)))
     value))
 
-(make-obsolete 'assoc-ignore-case 'assoc-string)
+(make-obsolete 'assoc-ignore-case 'assoc-string "22.1")
 (defun assoc-ignore-case (key alist)
   "Like `assoc', but ignores differences in case and text representation.
 KEY must be a string.  Upper-case and lower-case letters are treated as equal.
 Unibyte strings are converted to multibyte for comparison."
   (assoc-string key alist t))
 
-(make-obsolete 'assoc-ignore-representation 'assoc-string)
+(make-obsolete 'assoc-ignore-representation 'assoc-string "22.1")
 (defun assoc-ignore-representation (key alist)
   "Like `assoc', but ignores differences in text representation.
 KEY must be a string.