From a918ed9b8ec6fcfc3e88747b07651549cdbe1e32 Mon Sep 17 00:00:00 2001 From: Bob Rogers Date: Thu, 3 Mar 2011 21:16:56 -0800 Subject: Minor ewoc fix for bug#3261. * lisp/emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error if there is no node. --- lisp/emacs-lisp/ewoc.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/emacs-lisp/ewoc.el') 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) -- cgit v1.2.1