From: Bob Rogers <rogers@rgrjr.dyndns.org>
Date: Fri, 4 Mar 2011 05:16:56 +0000 (-0800)
Subject: Minor ewoc fix for bug#3261.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~674^2~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a918ed9b8ec6fcfc3e88747b07651549cdbe1e32;p=emacs.git

Minor ewoc fix for bug#3261.

* lisp/emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error
if there is no node.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04710d6bcf1..477361b9493 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-04  Bob Rogers  <rogers@rgrjr.dyndns.org>
+
+	* emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error
+	if there is no node.  (Bug#3261)
+
 2011-03-04  Leo  <sdl.web@gmail.com>
 
 	* time.el (display-time-world-list): Fix typo.  (Bug#7571)
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el
index bf9998695ee..a71f3c7244c 100644
--- a/lisp/emacs-lisp/ewoc.el
+++ b/lisp/emacs-lisp/ewoc.el
@@ -495,6 +495,8 @@ Return the node (or nil if we just passed the last node)."
     ;; Never step below the first element.
     ;; (unless (ewoc--filter-hf-nodes ewoc node)
     ;;   (setq node (ewoc--node-nth dll -2)))
+    (unless node
+      (error "No next"))
     (ewoc-goto-node ewoc node)))
 
 (defun ewoc-goto-node (ewoc node)