Mercurial > emacs
diff lisp/replace.el @ 2327:61b35714d880
(query-replace-map): Define backspace like delete.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Mar 1993 02:26:42 +0000 |
| parents | 9e7ec92a4fdf |
| children | a9c05a12b615 |
line wrap: on
line diff
--- a/lisp/replace.el Tue Mar 23 02:16:18 1993 +0000 +++ b/lisp/replace.el Tue Mar 23 02:26:42 1993 +0000 @@ -376,6 +376,7 @@ (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 @@ (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)