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
