[Emacs-diffs] trunk r115226: * lisp/frame.el (handle-focus-in, handle-focus-out): Add missing

[Stefan Monnier]

------------------------------------------------------------
revno: 115226
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-25 10:05:25 -0500
message:
  * lisp/frame.el (handle-focus-in, handle-focus-out): Add missing
  interactive spec.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/frame.el                  frame.el-20091113204419-o5vbwnq5f7feedwu-275

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-25 14:51:34 +0000
+++ b/lisp/ChangeLog    2013-11-25 15:05:25 +0000
@@ -1,3 +1,8 @@
+2013-11-25  Stefan Monnier  <address@hidden>
+
+       * frame.el (handle-focus-in, handle-focus-out): Add missing
+       interactive spec.
+
 2013-11-25  Michael Albinus  <address@hidden>
 
        * net/tramp-cmds.el (tramp-cleanup-connection): Clean up

=== modified file 'lisp/frame.el'
--- a/lisp/frame.el     2013-11-25 02:41:02 +0000
+++ b/lisp/frame.el     2013-11-25 15:05:25 +0000
@@ -127,6 +127,7 @@
 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 @@
 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