From 9af6aa14adbd01c01e3d9ebc75192b6cf950ea13 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 3 Jul 2002 09:17:47 +0000 Subject: (chars-in-region): Add obsolescence declaration for `chars-in-region'. --- lisp/ChangeLog | 7 ++++++- lisp/subr.el | 1 + 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c333a967f6..623a4c17fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-03 Juanma Barranquero + + * subr.el (chars-in-region): Add obsolescence declaration for + `chars-in-region'. + 2002-07-03 Miles Bader * 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 289aaaaf20..94aedd0dce 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. -- cgit v1.2.3