From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 16 Jul 2005 21:20:32 +0000 (+0000)
Subject: (def-edebug-form-spec): Add obsolescence info and delete redundant message.  Doc
X-Git-Tag: emacs-pretest-22.0.90~8075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e41acc77b896f6516412c05d9e8822752de9130b;p=emacs.git

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