aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2014-02-25 00:41:47 -0800
committerGlenn Morris2014-02-25 00:41:47 -0800
commit98bd6b321c3efbb5d7c5d3c0dbbcecbccf5fda3f (patch)
tree360d2816c6a875d5920a1f26c01cc4de437c38b1 /lisp
parenta038bd8769ec54ecf7d7241ccef8decc0dc712b5 (diff)
downloademacs-98bd6b321c3efbb5d7c5d3c0dbbcecbccf5fda3f.tar.gz
emacs-98bd6b321c3efbb5d7c5d3c0dbbcecbccf5fda3f.zip
Doc updates related to tty-setup-hook
* doc/emacs/custom.texi (Terminal Init): Replace term-setup-hook with tty-setup-hook. * doc/lispref/display.texi (Window Systems): * doc/lispref/hooks.texi (Standard Hooks): Replace term-setup-hook with tty-setup-hook. * doc/lispref/os.texi (Startup Summary, Init File, Terminal-Specific): Replace term-setup-hook with tty-setup-hook, and update. * doc/misc/edt.texi (Quick start, Starting emulation): * doc/misc/efaq.texi (Fullscreen mode on MS-Windows) (Terminal setup code works after Emacs has begun): Update hook details. * doc/misc/vip.texi (Loading VIP): Fix hook example. * lisp/faces.el (tty-setup-hook, tty-run-terminal-initialization): Doc fixes. * lisp/startup.el (term-setup-hook): Doc fix. Make obsolete. * lisp/emulation/edt.el: Comment update. * lisp/term/sun.el (sun-raw-prefix-hooks): Use tty-setup-hook instead of term-setup-hook. (terminal-init-sun): Construct message from bytecomp plist. * lisp/term/wyse50.el (enable-arrow-keys): Doc fix. * etc/refcards/vipcard.tex: Hook fix. * etc/NEWS: Related edit.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/emulation/edt.el5
-rw-r--r--lisp/faces.el6
-rw-r--r--lisp/startup.el16
-rw-r--r--lisp/term/sun.el7
-rw-r--r--lisp/term/wyse50.el5
6 files changed, 33 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69434453c85..67256c588e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
12014-02-25 Glenn Morris <rgm@gnu.org>
2
3 * faces.el (tty-setup-hook, tty-run-terminal-initialization): Doc fixes.
4 * startup.el (term-setup-hook): Doc fix. Make obsolete.
5 * term/sun.el (sun-raw-prefix-hooks):
6 Use tty-setup-hook instead of term-setup-hook.
7 (terminal-init-sun): Construct message from bytecomp plist.
8 * term/wyse50.el (enable-arrow-keys): Doc fix.
9
12014-02-24 Juanma Barranquero <lekktu@gmail.com> 102014-02-24 Juanma Barranquero <lekktu@gmail.com>
2 11
3 * term/sun.el (kill-region-and-unmark, sun-raw-prefix-hooks): 12 * term/sun.el (kill-region-and-unmark, sun-raw-prefix-hooks):
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 57185053932..a32fb612adb 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1,7 +1,6 @@
1;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 1;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs
2 2
3;; Copyright (C) 1986, 1992-1995, 2000-2014 Free Software Foundation, 3;; Copyright (C) 1986, 1992-1995, 2000-2014 Free Software Foundation, Inc.
4;; Inc.
5 4
6;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> 5;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com>
7;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> 6;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com>
@@ -51,7 +50,7 @@
51;; you initiate a GNU Emacs session, by adding the following line to 50;; you initiate a GNU Emacs session, by adding the following line to
52;; your init file: 51;; your init file:
53;; 52;;
54;; (add-hook term-setup-hook 'edt-emulation-on) 53;; (add-hook 'emacs-startup-hook 'edt-emulation-on)
55 54
56;; IMPORTANT: Be sure to read the Info node `edt' for more details. 55;; IMPORTANT: Be sure to read the Info node `edt' for more details.
57;; It contains very helpful user information. 56;; It contains very helpful user information.
diff --git a/lisp/faces.el b/lisp/faces.el
index 3394c721f04..985355ade09 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2107,12 +2107,16 @@ the above example."
2107 2107
2108(defvar tty-setup-hook nil 2108(defvar tty-setup-hook nil
2109 "Hook run after running the initialization function of a new text terminal. 2109 "Hook run after running the initialization function of a new text terminal.
2110Specifically, `tty-run-terminal-initialization' runs this.
2110This can be used to fine tune the `input-decode-map', for example.") 2111This can be used to fine tune the `input-decode-map', for example.")
2111 2112
2112(defun tty-run-terminal-initialization (frame &optional type) 2113(defun tty-run-terminal-initialization (frame &optional type)
2113 "Run the special initialization code for the terminal type of FRAME. 2114 "Run the special initialization code for the terminal type of FRAME.
2114The optional TYPE parameter may be used to override the autodetected 2115The optional TYPE parameter may be used to override the autodetected
2115terminal type to a different value." 2116terminal type to a different value. As a final step, this runs the
2117hook `tty-setup-hook'.
2118
2119If you set `term-file-prefix' to nil, this function does nothing."
2116 (setq type (or type (tty-type frame))) 2120 (setq type (or type (tty-type frame)))
2117 ;; Load library for our terminal type. 2121 ;; Load library for our terminal type.
2118 ;; User init file can set term-file-prefix to nil to prevent this. 2122 ;; User init file can set term-file-prefix to nil to prevent this.
diff --git a/lisp/startup.el b/lisp/startup.el
index b3f2316729b..9c9f23ba9a6 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1,7 +1,6 @@
1;;; startup.el --- process Emacs shell arguments -*- lexical-binding: t -*- 1;;; startup.el --- process Emacs shell arguments -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1985-1986, 1992, 1994-2014 Free Software Foundation, 3;; Copyright (C) 1985-1986, 1992, 1994-2014 Free Software Foundation, Inc.
4;; Inc.
5 4
6;; Maintainer: emacs-devel@gnu.org 5;; Maintainer: emacs-devel@gnu.org
7;; Keywords: internal 6;; Keywords: internal
@@ -282,10 +281,15 @@ these functions will invoke the debugger.")
282 "Normal hook run after loading init files and handling the command line.") 281 "Normal hook run after loading init files and handling the command line.")
283 282
284(defvar term-setup-hook nil 283(defvar term-setup-hook nil
285 "Normal hook run after loading terminal-specific Lisp code. 284 "Normal hook run immediately after `emacs-startup-hook'.
286It also follows `emacs-startup-hook'. This hook exists for users to set, 285In new code, there is no reason to use this instead of `emacs-startup-hook'.
287so as to override the definitions made by the terminal-specific file. 286If you want to execute terminal-specific Lisp code, for example
288Emacs never sets this variable itself.") 287to override the definitions made by the terminal-specific file,
288see `tty-setup-hook'.")
289
290(make-obsolete-variable 'term-setup-hook
291 "use either `emacs-startup-hook' or \
292`tty-setup-hook' instead." "24.4")
289 293
290(defvar inhibit-startup-hooks nil 294(defvar inhibit-startup-hooks nil
291 "Non-nil means don't run `term-setup-hook' and `emacs-startup-hook'. 295 "Non-nil means don't run `term-setup-hook' and `emacs-startup-hook'.
diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index c2a913ad345..b3af959c30e 100644
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -123,7 +123,8 @@
123 123
124(defvar sun-raw-prefix-hooks nil 124(defvar sun-raw-prefix-hooks nil
125 "List of forms to evaluate after setting `sun-raw-prefix'.") 125 "List of forms to evaluate after setting `sun-raw-prefix'.")
126(make-obsolete-variable 'sun-raw-prefix-hooks 'term-setup-hook "21.1") 126;; Obsolete since 21.1, but tty-setup-hook only exists since 24.4.
127(make-obsolete-variable 'sun-raw-prefix-hooks 'tty-setup-hook "21.1")
127 128
128 129
129 130
@@ -149,7 +150,9 @@
149 (global-set-key [f7] 'enlarge-window) 150 (global-set-key [f7] 'enlarge-window)
150 151
151 (when sun-raw-prefix-hooks 152 (when sun-raw-prefix-hooks
152 (message "sun-raw-prefix-hooks is obsolete! Use term-setup-hook instead!") 153 (message "sun-raw-prefix-hooks is obsolete! Use %s instead!"
154 (or (car-safe (get 'sun-raw-prefix-hooks 'byte-obsolete-variable))
155 "emacs-startup-hook"))
153 (let ((hooks sun-raw-prefix-hooks)) 156 (let ((hooks sun-raw-prefix-hooks))
154 (while hooks 157 (while hooks
155 (eval (car hooks)) 158 (eval (car hooks))
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el
index a894801f985..aa9ba43d3d7 100644
--- a/lisp/term/wyse50.el
+++ b/lisp/term/wyse50.el
@@ -1,7 +1,6 @@
1;;; wyse50.el --- terminal support code for Wyse 50 1;;; wyse50.el --- terminal support code for Wyse 50
2 2
3;; Copyright (C) 1989, 1993-1994, 2001-2014 Free Software Foundation, 3;; Copyright (C) 1989, 1993-1994, 2001-2014 Free Software Foundation, Inc.
4;; Inc.
5 4
6;; Author: Daniel Pfeiffer <occitan@esperanto.org>, 5;; Author: Daniel Pfeiffer <occitan@esperanto.org>,
7;; Jim Blandy <jimb@occs.cs.oberlin.edu> 6;; Jim Blandy <jimb@occs.cs.oberlin.edu>
@@ -132,7 +131,7 @@
132 (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))) 131 (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))))
133 132
134(defun enable-arrow-keys () 133(defun enable-arrow-keys ()
135 "To be called by `term-setup-hook'. Overrides 6 Emacs standard keys 134 "To be called by `tty-setup-hook'. Overrides 6 Emacs standard keys
136whose functions are then typed as follows: 135whose functions are then typed as follows:
137C-a Funct Left-arrow 136C-a Funct Left-arrow
138C-h M-? 137C-h M-?