(delete-key-deletes-forward-mode): Bind backspace

and delete in isearch-mode-map.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f041398219113588a12731400e98d08b4ecfc2cf..fe861f35442771c5ac8af82e225fbc8c7ee49e73 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-28  Gerd Moellmann  <gerd@gnu.org>
+
+       * simple.el (delete-key-deletes-forward-mode): Bind backspace
+       and delete in isearch-mode-map.
+
 2000-12-28  Kenichi Handa  <handa@etl.go.jp>
 
        * textmodes/artist.el (artist-butlast): Deleted.

diff --git a/lisp/simple.el b/lisp/simple.el
index d7fab489621f468c15af734803b1131fcd31f939..6aae21a3f0c89e3a774194ec6cf2afb7db1ac19b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4042,8 +4042,10 @@ For more details, see `delete-key-deletes-forward'."
                  ([C-delete] [C-backspace] kill-word backward-kill-word)
                  ([M-delete] [M-backspace] kill-word backward-kill-word)
                  ([C-M-delete] [C-M-backspace] kill-sexp backward-kill-sexp)
-                 (,esc-map
-                  [C-delete] [C-backspace] kill-sexp backward-kill-sexp))))
+                 (,esc-map [C-delete] [C-backspace] kill-sexp
+                           backward-kill-sexp)
+                 (,isearch-mode-map [backspace] [delete] isearch-delete-char
+                                    isearch-other-control-char))))
           (dolist (binding bindings)
             (let ((map global-map))
               (when (keymapp (car binding))