diff options
| author | Bob Rogers <rogers@rgrjr.dyndns.org> | 2011-03-03 21:16:56 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-03-03 21:16:56 -0800 |
| commit | a918ed9b8ec6fcfc3e88747b07651549cdbe1e32 (patch) | |
| tree | c6c9ff1a5d85cc63aaeb66dfcd0ca465533a38e4 | |
| parent | 35fee6ce58661a1d32e995f1dac5a49d8d824fa1 (diff) | |
| download | emacs-a918ed9b8ec6fcfc3e88747b07651549cdbe1e32.tar.gz | |
Minor ewoc fix for bug#3261.
* lisp/emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error
if there is no node.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 2 |
2 files changed, 7 insertions, 0 deletions
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) |