Mercurial > emacs

comparison lisp/startup.el @ 37191:58527e038324

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Use normal-erase-is-backspace and normal-erase-is-backspace-mode.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 04 Apr 2001 14:05:18 +0000
parents aa543a0e2c40
children 43f6d0dc6354
comparison
equal deleted inserted replaced
37190:88ff4aa7aa81 37191:58527e038324
778 ;; <delete> and <backspace> keys. 778 ;; <delete> and <backspace> keys.
779 (when (or (memq system-type '(ms-dos windows-nt)) 779 (when (or (memq system-type '(ms-dos windows-nt))
780 (and (memq window-system '(x)) 780 (and (memq window-system '(x))
781 (fboundp 'x-backspace-delete-keys-p) 781 (fboundp 'x-backspace-delete-keys-p)
782 (x-backspace-delete-keys-p))) 782 (x-backspace-delete-keys-p)))
783 (setq-default delete-key-deletes-forward t) 783 (setq-default normal-erase-is-backspace t)
784 (delete-key-deletes-forward-mode 1))) 784 (normal-erase-is-backspace-mode 1)))
785 785
786 (when (and (not noninteractive) 786 (when (and (not noninteractive)
787 (display-graphic-p) 787 (display-graphic-p)
788 (fboundp 'x-show-tip)) 788 (fboundp 'x-show-tip))
789 (setq-default tooltip-mode t) 789 (setq-default tooltip-mode t)