(def-edebug-form-spec): Add obsolescence info and delete redundant message. Doc

fix.
(edebug-install-custom-print-funcs, edebug-reset-print-funcs,
edebug-uninstall-custom-print-funcs): Define as obsolete aliases.

2 files changed, 22 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f383206986..68134ce991a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-07-16  Juanma Barranquero  <lekktu@gmail.com>
+
+        * emacs-lisp/bytecomp.el (byte-compile-maybe-guarded):
+        Fix typo in docstring.
+        (byte-compile-interactive-only-functions): Add `insert-buffer' and
+        `insert-file-literally'.
+
+        * emacs-lisp/edebug.el (def-edebug-form-spec): Add obsolescence
+        info and delete redundant message.  Doc fix.
+        (edebug-install-custom-print-funcs, edebug-reset-print-funcs)
+        (edebug-uninstall-custom-print-funcs): Define as obsolete aliases.
+
 2005-07-16  Richard M. Stallman  <rms@gnu.org>
 
         * emacs-lisp/bytecomp.el (byte-compile-and-recursion): New function.
@@ -50,7 +62,7 @@
 
         * mail/uce.el (uce-reply-to-uce): Replace beginning-of-buffer
         and insert-file.
-        
+
         * mail/supercite.el (sc-no-blank-line-or-header): Avoid warning.
         (sc-ask): Avoid warnings.
 
@@ -75,7 +87,7 @@
         * emacs-lisp/checkdoc.el (checkdoc-make-overlay)
         (checkdoc-overlay-put, checkdoc-delete-overlay)
         (checkdoc-overlay-start, checkdoc-overlay-end)
-        (checkdoc-mode-line-update, checkdoc-char=): 
+        (checkdoc-mode-line-update, checkdoc-char=):
         Define such that compiler knows they are defined.
         (checkdoc-call-eval-buffer): Deleted.  Use eval-buffer directly.
         (checkdoc-read-event): Deleted.  Use read-event directly.
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 1a592709819..f80e9f36dd0 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -243,9 +243,9 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
   `(put (quote ,symbol) 'edebug-form-spec (quote ,spec)))
 
 (defmacro def-edebug-form-spec (symbol spec-form)
-  "For compatibility with old version.  Use `def-edebug-spec' instead."
-  (message "Obsolete: use def-edebug-spec instead.")
+  "For compatibility with old version."
   (def-edebug-spec symbol (eval spec-form)))
+(make-obsolete 'def-edebug-form-spec 'def-edebug-spec "22.1")
 
 (defun get-edebug-spec (symbol)
   ;; Get the spec of symbol resolving all indirection.
@@ -3651,9 +3651,12 @@ Return the result of the last expression."
 ;; Replace printing functions.
 
 ;; obsolete names
-(defalias 'edebug-install-custom-print-funcs 'edebug-install-custom-print)
-(defalias 'edebug-reset-print-funcs 'edebug-uninstall-custom-print)
-(defalias 'edebug-uninstall-custom-print-funcs 'edebug-uninstall-custom-print)
+(define-obsolete-function-alias 'edebug-install-custom-print-funcs
+    'edebug-install-custom-print "22.1")
+(define-obsolete-function-alias 'edebug-reset-print-funcs
+    'edebug-uninstall-custom-print "22.1")
+(define-obsolete-function-alias 'edebug-uninstall-custom-print-funcs
+    'edebug-uninstall-custom-print "22.1")
 
 (defun edebug-install-custom-print ()
   "Replace print functions used by Edebug with custom versions."