diff lisp/mail/rnews.el @ 26455:03d8424273d3

Use new backquote syntax.

--- a/lisp/mail/rnews.el	Mon Nov 15 14:11:30 1999 +0000
+++ b/lisp/mail/rnews.el	Mon Nov 15 14:24:32 1999 +0000
@@ -151,7 +151,7 @@
 (defmacro news-cdadr (x) (list 'cdr (list 'car (list 'cdr x))))
 
 (defmacro news-wins (pfx index)
-  (` (file-exists-p (concat (, pfx) "/" (int-to-string (, index))))))
+  `(file-exists-p (concat ,pfx "/" (int-to-string ,index))))
 
 (defvar news-max-plausible-gap 2
 	"* In an rnews directory, the maximum possible gap size.
@@ -166,10 +166,10 @@
 (defmacro news-/ (a1 a2)
 ;; a form of / that guarantees that (/ -1 2) = 0
   (if (zerop (/ -1 2))
-      (` (/ (, a1) (, a2)))
-    (` (if (< (, a1) 0)
-	   (- (/ (- (, a1)) (, a2)))
-	 (/ (, a1) (, a2))))))
+      `(/ ,a1 ,a2)
+    `(if (< ,a1 0)
+	 (- (/ (- ,a1) ,a2))
+       (/ ,a1 ,a2))))
 
 (defun news-find-first-or-last (pfx base dirn)
   ;; first use powers of two to find a plausible ceiling