Mercurial > emacs
annotate lisp/term/linux.el @ 28092:ce3bf4da00a9
(vga_installed): New function, code moved from
dos_set_window_size.
(Qbar, Qcursor_type, outside_cursor): New variables.
(syms_of_msdos): Intern and staticpro them.
(dos_ttraw) [__DJGPP__ >= 2, !HAVE_X_WINDOWS]: Save the cursor
shape used outside Emacs when called for the first time.
(dos_ttcooked) [__DJGPP__ >= 2, !HAVE_X_WINDOWS]: Restore the
cursor shape used outside Emacs.
(msdos_set_cursor_shape, IT_set_cursor_type): New functions.
(IT_frame_up_to_date): Call IT_set_cursor_type, in case the cursor
type has changed.
(IT_set_frame_parameters): Call IT_set_cursor_type if the frame
parameters specify the cursor. Make qreverse a global
variable (renamed to Qreverse).
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 12 Mar 2000 12:32:17 +0000 |
| parents | 2253ec0e71ca |
| children | 67b464da13ec |
| rev | line source |
|---|---|
| 18616 | 1 ;; The Linux console handles Latin-1 by default. |
| 2 | |
|
20469
2253ec0e71ca
Don't call set-terminal-coding-system
Karl Heuer <kwzh@gnu.org>
parents:
20260
diff
changeset
|
3 (unless (terminal-coding-system) |
|
2253ec0e71ca
Don't call set-terminal-coding-system
Karl Heuer <kwzh@gnu.org>
parents:
20260
diff
changeset
|
4 (set-terminal-coding-system 'iso-latin-1)) |
|
20260
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
5 |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
6 ;; Make Latin-1 input characters work, too. |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
7 ;; Meta will continue to work, because the kernel |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
8 ;; turns that into Escape. |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
9 |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
10 (let ((value (current-input-mode))) |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
11 ;; The third arg only matters in that it is not t or nil. |
|
0d9e271f24ee
Use set-input-mode to make Latin-1 chars work.
Karl Heuer <kwzh@gnu.org>
parents:
18616
diff
changeset
|
12 (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value))) |
