mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(pc-selection-mode): Don't turn on

Browse Source 
normal-erase-is-backspace on a tty.  Instead, bind some keys such
as [delete] directly, like pc-select.el did before
normal-erase-is-backspace was invented.
This commit is contained in:
Eli Zaretskii 2001-04-13 11:13:23 +00:00
parent 961e239462
commit 5d5e7f5328
2 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2001-04-13 Eli Zaretskii <eliz@is.elta.co.il>
* emulation/pc-select.el (pc-selection-mode): Don't turn on
normal-erase-is-backspace on a tty. Instead, bind some keys such
as [delete] directly, like pc-select.el did before
normal-erase-is-backspace was invented.
2001-04-11 Eli Zaretskii <eliz@is.elta.co.il>
* ls-lisp.el (ls-lisp-format): Leave a blank before "root".

19
lisp/emulation/pc-select.el
View File

@ -728,9 +728,22 @@ but before calling pc-selection-mode):
(or pc-select-selection-keys-only
(progn
;; We are behaving like normal-erase-is-backspace-mode, so
;; say so explicitly.
(setq-default normal-erase-is-backspace t)
(normal-erase-is-backspace-mode 1)
;; say so explicitly. But don't do that on a Unix tty, since
;; some of them have keyboards that by default already behave
;; as if normal-erase-is-backspace mode is on, and turning it
;; a second time screws them up.
(if (or (eq window-system 'x)
(memq system-name '(ms-dos windows-nt)))
(progn
(setq-default normal-erase-is-backspace t)
(normal-erase-is-backspace-mode 1))
;; This is for tty. We don't turn on normal-erase-is-backspace,
;; but bind keys as pc-selection-mode did before
;; normal-erase-is-backspace was invented, to keep us back
;; compatible.
(global-set-key [delete] 'delete-char) ; KDelete Del
(define-key function-key-map [M-delete] [?\M-d])
(global-set-key [C-backspace] 'backward-kill-word))
(define-key global-map [S-insert] 'yank)
(define-key global-map [C-insert] 'copy-region-as-kill)
(define-key global-map [S-delete] 'kill-region)