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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c333a967f69..623a4c17fef 100644
--- 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 289aaaaf20e..94aedd0dceb 100644
--- 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.