Mercurial > hg > xemacs

view shared/hackbs.el @ 45:65ea96008fe0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hacked up some stuff to get rid of useless safelinks.outlook... link wrappers, acquired use-text-not-html from mail-extras
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Wed, 20 Dec 2023 17:59:49 +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)