* lisp/frame.el (handle-focus-in, handle-focus-out): Add missing

[bpt/emacs.git] / lisp / frame.el

diff --git a/lisp/frame.el b/lisp/frame.el
index 57f9395..a639d89 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -127,6 +127,7 @@ Focus-in events are usually bound to this function.
 Focus-in events occur when a frame has focus, but a switch-frame event
 is not generated.
 This function runs the hook `focus-in-hook'."
+  (interactive "e")
   (run-hooks 'focus-in-hook))
 
 (defun handle-focus-out (_event)
@@ -134,6 +135,7 @@ This function runs the hook `focus-in-hook'."
 Focus-out events are usually bound to this function.
 Focus-out events occur when no frame has focus.
 This function runs the hook `focus-out-hook'."
+  (interactive "e")
   (run-hooks 'focus-out-hook))
 \f
 ;;;; Arrangement of frames at startup