Mercurial > emacs

changeset 21546:674be6359675

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-quit): mh-show-buffer can be nil.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Apr 1998 06:31:29 +0000
parents 2c4281059c0a
children b2295127eff0
files lisp/mail/mh-e.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mh-e.el	Wed Apr 15 06:30:16 1998 +0000
+++ b/lisp/mail/mh-e.el	Wed Apr 15 06:31:29 1998 +0000
@@ -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.17 1997/09/04 20:25:56 rms Exp rms $")
+(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.18 1998/03/08 00:25:49 rms Exp kwzh $")
 
 ;;; Code:
 
@@ -438,8 +438,9 @@
   (mh-update-sequences)
   (mh-invalidate-show-buffer)
   (quit-window)
-  (if (get-buffer mh-show-buffer)
-      (bury-buffer mh-show-buffer))
+  (and mh-show-buffer
+       (get-buffer mh-show-buffer)
+       (bury-buffer mh-show-buffer))
   (if mh-previous-window-config
       (set-window-configuration mh-previous-window-config))
   (run-hooks 'mh-quit-hook))