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

diff --git a/etc/NEWS b/etc/NEWS
index e25f4bb70b083300cb8b067d85c92e0ae30295e8..1c81c8329aada0909c74a53a2b8290593a4caf85 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 50044ffc9700f02b5f088f38a90e8738939e277b..c113aeac11b647e76d8e583c81c7d7695d30c3dc 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 0e776cad781966cf1654350e70f36011ddcd522e..9a34aec2549698e669cb9242598b61cfe2842205 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