[Emacs-diffs] /srv/bzr/emacs/trunk r112415: * lisp/isearch.el (isearch-fail-pos): Check for empty `cmds'.

[Juri Linkov]

------------------------------------------------------------
revno: 112415
fixes bug: http://debbugs.gnu.org/14268
author: Darren Hoo <address@hidden>
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2013-04-28 01:03:42 +0300
message:
  * lisp/isearch.el (isearch-fail-pos): Check for empty `cmds'.
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-27 21:29:00 +0000
+++ b/lisp/ChangeLog    2013-04-27 22:03:42 +0000
@@ -1,3 +1,7 @@
+2013-04-27  Darren Hoo  <address@hidden>  (tiny change)
+
+       * isearch.el (isearch-fail-pos): Check for empty `cmds'.  (Bug#14268)
+
 2013-04-27  Glenn Morris  <address@hidden>
 
        * vc/log-view.el (log-view-current-entry):

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2013-02-22 17:13:05 +0000
+++ b/lisp/isearch.el   2013-04-27 22:03:42 +0000
@@ -1106,8 +1106,9 @@
        (curr-msg (if msg isearch-message isearch-string))
        succ-msg)
     (when (or (not isearch-success) isearch-error)
-      (while (or (not (isearch--state-success (car cmds)))
-                 (isearch--state-error (car cmds)))
+      (while (and cmds
+                 (or (not (isearch--state-success (car cmds)))
+                     (isearch--state-error (car cmds))))
         (pop cmds))
       (setq succ-msg (and cmds (if msg (isearch--state-message (car cmds))
                                 (isearch--state-string (car cmds)))))