diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-15 14:26:07 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-15 14:26:07 +0000 |
| commit | b787fc059e638aa08d18aa45ad30b77af50f5232 (patch) | |
| tree | 876d02134baedd58285491f1cc15efa457225b44 /lisp/mail/mh-utils.el | |
| parent | 8e42f594dde4fa530580bd0bff2e9921dec3ce9e (diff) | |
| download | emacs-b787fc059e638aa08d18aa45ad30b77af50f5232.tar.gz | |
Use new backquote syntax.
Diffstat (limited to 'lisp/mail/mh-utils.el')
| -rw-r--r-- | lisp/mail/mh-utils.el | 34 |
1 files changed, 17 insertions, 17 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) |