Mercurial > emacs
annotate lisp/term/vt400.el @ 106409:87bc434475d4
Change roles of modes and functions in image-mode.el (Bug#5062).
* image-mode.el: Replace `image-mode-maybe' with `image-mode'
in `auto-mode-alist'.
(image-mode-previous-major-mode): New variable.
(image-minor-mode-map): Rename from `image-mode-text-map'.
(image-mode): Move graceful error-handling code from
`image-minor-mode' to here. On errors call `image-mode-as-text'.
(image-minor-mode): Remove all image-handling code.
Replace `image-mode-text-map' with `image-minor-mode-map'.
Check for `image-type' in mode-line format string.
(image-mode-maybe): Make obsolete with an alias to `image-mode'.
(image-mode-as-text): New function with most code from
`image-mode-maybe'.
(image-toggle-display-text): Move code that removes image
properties from `image-toggle-display' to here.
(image-toggle-display-image): New function with code that adds
image properties copied from `image-toggle-display'.
(image-toggle-display): Remove most code with leaving only code
that toggles between `image-mode-as-text' and `image-mode'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Fri, 04 Dec 2009 21:43:07 +0000 |
parents | 528714e93230 |
children | 4bc33ffdda1a ef719132ddfa |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
38414
diff
changeset
|
1 ;; -*- no-byte-compile: t -*- |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
52401
diff
changeset
|
2 (defun terminal-init-vt400 () |
83353
532e0a9335a9
Merged in changes from CVS trunk. Plus added lisp/term tweaks.
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
3 "Terminal initialization function for vt400." |
83524
673d62ad74b5
Fix and/or simplify terminal initialization files.
Karoly Lorentey <lorentey@elte.hu>
parents:
83394
diff
changeset
|
4 (tty-run-terminal-initialization (selected-frame) "vt100") |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
52401
diff
changeset
|
5 ;; Make F11 an escape key. |
85550
528714e93230
(terminal-init-vtNNN): Use input-decode-map.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83524
diff
changeset
|
6 (define-key input-decode-map "\e[23~" [f11]) ;Probably redundant. |
528714e93230
(terminal-init-vtNNN): Use input-decode-map.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83524
diff
changeset
|
7 (define-key local-function-key-map [f11] [?\e])) |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
25841
diff
changeset
|
8 |
85550
528714e93230
(terminal-init-vtNNN): Use input-decode-map.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
83524
diff
changeset
|
9 ;; arch-tag: a70809c5-6b21-42cc-ba20-536683e5e7d5 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
25841
diff
changeset
|
10 ;;; vt400.el ends here |