diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-10-02 02:10:29 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-02 02:10:29 +0800 |
| commit | 62a81506f802e4824b718cc30321ee3a0057cdf7 (patch) | |
| tree | d681d7b767b1c3f7e4aee24ce39f6bef0d7f1f7e /lisp/cedet/semantic/doc.el | |
| parent | b3317662acc0157406c20c8e14c43b7126eaa8a0 (diff) | |
| download | emacs-62a81506f802e4824b718cc30321ee3a0057cdf7.tar.gz | |
Update CEDET from upstream.
Diffstat (limited to 'lisp/cedet/semantic/doc.el')
| -rw-r--r-- | lisp/cedet/semantic/doc.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el index ddf1518f539..8a4e61fbad2 100644 --- a/lisp/cedet/semantic/doc.el +++ b/lisp/cedet/semantic/doc.el @@ -115,7 +115,10 @@ If NOSNARF is 'lex, then return the lex token." ;; In case it's a real string, STRIPIT. (while (string-match "\\s-*\\s\"+\\s-*" ct) (setq ct (concat (substring ct 0 (match-beginning 0)) - (substring ct (match-end 0)))))) + (substring ct (match-end 0))))) + ;; Remove comment delimiter at the end of the string. + (when (string-match (concat (regexp-quote comment-end) "$") ct) + (setq ct (substring ct 0 (match-beginning 0))))) ;; Now return the text. ct)))) |