diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-23 02:26:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-23 02:26:42 +0000 |
| commit | 9275e5e3e9c7282ab961784117ec319d67badb39 (patch) | |
| tree | f809f6f20fe4a8437e085a3c57e880e296658cb8 /lisp/replace.el | |
| parent | 558b2117a074c2e668d89be471a1cd18262bfab9 (diff) | |
| download | emacs-9275e5e3e9c7282ab961784117ec319d67badb39.tar.gz | |
(query-replace-map): Define backspace like delete.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 449d5243ee3..62d80278589 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -376,6 +376,7 @@ The valid answers include `act', `skip', `act-and-show', (define-key query-replace-map " " 'act) (define-key query-replace-map "\d" 'skip) (define-key query-replace-map [delete] 'skip) +(define-key query-replace-map [backspace] 'skip) (define-key query-replace-map "y" 'act) (define-key query-replace-map "n" 'skip) (define-key query-replace-map "," 'act-and-show) @@ -474,7 +475,8 @@ which will run faster and do exactly what you probably want." (while (not done) (message "Query replacing %s with %s: " from-string next-replacement) - (setq key (vector (read-event))) + (setq key (read-event)) + (setq key (vector key)) (setq def (lookup-key map key)) ;; Restore the match data while we process the command. (store-match-data real-match-data) |