(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f383206986597cc3eb56ea9779bc844b96da67e..68134ce991abba8564d257563741679d99b0b75e 100644 (file)
--- 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 1a592709819de18ec047801751ea508a5e7f4233..f80e9f36dd054f2fc4c140f24cee48770eb1f3aa 100644 (file)
--- 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."