Good stuff everyone. Thanks. Przemysław Wojnowski writes: > 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
-- 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
