2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50044ffc970..c113aeac11b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-07-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * faces.el (tty-setup-hook): Declare the hook.
+
         * emacs-lisp/pcase.el (pcase--split-pred): Add `vars' argument to try
         and detect when a guard/pred depends on local vars (bug#14773).
         (pcase--u1): Adjust caller.
diff --git a/lisp/faces.el b/lisp/faces.el
index 0e776cad781..9a34aec2549 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2097,6 +2097,10 @@ the above example."
               nil))))
   type)
 
+(defvar tty-setup-hook nil
+  "Hook run after running the initialization function of a new text terminal.
+This can be used to fine tune the `input-decode-map', for example.")
+
 (defun tty-run-terminal-initialization (frame &optional type)
   "Run the special initialization code for the terminal type of FRAME.
 The optional TYPE parameter may be used to override the autodetected