(Fdelete_frame): Call Fdelete_terminal.

2 files changed, 8 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ee321261a10..da46657e2f6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * frame.c (Fdelete_frame): Call Fdelete_terminal.
+
 2008-02-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * buffer.c (clone_per_buffer_values, reset_buffer_local_variables)
diff --git a/src/frame.c b/src/frame.c
index 2ca30eb5c42..b163be53f77 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1538,11 +1538,11 @@ But FORCE inhibits this too.  */)
     terminal->reference_count--;
     if (terminal->reference_count == 0)
       {
+        Lisp_Object tmp;
+        XSETTERMINAL (tmp, terminal);
+
         kb = NULL;
-        if (terminal->delete_terminal_hook)
-          (*terminal->delete_terminal_hook) (terminal);
-        else
-          delete_terminal (terminal);
+        Fdelete_terminal (tmp, NILP (force) ? Qt : force);
       }
 #ifdef MULTI_KBOARD
     else