comparison lisp/cedet/semantic/doc.el @ 110534:826d60163924

Merge changes from emacs-23 branch.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 23 Sep 2010 22:10:54 -0400
parents a5ad4f188e19
children 376148b31b5e
comparison
equal deleted inserted replaced
110517:64945cefe6a6 110534:826d60163924
76 (let* ((starttag (semantic-find-tag-by-overlay-prev 76 (let* ((starttag (semantic-find-tag-by-overlay-prev
77 (semantic-tag-start tag))) 77 (semantic-tag-start tag)))
78 (start (if starttag 78 (start (if starttag
79 (semantic-tag-end starttag) 79 (semantic-tag-end starttag)
80 (point-min)))) 80 (point-min))))
81 (when (re-search-backward comment-start-skip start t) 81 (when (and comment-start-skip
82 (re-search-backward comment-start-skip start t))
82 ;; We found a comment that doesn't belong to the body 83 ;; We found a comment that doesn't belong to the body
83 ;; of a function. 84 ;; of a function.
84 (semantic-doc-snarf-comment-for-tag nosnarf))) 85 (semantic-doc-snarf-comment-for-tag nosnarf)))
85 )) 86 ))
86 87