Mercurial > hg > xemacs-beta

comparison lisp/utils/delbackspace.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 49a24b4fd526
children c0c698873ce1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
58 ;; (alt) backspace sentence before cursor; backspace sexp before cursor 58 ;; (alt) backspace sentence before cursor; backspace sexp before cursor
59 ;; in language modes 59 ;; in language modes
60 (define-key key-translation-map [(alt backspace)] 60 (define-key key-translation-map [(alt backspace)]
61 [intercepted_alt_backspace]) 61 [intercepted_alt_backspace])
62 (define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence) 62 (define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence)
63 (if (boundp 'c-mode-map) 63 (mapcar #'(lambda (map)
64 (mapcar (lambda (map) 64 (define-key map [(alt backspace)] 'backward-kill-sexp))
65 (define-key map [(alt backspace)] 'backward-kill-sexp)) 65 (list
66 (list 66 c-mode-map c++-mode-map objc-mode-map java-mode-map
67 c-mode-map c++-mode-map objc-mode-map java-mode-map 67 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
68 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
69 (setq after-load-alist
70 (append '(("cc-mode"
71 (mapcar (lambda (map)
72 (define-key map
73 [(alt backspace)]
74 'backward-kill-sexp)
75 (define-key map [(alt delete)] 'kill-sexp))
76 (list
77 c-mode-map
78 c++-mode-map
79 objc-mode-map
80 java-mode-map))))
81 after-load-alist)))
82
83 68
84 ;; (meta shift) backspace paragraph before cursor 69 ;; (meta shift) backspace paragraph before cursor
85 (global-set-key [(meta shift backspace)] 'backward-kill-paragraph) 70 (global-set-key [(meta shift backspace)] 'backward-kill-paragraph)
86 71
87 ;; (alt) delete rest of line (erase EOF) 72 ;; (alt) delete rest of line (erase EOF)
95 ;; (alt) delete sentence forward; delete sexp forward 80 ;; (alt) delete sentence forward; delete sexp forward
96 ;; in language modes 81 ;; in language modes
97 (define-key key-translation-map [(alt delete)] 82 (define-key key-translation-map [(alt delete)]
98 [intercepted_alt_delete]) 83 [intercepted_alt_delete])
99 (define-key global-map 'intercepted_alt_delete 'kill-sentence) 84 (define-key global-map 'intercepted_alt_delete 'kill-sentence)
100 (mapcar (lambda (map) 85 (mapcar #'(lambda (map)
101 (define-key map [(alt delete)] 'kill-sexp)) 86 (define-key map [(alt delete)] 'kill-sexp))
102 (list 87 (list
88 c-mode-map c++-mode-map objc-mode-map java-mode-map
103 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map)) 89 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
104 (when (boundp 'c-mode-map)
105 (mapcar (lambda (map)
106 (define-key map [(alt delete)] 'kill-sexp))
107 (list
108 c-mode-map c++-mode-map objc-mode-map java-mode-map)))
109 90
110 ;; (meta shift) delete next paragraph 91 ;; (meta shift) delete next paragraph
111 (global-set-key [(meta shift delete)] 'kill-paragraph) 92 (global-set-key [(meta shift delete)] 'kill-paragraph)
112
113 (provide 'delbackspace)
114
115 ;;; delbackspace.el ends here