Mercurial > hg > xemacs
comparison shared/hackbs.el @ 0:107d592c5f4a
DICE versions, used by pers/common, recursive, I think/hope
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Mon, 08 Feb 2021 11:44:37 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:107d592c5f4a |
|---|---|
| 1 ;;; Last edited: Tue Sep 9 10:22:22 2003 | |
| 2 ;;; Hack bs vs ctrl-h | |
| 3 | |
| 4 (provide 'hackbs) | |
| 5 (defun hack-ctlh (prompt) | |
| 6 (if (eq (device-or-frame-type (frame-device)) 'tty) | |
| 7 [(backspace)] | |
| 8 [(control h)])) | |
| 9 | |
| 10 (define-key key-translation-map [(control h)] 'hack-ctlh) | |
| 11 | |
| 12 |