Mercurial > emacs
changeset 64406:3b29f20942e2
(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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sat, 16 Jul 2005 21:18:55 +0000 |
| parents | 9fcfa0b883d4 |
| children | 984137a0c967 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el Sat Jul 16 21:17:10 2005 +0000 +++ b/lisp/emacs-lisp/edebug.el Sat Jul 16 21:18:55 2005 +0000 @@ -243,9 +243,9 @@ `(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 @@ ;; 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."