annotate lisp/term/vt240.el @ 57191:bd5d1158ebcf

(ido-choice-list): New dynamic var for `list' context. (ido-context-switch-command): New dynamic var. (ido-define-mode-map): Generalize switch between file/buffer contexts. (ido-read-internal): Handle new `list' context. Handle insert-buffer and insert-file ido-exit values. (ido-buffer-internal): New arg switch-cmd. Use it to setup ido-context-switch-command. Handle insert-file ido-exit value. (ido-read-buffer): Set ido-context-switch-command to 'ignore unless it is already bound by caller. (ido-file-internal): New arg switch-cmd. Use it to setup ido-context-switch-command. Handle insert-buffer ido-exit value. (ido-enter-insert-buffer, ido-enter-insert-file): New commands used for context switching. (ido-all-completions): Handle new `list' context. (ido-make-choice-list): Return choices for `list' context. (ido-find-file-in-dir, ido-display-file, ido-write-file) (ido-display-buffer, ido-kill-buffer): Disable context switching. (ido-insert-buffer, ido-insert-file): Setup context switching. (ido-exhibit): Handle `list' context. (ido-read-file-name): Disable context switching. Handle fallback. (ido-read-directory-name): Disable context switching. (ido-completing-read): New defun like completing-read. Setup and use new `list' context.
author Kim F. Storm <storm@cua.dk>
date Wed, 22 Sep 2004 22:49:07 +0000
parents 695cf19ef79e
children af1c58687bdd 7372c2f9daac 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 -*-
3807
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
2 ;; For our purposes we can treat the vt200 and vt100 almost alike.
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
3 ;; Most differences are handled by the termcap entry.
3290
1064f75f0d34 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 (load "term/vt100" nil t)
3807
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
5
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
6 ;; Make F11 an escape key.
8ba66a564213 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 3290
diff changeset
7 (define-key function-key-map "\e[23~" [?\e])
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 3807
diff changeset
8
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 47726
diff changeset
9 ;;; arch-tag: d9f88e9c-02dc-49ff-871c-a415f08e4eb7
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 3807
diff changeset
10 ;;; vt240.el ends here