Mercurial > emacs
comparison lisp/simple.el @ 34829:320f80be4559
(delete-key-deletes-forward-mode): Simplify. Also
backspace key combinations, depending on
delete-key-deletes-forward.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 22 Dec 2000 13:18:19 +0000 |
| parents | 0f079e057295 |
| children | 421a33797ea8 |
comparison
equal
deleted
inserted
replaced
| 34828:0b878d25d1f6 | 34829:320f80be4559 |
|---|---|
| 4035 (> (prefix-numeric-value arg) 0) | 4035 (> (prefix-numeric-value arg) 0) |
| 4036 (not delete-key-deletes-forward))) | 4036 (not delete-key-deletes-forward))) |
| 4037 | 4037 |
| 4038 (cond ((or (memq window-system '(x w32 mac pc)) | 4038 (cond ((or (memq window-system '(x w32 mac pc)) |
| 4039 (memq system-type '(ms-dos windows-nt))) | 4039 (memq system-type '(ms-dos windows-nt))) |
| 4040 (if delete-key-deletes-forward | 4040 (let ((bindings |
| 4041 (progn | 4041 `(([delete] [backspace] delete-char delete-backward-char) |
| 4042 (define-key global-map [delete] 'delete-char) | 4042 ([C-delete] [C-backspace] kill-word backward-kill-word) |
| 4043 (define-key global-map [C-delete] 'kill-word) | 4043 ([M-delete] [M-backspace] kill-word backward-kill-word) |
| 4044 (define-key esc-map [C-delete] 'kill-sexp) | 4044 ([C-M-delete] [C-M-backspace] kill-sexp backward-kill-sexp) |
| 4045 (define-key global-map [C-M-delete] 'kill-sexp)) | 4045 (,esc-map |
| 4046 (define-key esc-map [C-delete] 'backward-kill-sexp) | 4046 [C-delete] [C-backspace] kill-sexp backward-kill-sexp)))) |
| 4047 (define-key global-map [C-M-delete] 'backward-kill-sexp) | 4047 (dolist (binding bindings) |
| 4048 (define-key global-map [C-delete] 'backward-kill-word) | 4048 (let ((map global-map)) |
| 4049 (define-key global-map [delete] 'delete-backward-char))) | 4049 (when (keymapp (car binding)) |
| 4050 (setq map (car binding) binding (cdr binding))) | |
| 4051 (let ((key1 (nth 0 binding)) | |
| 4052 (key2 (nth 1 binding)) | |
| 4053 (binding1 (nth 2 binding)) | |
| 4054 (binding2 (nth 3 binding))) | |
| 4055 (unless delete-key-deletes-forward | |
| 4056 (let ((temp binding1)) | |
| 4057 (setq binding1 binding2 binding2 temp))) | |
| 4058 (define-key map key1 binding1) | |
| 4059 (define-key map key2 binding2)))))) | |
| 4050 (t | 4060 (t |
| 4051 (if delete-key-deletes-forward | 4061 (if delete-key-deletes-forward |
| 4052 (progn | 4062 (progn |
| 4053 (keyboard-translate ?\C-h ?\C-?) | 4063 (keyboard-translate ?\C-h ?\C-?) |
| 4054 (keyboard-translate ?\C-? ?\C-d)) | 4064 (keyboard-translate ?\C-? ?\C-d)) |