Mercurial > hg > xemacs

view shared/hackbs.el @ 53:ff32fbf9485c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
--pinentry loopback added to gpg-pub for ecclerig, at least
author Henry S Thompson <ht@inf.ed.ac.uk>
date Wed, 24 Jan 2024 17:57:41 +0000
parents 107d592c5f4a
children
line wrap: on
line source

;;; Last edited: Tue Sep  9 10:22:22 2003
;;; Hack bs vs ctrl-h

(provide 'hackbs)
(defun hack-ctlh (prompt)
  (if (eq (device-or-frame-type (frame-device)) 'tty)
    [(backspace)]
    [(control h)]))

(define-key key-translation-map [(control h)] 'hack-ctlh)