emacs_kill_doc - no pointp

Signed-off-by: NeilBrown <neil@brown.name>

diff --git a/mode-emacs.c b/mode-emacs.c
index 3178d5d93ee228a3eaf52109d9406807dae779bd..3e7481ddaa10cbb1c187743501fc4fe73dbc5d00 100644 (file)
--- a/mode-emacs.c
+++ b/mode-emacs.c
@@ -538,11 +538,11 @@ DEF_CMD(emacs_num)
 
 DEF_CMD(emacs_kill_doc)
 {
-       struct doc *d;
-       if (!ci->pointp)
-               return 0;
-       d = (*ci->pointp)->doc;
-       doc_destroy(d);
+       struct pane *p = doc_get_pane(ci->home);
+       struct doc *d = p ? p->data : NULL;
+
+       if (d)
+               doc_destroy(d);
        return 1;
 }