* lisp/faces.el (tty-setup-hook): Declare the hook.

3 files changed, 8 insertions, 0 deletions

diff --git a/etc/NEWS b/etc/NEWS
index e25f4bb70b0..1c81c8329aa 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -540,6 +540,8 @@ file using `set-file-extended-attributes'.
 
 * Lisp Changes in Emacs 24.4
 
+** New hook `tty-setup-hook'.
+
 +++
 ** New macro with-eval-after-load.  Like eval-after-load, but better behaved.
 
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