(chars-in-region): Add obsolescence declaration for `chars-in-region'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c333a967f690be4964bb07dcd35e072eb059a28b..623a4c17fef88128f1b2b0202db2ad9bba0aad72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-03  Juanma Barranquero  <lektu@terra.es>
+
+       * subr.el (chars-in-region): Add obsolescence declaration for
+       `chars-in-region'.
+
 2002-07-03  Miles Bader  <miles@gnu.org>
 
        * faces.el (header-line): Don't use a `common' clause for
@@ -13,7 +18,7 @@
        Check for `eval:' calling fn with `safe-local-eval-function' property.
        (hack-one-local-variable): Use hack-one-local-variable-eval-safep.
        (c-add-style, c-set-style): Add safe-local-eval-function property.
-       
+
        * files.el (insert-directory): Handle --dired option to ls.
 
        * files.el (file-remote-p): New function.

diff --git a/lisp/subr.el b/lisp/subr.el
index 289aaaaf20ee5efd1bd00c47adf6490ba5a9aca2..94aedd0dceb187684922b0c67acca15a5f08e00c 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -700,6 +700,7 @@ as returned by the `event-start' and `event-end' functions."
 (defalias 'sref 'aref)
 (make-obsolete 'sref 'aref "20.4")
 (make-obsolete 'char-bytes "now always returns 1 (maintained for backward compatibility)." "20.4")
+(make-obsolete 'chars-in-region "use (abs (- BEG END))." "20.3")
 
 (defun insert-string (&rest args)
   "Mocklisp-compatibility insert function.