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 04710d6bcf1578fe3b9f9e00b9fc2546ddc024d0..477361b9493b031aa80e30cc6db1aed6a3142543 100644 (file)
--- 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 bf9998695eea4b581ff002dace191f6467566f6f..a71f3c7244c31bb00446444af6ccfa22ce35f417 100644 (file)
--- 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)