diff options
| author | Eli Zaretskii | 2000-12-14 16:51:52 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-12-14 16:51:52 +0000 |
| commit | 13a9eed7d93238fb954273ce10f847571016e73c (patch) | |
| tree | 4ba97abd20e027a507d3071beb990577a2845c1a | |
| parent | 9ded625dddb36ce149d30cfd25e220c934aac56f (diff) | |
| download | emacs-13a9eed7d93238fb954273ce10f847571016e73c.tar.gz emacs-13a9eed7d93238fb954273ce10f847571016e73c.zip | |
(delete-key-deletes-forward-mode): Treat ms-dos and
windows-nt as windowed environments, even under -nw.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ed642184d8f..b145a4a0f92 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -4050,7 +4050,8 @@ For more details, see `delete-key-deleted-forward'." | |||
| 4050 | (> (prefix-numeric-value arg) 0) | 4050 | (> (prefix-numeric-value arg) 0) |
| 4051 | (not delete-key-deletes-forward))) | 4051 | (not delete-key-deletes-forward))) |
| 4052 | 4052 | ||
| 4053 | (cond ((memq window-system '(x w32 mac)) | 4053 | (cond ((or (memq window-system '(x w32 mac pc)) |
| 4054 | (memq system-type '(ms-dos windows-nt))) | ||
| 4054 | (if delete-key-deletes-forward | 4055 | (if delete-key-deletes-forward |
| 4055 | (progn | 4056 | (progn |
| 4056 | (define-key global-map [delete] 'delete-char) | 4057 | (define-key global-map [delete] 'delete-char) |