From 3f8df72b8eb151d4c8e95cec514efc8e9d991241 Mon Sep 17 00:00:00 2001 From: Tom Copeland Date: Tue, 25 Oct 2005 00:41:30 +0000 Subject: [PATCH] checking in the 0.5 version just to get the history in CVS git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@3941 51baf565-9d33-0410-a72c-fc3788e3496d --- pmd-emacs/src/elisp/pmd.el | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) diff --git a/pmd-emacs/src/elisp/pmd.el b/pmd-emacs/src/elisp/pmd.el index c6d8f35395..5fa56fd2cb 100755 --- a/pmd-emacs/src/elisp/pmd.el +++ b/pmd-emacs/src/elisp/pmd.el @@ -56,9 +56,6 @@ ;; Change History -;; 10/21/2005 0.6: Nascif A. Abousalh-Neto -;; - Updated to work with PMD 3.3 - ;; 06/16/2004 0.5: Nascif A. Abousalh-Neto ;; - Tested with PMD 1.08 ;; - fixed dependency on missing defun @@ -99,11 +96,7 @@ :type 'directory :group 'pmd) -(defcustom pmd-ruleset-list (list "basic" "braces" "clone" "codesize" "controversial" "coupling" - "design" "finalizers" "imports" "javabeans" "junit" "logging-java" - "naming" "optimizations" "strictexception" "strings" "sunsecure" - "unusedcode" "logging-jakarta-commons") - +(defcustom pmd-ruleset-list (list "rulesets/basic.xml") "A list of Rulesets to apply. Rulesets are specified in XML files inside the \"rulesets\" subdirectory of the main PMD jar file." :type '(repeat (file :tag "Ruleset")) :group 'pmd) @@ -146,10 +139,8 @@ (defun pmd-classpath () (let* ((path-separator (if (eq system-type 'windows-nt) ";" ":")) (path-slash (if (eq system-type 'windows-nt) "\\" "/")) - (pmd-etc (concat pmd-home "etc")) (pmd-lib (concat pmd-home path-slash "lib" path-slash))) (concat "\'" - pmd-etc path-separator (mapconcat (lambda (path) path) @@ -157,15 +148,6 @@ path-separator) "\'"))) -(defun pmd-jar () - (let* ((path-separator (if (eq system-type 'windows-nt) ";" ":")) - (path-slash (if (eq system-type 'windows-nt) "\\" "/")) - (pmd-etc (concat pmd-home "etc")) - (pmd-lib (concat pmd-home path-slash "lib" path-slash))) - (concat "\'" - (car (directory-files pmd-lib t ".*pmd-.*\\.jar$")) - "\'"))) - ;; (defun pmd-file-or-dir (target) ;; "Run PMD on the given target (file or dir)" ;; (if (eq (count-windows) 1) @@ -193,7 +175,7 @@ "Run PMD on the given target (file or dir)" (let ((pmd-command - (concat pmd-java-home " -jar " (pmd-jar) " " + (concat pmd-java-home " -classpath " (pmd-classpath) " net.sourceforge.pmd.PMD " target " emacs " (mapconcat (lambda (path) path) pmd-ruleset-list ",")))) ;; Force save-some-buffers to use the minibuffer