[Emacs-diffs] Changes to emacs/lisp/simple.el

[Stefan Monnier]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.693 emacs/lisp/simple.el:1.694
*** emacs/lisp/simple.el:1.693  Sat Mar  5 19:09:07 2005
--- emacs/lisp/simple.el        Sun Mar  6 00:32:12 2005
***************
*** 5025,5031 ****
  
  ;;; Handling of Backspace and Delete keys.
  
! (defcustom normal-erase-is-backspace nil
    "If non-nil, Delete key deletes forward and Backspace key deletes backward.
  
  On window systems, the default value of this option is chosen
--- 5025,5041 ----
  
  ;;; Handling of Backspace and Delete keys.
  
! (defcustom normal-erase-is-backspace
!   (and (not noninteractive)
!        (or (memq system-type '(ms-dos windows-nt))
!          (and (memq window-system '(x))
!               (fboundp 'x-backspace-delete-keys-p)
!               (x-backspace-delete-keys-p))
!          ;; If the terminal Emacs is running on has erase char
!          ;; set to ^H, use the Backspace key for deleting
!          ;; backward and, and the Delete key for deleting forward.
!          (and (null window-system)
!               (eq tty-erase-char ?\^H))))
    "If non-nil, Delete key deletes forward and Backspace key deletes backward.
  
  On window systems, the default value of this option is chosen