From 623891e5c6643587e7a61dea25aacdc470a4d866 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 25 Nov 2013 10:05:25 -0500 Subject: [PATCH] * lisp/frame.el (handle-focus-in, handle-focus-out): Add missing interactive spec. --- lisp/ChangeLog | 5 +++++ lisp/frame.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * frame.el (handle-focus-in, handle-focus-out): Add missing + interactive spec. + 2013-11-25 Michael Albinus * 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 -- 2.39.2