diff --git a/lisp/net/dig.el b/lisp/net/dig.el
index f7f1500454a..81ddade1091 100644
--- a/lisp/net/dig.el
+++ b/lisp/net/dig.el
@@ -132,7 +132,7 @@ Buffer should contain output generated by `dig-invoke'."
 
 (defun dig-exit ()
   "Quit dig output buffer."
-  (interactive)
+  (interactive nil dig-mode)
   (quit-window t))
 
 ;;;###autoload