view lisp/term/bobcat.el @ 1615:21e2defc55c0

* lpr.el (lpr-command, lpr-switches): Removed strings starting with \newline; this file is loaded in loaddefs.el, and doesn't need to follow that convention. * lpr.el (lpr-command): Add dgux-unix to the list of systems which want "lp".

;;; HP terminals usually encourage using ^H as the rubout character

(let ((the-table (make-string 128 0)))
  (let ((i 0))
    (while (< i 128)
      (aset the-table i i)
      (setq i (1+ i))))
  ;; Swap ^H and DEL
  (aset the-table ?\177 ?\^h)
  (aset the-table ?\^h ?\177)
  (setq keyboard-translate-table the-table))