mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(delete-key-deletes-forward-mode): Simplify. Also

Browse Source 
backspace key combinations, depending on
delete-key-deletes-forward.
This commit is contained in:
Gerd Moellmann 2000-12-22 13:18:19 +00:00
parent f060b8348d
commit d25cc9a9b8
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/simple.el
View File

@ -4037,16 +4037,26 @@ For more details, see `delete-key-deletes-forward'."
(cond ((or (memq window-system '(x w32 mac pc))
(memq system-type '(ms-dos windows-nt)))
(if delete-key-deletes-forward
(progn
(define-key global-map [delete] 'delete-char)
(define-key global-map [C-delete] 'kill-word)
(define-key esc-map [C-delete] 'kill-sexp)
(define-key global-map [C-M-delete] 'kill-sexp))
(define-key esc-map [C-delete] 'backward-kill-sexp)
(define-key global-map [C-M-delete] 'backward-kill-sexp)
(define-key global-map [C-delete] 'backward-kill-word)
(define-key global-map [delete] 'delete-backward-char)))
(let ((bindings
`(([delete] [backspace] delete-char delete-backward-char)
([C-delete] [C-backspace] kill-word backward-kill-word)
([M-delete] [M-backspace] kill-word backward-kill-word)
([C-M-delete] [C-M-backspace] kill-sexp backward-kill-sexp)
(,esc-map
[C-delete] [C-backspace] kill-sexp backward-kill-sexp))))
(dolist (binding bindings)
(let ((map global-map))
(when (keymapp (car binding))
(setq map (car binding) binding (cdr binding)))
(let ((key1 (nth 0 binding))
(key2 (nth 1 binding))
(binding1 (nth 2 binding))
(binding2 (nth 3 binding)))
(unless delete-key-deletes-forward
(let ((temp binding1))
(setq binding1 binding2 binding2 temp)))
(define-key map key1 binding1)
(define-key map key2 binding2))))))
(t
(if delete-key-deletes-forward
(progn