/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.264.4.2 by gerd, Thu Oct 25 13:33:28 2001 UTC revision 1.264.4.3 by gerd, Thu Nov 1 13:10:34 2001 UTC
# Line 795  or `CVS', and any subdirectory that cont Line 795  or `CVS', and any subdirectory that cont
795      (when (or (memq system-type '(ms-dos windows-nt))      (when (or (memq system-type '(ms-dos windows-nt))
796                (and (memq window-system '(x))                (and (memq window-system '(x))
797                     (fboundp 'x-backspace-delete-keys-p)                     (fboundp 'x-backspace-delete-keys-p)
798                     (x-backspace-delete-keys-p)))                     (x-backspace-delete-keys-p))
799                  ;; If the terminal Emacs is running on has erase char
800                  ;; set to ^H, use the Backspace key for deleting
801                  ;; backward and, and the Delete key for deleting forward.
802                  (and (null window-system)
803                       (eq tty-erase-char 8)))
804        (setq-default normal-erase-is-backspace t)        (setq-default normal-erase-is-backspace t)
805        (normal-erase-is-backspace-mode 1)))        (normal-erase-is-backspace-mode 1)))
806    

Legend:
Removed from v.1.264.4.2  
changed lines
  Added in v.1.264.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26