@@ -1,3 +1,4 @@ *~ *.elc *# +TAGS .gitignore @@ -348,11 +348,14 @@ (nreverse widgets)))) (defun reddit-comments-current-comment () - (let ((widget (tree-mode-parent-current-line))) - (cond ((null widget) nil) - ((eq 'reddit-comment-line-widget (widget-type widget)) - (widget-get widget :parent)) - (t widget)))) + (labels ((lookup (widget) + (cond ((null widget) + nil) + ((not (eq 'reddit-comment-widget (widget-type widget))) + (lookup (widget-get widget :parent))) + (t + widget)))) + (lookup (tree-mode-icon-current-line)))) (defun reddit-comments-post () (interactive) reddit.el 6acdbf11cbb6f50a6ae18fcd122a5819f32eaeb5 death death@nessers.org http://github.com/death/reddit-mode/commit/1bdf97390610254c615e77654aaf7ead456b7a3b 1bdf97390610254c615e77654aaf7ead456b7a3b 2008-05-27T12:56:38-07:00 2008-05-27T12:56:38-07:00 less weird definition of what the current comment is 0324b675e8f1695189aec9ceb09a8f686babb516 death death@nessers.org