From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 25 Nov 2013 15:05:25 +0000 (-0500)
Subject: * lisp/frame.el (handle-focus-in, handle-focus-out): Add missing
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~705
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=623891e5c6643587e7a61dea25aacdc470a4d866;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b46af790a1..f52ca143ba7 100644
--- 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 57f9395b935..a639d89fa25 100644
--- 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))
 
 ;;;; Arrangement of frames at startup