This is patched. Thanks Przemysław.
Przemysław Wojnowski writes: > Hi! > There are duplicated functions and consts: > - jde-java-font-lock-comment-faces > - jde-java-font-lock-quote-keyword > - jde-java-font-lock-at-comment > - jde-java-font-lock-quote-matcher > - jde-java-font-lock-search-in-comment. > > This patch removes them. > > Regards, > Przemysław Wojnowski > > Index: jde-java-font-lock.el > =================================================================== > --- jde-java-font-lock.el (wersja 106) > +++ jde-java-font-lock.el (kopia robocza) > @@ -480,45 +480,6 @@ > (format "<\\(%s\\)>\\(%s\\)</\\(%s\\)>" tag-re hit-re tag-re) > ))) > > -(defconst jde-java-font-lock-comment-faces > - '(font-lock-comment-face font-lock-doc-face) > - "List of faces font-lock uses for comments.") > - > -(defmacro jde-java-font-lock-at-comment (pos) > - "Return non-nil if POS is in a comment." > - `(memq (get-text-property ,pos 'face) > - jde-java-font-lock-comment-faces)) > - > - > - (defsubst jde-java-font-lock-search-in-comment (regexp end) > - "Search forward from point for regular expression REGEXP. > -Ensure matching occurs in a java comment. Buffer position END bounds > -the search. The match found must not extend after that position." > - (let ((here (point)) > - ok b p) > - (while (and (not ok) > - (setq p (re-search-forward regexp end t))) > - (setq b (match-beginning 0)) > - (setq ok (and (jde-java-font-lock-at-comment b) > - (< p (next-single-property-change > - b 'face nil (point-max)))))) > - (if ok > - (point) > - (goto-char here) > - nil))) > - > -(defun jde-java-font-lock-quote-matcher (end) > - "Font lock matcher for comment enclosed in \`\'. > -Limit search to END position." > - (jde-java-font-lock-search-in-comment > - "`\\([^']*\\)'" > - end)) > - > -(defconst jde-java-font-lock-quote-keyword > - '(jde-java-font-lock-quote-matcher > - 1 jde-java-font-lock-doc-tag-face t) > - "Font lock keyword for comment enclosed in \`\'.") > - > (eval-and-compile > (if (featurep 'cc-fonts) > > @@ -617,7 +578,6 @@ > 1 jde-java-font-lock-link-face t) > "Font lock keyword for javadoc HTML A HREF anchor.") > > - > (defvar jde-java-font-lock-html-keywords nil > "List of HTML keywords defined so far.") > > ------------------------------------------------------------------------------ > Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day > trial. Simplify your report design, integration and deployment - and focus > on > what you do best, core application coding. Discover what's new with > Crystal Reports now. > http://p.sf.net/sfu/bobj-july_______________________________________________ > jdee-users mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/jdee-users -- Paul Landes [email protected] ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ jdee-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/jdee-users
