From 62382d98d08d411216693b20f47dbdd3eac5d4be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 00:25:49 +0000 Subject: [PATCH] (mh-quit): Use quit-window. --- lisp/mail/mh-e.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 7400b78f9fd..c6fa468f4f1 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el @@ -60,7 +60,7 @@ ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu -(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.16 1997/07/23 21:39:50 rms Exp rms $") +(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.17 1997/09/04 20:25:56 rms Exp rms $") ;;; Code: @@ -437,7 +437,7 @@ configuration, if one exists. Finish by running mh-quit-hook." (run-hooks 'mh-before-quit-hook) (mh-update-sequences) (mh-invalidate-show-buffer) - (bury-buffer (current-buffer)) + (quit-window) (if (get-buffer mh-show-buffer) (bury-buffer mh-show-buffer)) (if mh-previous-window-config -- 2.39.2