]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix isearch handling of keypad characters with kmacros.
authorChong Yidong <cyd@gnu.org>
Mon, 29 Oct 2012 23:20:24 +0000 (07:20 +0800)
committerChong Yidong <cyd@gnu.org>
Mon, 29 Oct 2012 23:20:24 +0000 (07:20 +0800)
* isearch.el (isearch-other-meta-char): Ensure that a reprocessed
function key is stored in a keyboard macro.

Fixes: debbugs:4894
lisp/ChangeLog
lisp/isearch.el

index 2474574de92cdf7449ad854919bf0e5feb6ad9d5..bd57e7dc5f0515471d67779d66c17cf88ebd3688 100644 (file)
@@ -1,5 +1,8 @@
 2012-10-29  Chong Yidong  <cyd@gnu.org>
 
+       * 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  <monnier@iro.umontreal.ca>
index 3799376701372a32de9bc2cecbfabe8005d81b9d..ead6f88cb970c546487043029bfd49b0229b08df 100644 (file)
@@ -2149,7 +2149,8 @@ Isearch mode."
                 (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 @@ Isearch mode."
               (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