Mercurial > emacs

changeset 2327:61b35714d880

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(query-replace-map): Define backspace like delete.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Mar 1993 02:26:42 +0000
parents cac023fe9d13
children 82e4fed9cdd6
files lisp/replace.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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)