[Emacs-diffs] /srv/bzr/emacs/trunk r110731: Fix isearch handling of keypad characters with kmacros.

[Chong Yidong]

------------------------------------------------------------
revno: 110731
fixes bug: http://debbugs.gnu.org/4894
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2012-10-30 07:20:24 +0800
message:
  Fix isearch handling of keypad characters with kmacros.
  
  * isearch.el (isearch-other-meta-char): Ensure that a reprocessed
  function key is stored in a keyboard macro.
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-29 22:58:53 +0000
+++ b/lisp/ChangeLog    2012-10-29 23:20:24 +0000
@@ -1,5 +1,8 @@
 2012-10-29  Chong Yidong  <address@hidden>
 
+       * isearch.el (isearch-other-meta-char): Ensure that a reprocessed
+       function key is stored in a keyboard macro (Bug#4894).
+
        * thingatpt.el (number-at-point): Apply a thing-at-point property.
 
 2012-10-29  Stefan Monnier  <address@hidden>

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2012-09-20 21:57:13 +0000
+++ b/lisp/isearch.el   2012-10-29 23:20:24 +0000
@@ -2149,7 +2149,8 @@
                 (setq prefix-arg arg)
                 (apply 'isearch-unread keylist))
             (setq keylist
-                  (listify-key-sequence (lookup-key local-function-key-map 
key)))
+                  (listify-key-sequence
+                   (lookup-key local-function-key-map key)))
             (while keylist
               (setq key (car keylist))
               ;; If KEY is a printing char, we handle it here
@@ -2158,6 +2159,7 @@
               (if (and (integerp key)
                        (>= key ?\s) (/= key 127) (< key 256))
                   (progn
+                    (store-kbd-macro-event key)
                     (isearch-process-search-char key)
                     (setq keylist (cdr keylist)))
                 ;; As the remaining keys in KEYLIST can't be handled