* lisp/isearch.el (isearch-mode-map): Bind [return] and [backspace] to

isearch-exit and isearch-delete-char resp.  (Bug#16342, bug#16035)

* lisp/progmodes/ps-mode.el (ps-mode-map): Remove [return] key binding
that shadows RET.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee11efdc7eb549c871daccd56a648b77124be723..222582b3d7340d7d5ae4007f6023bbf149f008d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2014-01-07  Juri Linkov  <juri@jurta.org>
+
+       * isearch.el (isearch-mode-map): Bind [return] and [backspace] to
+       isearch-exit and isearch-delete-char resp.  (Bug#16342, bug#16035)
+
+       * progmodes/ps-mode.el (ps-mode-map): Remove [return] key binding
+       that shadows RET.  (Bug#16342)
+
 2014-01-07  Daniel Colascione  <dancol@dancol.org>
 
        * vc/log-view.el (log-view-beginning-of-defun): Add comment

diff --git a/lisp/isearch.el b/lisp/isearch.el
index fe2f1ace3398abb8c6a723811cbd82b23e48802e..4749846d5098f25e96070051fd6a09895864966c 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -446,6 +446,7 @@ This is like `describe-bindings', but displays only Isearch keys."
     (define-key map "\M-\C-s" 'isearch-repeat-forward)
     (define-key map "\M-\C-r" 'isearch-repeat-backward)
     (define-key map "\177" 'isearch-delete-char)
+    (define-key map [backspace] 'isearch-delete-char)
     (define-key map "\C-g" 'isearch-abort)
 
     ;; This assumes \e is the meta-prefix-char.
@@ -456,6 +457,7 @@ This is like `describe-bindings', but displays only Isearch keys."
     (define-key map "\C-q" 'isearch-quote-char)
 
     (define-key map "\r" 'isearch-exit)
+    (define-key map [return] 'isearch-exit)
     (define-key map "\C-j" 'isearch-printing-char)
     (define-key map "\t" 'isearch-printing-char)
     (define-key map [?\S-\ ] 'isearch-printing-char)

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index cd2d0fb74dd80f793e16469880147ae9d43f4715..f7de331f73bfc45b98c5248518615115e66832b4 100644 (file)
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -427,7 +427,6 @@ If nil, use `temporary-file-directory'."
   (define-key ps-mode-map "\177" 'ps-mode-backward-delete-char)
   (define-key ps-mode-map "\t" 'ps-mode-tabkey)
   (define-key ps-mode-map "\r" 'ps-mode-newline)
-  (define-key ps-mode-map [return] 'ps-mode-newline)
   (easy-menu-define ps-mode-main ps-mode-map "PostScript" ps-mode-menu-main))
 
 (unless ps-run-mode-map