Commit 08ea6d2f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(normal-erase-is-backspace-setup-frame): Massage.

parent 8b5f251b
2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca> 2007-09-07 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (normal-erase-is-backspace-setup-frame): Massage.
* term/xterm.el (xterm-function-map): Initialize in the declaration.
* vc-arch.el (vc-arch-checkin): Fix typo. * vc-arch.el (vc-arch-checkin): Fix typo.
2007-09-07 Johan Bockg,Ae(Brd <bojohan@gnu.org> 2007-09-07 Johan Bockg,Ae(Brd <bojohan@gnu.org>
......
...@@ -5659,7 +5659,8 @@ call `normal-erase-is-backspace-mode' (which see) instead." ...@@ -5659,7 +5659,8 @@ call `normal-erase-is-backspace-mode' (which see) instead."
(unless frame (setq frame (selected-frame))) (unless frame (setq frame (selected-frame)))
(with-selected-frame frame (with-selected-frame frame
(unless (terminal-parameter nil 'normal-erase-is-backspace) (unless (terminal-parameter nil 'normal-erase-is-backspace)
(if (cond ((eq normal-erase-is-backspace 'maybe) (normal-erase-is-backspace-mode
(if (if (eq normal-erase-is-backspace 'maybe)
(and (not noninteractive) (and (not noninteractive)
(or (memq system-type '(ms-dos windows-nt)) (or (memq system-type '(ms-dos windows-nt))
(eq window-system 'mac) (eq window-system 'mac)
...@@ -5668,13 +5669,11 @@ call `normal-erase-is-backspace-mode' (which see) instead." ...@@ -5668,13 +5669,11 @@ call `normal-erase-is-backspace-mode' (which see) instead."
(x-backspace-delete-keys-p)) (x-backspace-delete-keys-p))
;; If the terminal Emacs is running on has erase char ;; If the terminal Emacs is running on has erase char
;; set to ^H, use the Backspace key for deleting ;; set to ^H, use the Backspace key for deleting
;; backward and, and the Delete key for deleting forward. ;; backward, and the Delete key for deleting forward.
(and (null window-system) (and (null window-system)
(eq tty-erase-char ?\^H))))) (eq tty-erase-char ?\^H))))
(t normal-erase-is-backspace)
normal-erase-is-backspace)) 1 0)))))
(normal-erase-is-backspace-mode 1)
(normal-erase-is-backspace-mode 0)))))
(defun normal-erase-is-backspace-mode (&optional arg) (defun normal-erase-is-backspace-mode (&optional arg)
"Toggle the Erase and Delete mode of the Backspace and Delete keys. "Toggle the Erase and Delete mode of the Backspace and Delete keys.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment