Mercurial > hg > xemacs-beta

comparison lisp/utils/delbackspace.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children 49a24b4fd526
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; delbackspace.el --- rebind backspace and delete to be correct
2
3 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1996 Ben Wing.
5 ;;
6 ;; Author: Tibor Polgar??
7 ;; Maintainer: Ben Wing <wing@666.com>
8 ;; Keywords: terminals
9 ;;
10
11 ;;; Synched up with: Not in FSF.
12 ;;; #### should port FSF pc-bindings.el and nuke this.
13
14 ;; this is a hack that will have to do until function-key-map is implemented
15 (defconst delbackspace-backspace
16 (if (not (eq 'tty (device-type (selected-device))))
17 'backspace
18 "\C-h"))
19
20 (global-unset-key delbackspace-backspace)
21 (local-unset-key delbackspace-backspace)
22 (global-unset-key [(control delete)])
23 (global-unset-key [(meta delete)])
24 (global-unset-key [(meta shift delete)])
25 (global-unset-key [(control backspace)])
26 (global-unset-key [(meta backspace)])
27 (global-unset-key [(meta shift backspace)])
28
29 (if (eq 'tty (device-type (selected-device)))
30 (progn
31 (setq help-char '(meta h))
32 (define-key global-map "\M-h" 'help-command)))
33
34 (define-key key-translation-map 'delete 'delbackspace-compute-delete-value)
35 (define-key global-map 'intercepted_delete 'delete-char)
36
37 (defun delbackspace-compute-delete-value (prompt)
38 (let ((orig-binding (key-binding 'delete)))
39 (if (memq orig-binding '(delete-backward-char
40 backward-delete-char
41 backward-delete-char-untabify
42 c-electric-delete
43 c++-electric-delete
44 cperl-electric-backspace))
45 [intercepted_delete]
46 [delete])))
47
48 (define-key key-translation-map delbackspace-backspace [delete])
49
50 ;; (ctrl) backspace to beginning of line
51 (global-set-key [(control backspace)] 'backward-kill-line)
52
53 ;; (meta) backspace word before cursor
54 (define-key key-translation-map [(meta backspace)]
55 [intercepted_meta_backspace])
56 (define-key global-map 'intercepted_meta_backspace 'backward-kill-word)
57
58 ;; (alt) backspace sentence before cursor; backspace sexp before cursor
59 ;; in language modes
60 (define-key key-translation-map [(alt backspace)]
61 [intercepted_alt_backspace])
62 (define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence)
63 (mapcar #'(lambda (map)
64 (define-key map [(alt backspace)] 'backward-kill-sexp))
65 (list
66 c-mode-map c++-mode-map objc-mode-map java-mode-map
67 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
68
69 ;; (meta shift) backspace paragraph before cursor
70 (global-set-key [(meta shift backspace)] 'backward-kill-paragraph)
71
72 ;; (alt) delete rest of line (erase EOF)
73 (global-set-key [(control delete)] 'kill-line)
74
75 ;; (meta) delete word before cursor
76 (define-key key-translation-map [(meta delete)]
77 [intercepted_meta_delete])
78 (define-key global-map 'intercepted_meta_delete 'kill-word)
79
80 ;; (alt) delete sentence forward; delete sexp forward
81 ;; in language modes
82 (define-key key-translation-map [(alt delete)]
83 [intercepted_alt_delete])
84 (define-key global-map 'intercepted_alt_delete 'kill-sentence)
85 (mapcar #'(lambda (map)
86 (define-key map [(alt delete)] 'kill-sexp))
87 (list
88 c-mode-map c++-mode-map objc-mode-map java-mode-map
89 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
90
91 ;; (meta shift) delete next paragraph
92 (global-set-key [(meta shift delete)] 'kill-paragraph)