annotate lisp/term/bobcat.el @ 1557:816bfa185671
* isearch.el (isearch-frames-exist): This isn't what we want -
replaced by...
(isearch-gnu-emacs-events): non-nil if should expect events in the
style generated by GNU Emacs 19. Set if set-frame-height is
fboundp; this is true on any GNU Emacs 19, whether or not it was
compiled with multiple frame support.
(isearch-mode-map): Test isearch-gnu-emacs-events instead of
isearch-frames-exist to see if we should bind switch-frame events.
(isearch-update): Test isearch-gnu-emacs-events instead of
isearch-frames-exist to see if unread-command-char's quiescent
value is nil or -1.
| author |
Jim Blandy <jimb@redhat.com> |
| date |
Sat, 07 Nov 1992 06:17:04 +0000 |
| parents |
9a41f30a5e64 |
| children |
f1f4cab7f621 |
| rev |
line source |
|
479
|
1 ;;; HP terminals usually encourage using ^H as the rubout character
|
|
|
2
|
|
|
3 (let ((the-table (make-string 128 0)))
|
|
|
4 (let ((i 0))
|
|
|
5 (while (< i 128)
|
|
|
6 (aset the-table i i)
|
|
|
7 (setq i (1+ i))))
|
|
|
8 ;; Swap ^H and DEL
|
|
|
9 (aset the-table ?\177 ?\^h)
|
|
|
10 (aset the-table ?\^h ?\177)
|
|
|
11 (setq keyboard-translate-table the-table))
|
