;;; delbackspace.el --- rebind backspace and delete to be correct

;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
;; Copyright (C) 1996 Ben Wing.
;;
;; Author: Tibor Polgar??
;; Maintainer: Ben Wing <wing@666.com>
;; Keywords: terminals
;;

;;; Synched up with: Not in FSF.
;;; #### should port FSF pc-bindings.el and nuke this.

;; this is a hack that will have to do until function-key-map is implemented
(defconst delbackspace-backspace
  (if (not (eq 'tty (device-type (selected-device))))
      'backspace
    "\C-h"))

(global-unset-key delbackspace-backspace)
(local-unset-key delbackspace-backspace)
(global-unset-key [(control delete)])
(global-unset-key [(meta delete)])
(global-unset-key [(meta shift delete)])
(global-unset-key [(control backspace)])
(global-unset-key [(meta backspace)])
(global-unset-key [(meta shift backspace)])

(if (eq 'tty (device-type (selected-device)))
    (progn
      (setq help-char '(meta h))
      (define-key global-map "\M-h" 'help-command)))

(define-key key-translation-map 'delete 'delbackspace-compute-delete-value)
(define-key global-map 'intercepted_delete 'delete-char)

(defun delbackspace-compute-delete-value (prompt)
  (let ((orig-binding (key-binding 'delete)))
    (if (memq orig-binding '(delete-backward-char
			     backward-delete-char
			     backward-delete-char-untabify
			     c-electric-delete
			     c++-electric-delete
			     cperl-electric-backspace))
	[intercepted_delete]
      [delete])))

(define-key key-translation-map delbackspace-backspace [delete])

;; (ctrl) backspace to beginning of line
(global-set-key [(control backspace)] 'backward-kill-line)

;; (meta) backspace word before cursor
(define-key key-translation-map [(meta backspace)]
  [intercepted_meta_backspace])
(define-key global-map 'intercepted_meta_backspace 'backward-kill-word)

;; (alt) backspace sentence before cursor; backspace sexp before cursor
;; in language modes
(define-key key-translation-map [(alt backspace)]
  [intercepted_alt_backspace])
(define-key global-map 'intercepted_alt_backspace 'backward-kill-sentence)
(if (boundp 'c-mode-map)
    (mapcar (lambda (map)
		(define-key map [(alt backspace)] 'backward-kill-sexp))
	    (list
	     c-mode-map c++-mode-map objc-mode-map java-mode-map
	     emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
  (setq after-load-alist
	(append '(("cc-mode"
		   (mapcar (lambda (map)
			     (define-key map
			       [(alt backspace)]
			       'backward-kill-sexp)
			     (define-key map [(alt delete)] 'kill-sexp))
			   (list
			    c-mode-map
			    c++-mode-map
			    objc-mode-map
			    java-mode-map))))
		after-load-alist)))


;; (meta shift) backspace paragraph before cursor
(global-set-key [(meta shift backspace)] 'backward-kill-paragraph)

;; (alt) delete rest of line  (erase EOF)
(global-set-key [(control delete)] 'kill-line)

;; (meta) delete word before cursor
(define-key key-translation-map [(meta delete)]
  [intercepted_meta_delete])
(define-key global-map 'intercepted_meta_delete 'kill-word)

;; (alt) delete sentence forward; delete sexp forward
;; in language modes
(define-key key-translation-map [(alt delete)]
  [intercepted_alt_delete])
(define-key global-map 'intercepted_alt_delete 'kill-sentence)
(mapcar (lambda (map)
	  (define-key map [(alt delete)] 'kill-sexp))
	(list
	 emacs-lisp-mode-map lisp-mode-map minibuffer-local-map))
(when (boundp 'c-mode-map)
  (mapcar (lambda (map)
	      (define-key map [(alt delete)] 'kill-sexp))
	  (list
	   c-mode-map c++-mode-map objc-mode-map java-mode-map)))

;; (meta shift) delete next paragraph
(global-set-key [(meta shift delete)] 'kill-paragraph)

(provide 'delbackspace)

;;; delbackspace.el ends here