Use new backquote syntax.

3 files changed, 41 insertions, 41 deletions

diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el
index fa74dd89a56..bf22081b2a9 100644
--- a/lisp/mail/mh-utils.el
+++ b/lisp/mail/mh-utils.el
@@ -217,16 +217,16 @@ also show it in a separate Show window."
   ;; If SAVE-MODIFICATION-FLAG-P is non-nil, the buffer's modification
   ;; flag is unchanged, otherwise it is cleared.
   (setq save-modification-flag-p (car save-modification-flag-p)) ; CL style
-  (` (prog1
-         (let ((mh-folder-updating-mod-flag (buffer-modified-p))
-               (buffer-read-only nil)
-               (buffer-file-name nil))  ;don't let the buffer get locked
-           (prog1
-               (progn
-                 (,@ body))
-             (mh-set-folder-modified-p mh-folder-updating-mod-flag)))
-       (,@ (if (not save-modification-flag-p)
-               '((mh-set-folder-modified-p nil)))))))
+  `(prog1
+       (let ((mh-folder-updating-mod-flag (buffer-modified-p))
+             (buffer-read-only nil)
+             (buffer-file-name nil))    ;don't let the buffer get locked
+         (prog1
+             (progn
+               ,@body)
+           (mh-set-folder-modified-p mh-folder-updating-mod-flag)))
+     ,@(if (not save-modification-flag-p)
+           '((mh-set-folder-modified-p nil)))))
 
 (put 'with-mh-folder-updating 'lisp-indent-hook 1)
 
@@ -235,13 +235,13 @@ also show it in a separate Show window."
   ;; Display buffer SHOW-BUFFER in other window and execute BODY in it.
   ;; Stronger than save-excursion, weaker than save-window-excursion.
   (setq show-buffer (car show-buffer))  ; CL style
-  (` (let ((mh-in-show-buffer-saved-window (selected-window)))
-       (switch-to-buffer-other-window (, show-buffer))
-       (if mh-bury-show-buffer (bury-buffer (current-buffer)))
-       (unwind-protect
-           (progn
-             (,@ body))
-         (select-window mh-in-show-buffer-saved-window)))))
+  `(let ((mh-in-show-buffer-saved-window (selected-window)))
+     (switch-to-buffer-other-window ,show-buffer)
+     (if mh-bury-show-buffer (bury-buffer (current-buffer)))
+     (unwind-protect
+         (progn
+           ,@body)
+       (select-window mh-in-show-buffer-saved-window))))
 
 (put 'mh-in-show-buffer 'lisp-indent-hook 1)
 
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4c5d3476ad6..46240dbabc6 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -465,25 +465,25 @@ The first parenthesized expression should match the MIME-charset name.")
 ;; Perform BODY in the summary buffer
 ;; in such a way that its cursor is properly updated in its own window.
 (defmacro rmail-select-summary (&rest body)
-  (` (let ((total rmail-total-messages))
-       (if (rmail-summary-displayed)
-           (let ((window (selected-window)))
-             (save-excursion
-               (unwind-protect
-                   (progn
-                     (pop-to-buffer rmail-summary-buffer)
-                     ;; rmail-total-messages is a buffer-local var
-                     ;; in the rmail buffer.
-                     ;; This way we make it available for the body
-                     ;; even tho the rmail buffer is not current.
-                     (let ((rmail-total-messages total))
-                       (,@ body)))
-                 (select-window window))))
-         (save-excursion
-           (set-buffer rmail-summary-buffer)
-           (let ((rmail-total-messages total))
-             (,@ body))))
-       (rmail-maybe-display-summary))))
+  `(let ((total rmail-total-messages))
+     (if (rmail-summary-displayed)
+         (let ((window (selected-window)))
+           (save-excursion
+             (unwind-protect
+                 (progn
+                   (pop-to-buffer rmail-summary-buffer)
+                   ;; rmail-total-messages is a buffer-local var
+                   ;; in the rmail buffer.
+                   ;; This way we make it available for the body
+                   ;; even tho the rmail buffer is not current.
+                   (let ((rmail-total-messages total))
+                     ,@body))
+               (select-window window))))
+       (save-excursion
+         (set-buffer rmail-summary-buffer)
+         (let ((rmail-total-messages total))
+           ,@body)))
+     (rmail-maybe-display-summary)))
 
 ;;;; *** Rmail Mode ***
 
diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index 5cd36fc9af2..b1570917ee6 100644
--- a/lisp/mail/rnews.el
+++ b/lisp/mail/rnews.el
@@ -151,7 +151,7 @@ Not currently used.")
 (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 @@ An empty file does not contribute to a gap -- it ends one.")
 (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