From a918ed9b8ec6fcfc3e88747b07651549cdbe1e32 Mon Sep 17 00:00:00 2001 From: Bob Rogers Date: Thu, 3 Mar 2011 21:16:56 -0800 Subject: [PATCH] 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/ChangeLog | 5 +++++ lisp/emacs-lisp/ewoc.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error + if there is no node. (Bug#3261) + 2011-03-04 Leo * 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) -- 2.39.2