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

interactive spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b46af790a123d2af0103f690dbee2a9cd6e1022..f52ca143ba7983edcfdd49281c0bae09beddfe70 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-25  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * frame.el (handle-focus-in, handle-focus-out): Add missing
+       interactive spec.
+
 2013-11-25  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-cmds.el (tramp-cleanup-connection): Clean up

diff --git a/lisp/frame.el b/lisp/frame.el
index 57f9395b9352fa6a07c203dc680183d8213b0211..a639d89fa259be39dbe44fcdebf2c152b4adf5d6 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