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

diff --git a/etc/NEWS b/etc/NEWS
index e25f4bb..1c81c83 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -540,6 +540,8 @@ file using `set-file-extended-attributes'.
 \f
 * 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 50044ff..c113aea 100644 (file)
--- 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 0e776ca..9a34aec 100644 (file)
--- 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