Hi!
Here are patches to remove warnings about use of old-style backquotes in
macros. I have tested new versions by macroexpand, and all seems to work
fine.
Also in jde-util.el beginning-of-buffer is changed to (goto-char
(point-min)), which should be used in lisp programs instead.
Regards,
Przemysław Wojnowski
Index: jde-compat.el
===================================================================
--- jde-compat.el (wersja 104)
+++ jde-compat.el (kopia robocza)
@@ -120,14 +120,14 @@
(defmacro defgroup (&rest args)
nil)
(defmacro defface (var values doc &rest args)
- (` (progn
- (defvar (, var) (quote (, var)))
- ;; To make colors for your faces you need to set your .Xdefaults
- ;; or set them up ahead of time in your .emacs file.
- (make-face (, var))
- )))
+ `(progn
+ (defvar ,var (quote ,var))
+ ;; To make colors for your faces you need to set your .Xdefaults
+ ;; or set them up ahead of time in your .emacs file.
+ (make-face ,var)
+ ))
(defmacro defcustom (var value doc &rest args)
- (` (defvar (, var) (, value) (, doc)))))
+ `(defvar ,var ,value ,doc)))
(provide 'jde-compat)
Index: jde-juci.el
===================================================================
--- jde-juci.el (wersja 104)
+++ jde-juci.el (kopia robocza)
@@ -298,11 +298,11 @@
"xUnit-style assertion function to be used by unit tests. Assert
that a FORM, when executed, produces an error. If no error is
signaled, then signal an error."
- (` (condition-case nil
- (let ((message-log-max)) ;; quiet (message)
- (, form)
- (error "No error generated. %S" (or (, msg) "")))
- (error (message nil) t))))
+ `(condition-case nil
+ (let ((message-log-max)) ;; quiet (message)
+ ,form
+ (error "No error generated. %S" (or ,msg "")))
+ (error (message nil) t)))
(defun jde-juci-test-roundtrips ()
(jde-juci-xunit-assert-equal "hello" (jde-juci-test-echo "hello") "1a")
Index: jde-util.el
===================================================================
--- jde-util.el (wersja 104)
+++ jde-util.el (kopia robocza)
@@ -123,18 +123,17 @@
(file-readable-p ,exp-filename))
(with-temp-buffer
(insert-file-contents ,exp-filename)
- (beginning-of-buffer)
+ (goto-char (point-min))
,@body)
nil))))
(defmacro jde-normalize-paths (pathlist &optional symbol)
"Normalize all paths of the list PATHLIST and returns a list with the
expanded paths."
- (` (mapcar (lambda (path)
- (jde-normalize-path path (, symbol)))
- (, pathlist))))
+ `(mapcar (lambda (path)
+ (jde-normalize-path path ,symbol))
+ ,pathlist))
-
(defun jde-remove-inner-class (class)
"Removes the inner class name for the class"
(car (split-string class "[$]")))
------------------------------------------------------------------------------
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
