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 /lisp/emacs-lisp | |
| parent | 35fee6ce58661a1d32e995f1dac5a49d8d824fa1 (diff) | |
| download | emacs-a918ed9b8ec6fcfc3e88747b07651549cdbe1e32.tar.gz emacs-a918ed9b8ec6fcfc3e88747b07651549cdbe1e32.tar.bz2 emacs-a918ed9b8ec6fcfc3e88747b07651549cdbe1e32.zip | |
Minor ewoc fix for bug#3261.
* lisp/emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error
if there is no node.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |