mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(command-line): Call delete-key-deletes-forward-mode,

Browse Source 
if appropriate.
This commit is contained in:
Gerd Moellmann 2000-12-14 13:36:34 +00:00
parent 02387dcc1f
commit 14f076a8ce
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@ -767,6 +767,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(setq-default blink-cursor t)
(blink-cursor-mode 1))
(when (and (not noninteractive)
(not (eq system-type 'ms-dos))
(memq window-system '(x)))
(setq-default delete-key-deletes-forward (x-backspace-delete-keys-p))
(delete-key-deletes-forward-mode 1))
(when (and (not noninteractive)
(display-graphic-p)
(fboundp 'x-show-tip))