Mercurial > emacs
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 |