(delete-frame-hook): Variable alias for

`delete-frame-functions'.  Mark obsolete.

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dad64927569..ae0deed1294 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-03  John Paul Wallington  <jpw@shootybangbang.com>
+
+        * frame.el (delete-frame-hook): Variable alias for
+        `delete-frame-functions'.  Mark obsolete.
+
 2002-10-02  Stefan Monnier  <monnier@cs.yale.edu>
 
         * textmodes/outline.el (outline-1, outline-2, outline-3, outline-4)
diff --git a/lisp/frame.el b/lisp/frame.el
index 6969c14b855..3fac3b28490 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1113,6 +1113,10 @@ left untouched.  FRAME nil or omitted means use the selected frame."
 (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
 (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
 
+;; miscellaneous obsolescence declarations
+(defvaralias 'delete-frame-hook 'delete-frame-functions)
+(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4")
+
 
 ;; Highlighting trailing whitespace.