mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-26 01:40:53 -08:00
Code Issues Projects Releases Wiki Activity

(mh-quit): Use quit-window.

Browse source
This commit is contained in:
Richard M. Stallman 1998-03-08 00:25:49 +00:00
parent df211784d6
commit 62382d98d0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/mh-e.el
View file

@ -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