Mercurial > emacs
changeset 15319:4dbee658e623
(reporter-submit-bug-report):
Bind same-window-regexps, same-window-buffer-names, to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 03 Jun 1996 14:39:17 +0000 |
| parents | 5828249cac7d |
| children | b76f57d4320b |
| files | lisp/mail/reporter.el |
| diffstat | 1 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/reporter.el Mon Jun 03 12:51:33 1996 +0000 +++ b/lisp/mail/reporter.el Mon Jun 03 14:39:17 1996 +0000 @@ -1,7 +1,6 @@ ;;; reporter.el --- customizable bug reporting of lisp programs -;; Copyright (C) 1993 1994 Barry A. Warsaw -;; Copyright (C) 1993 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: 1993 Barry A. Warsaw <bwarsaw@cnri.reston.va.us> ;; Maintainer: bwarsaw@cnri.reston.va.us @@ -334,7 +333,10 @@ (problem (and reporter-prompt-for-summary-p (read-string "(Very) brief summary of problem: "))) (mailbuf - (progn + ;; Normally *mail* is directed to appear in the same window, + ;; but we don't want that to happen here. + (let (same-window-buffer-names + same-window-regexps) (call-interactively (if (nlistp reporter-mailer) reporter-mailer @@ -352,8 +354,14 @@ mailer))) (current-buffer)))) (require 'sendmail) - (pop-to-buffer mailbuf) - (display-buffer reporter-eval-buffer) + ;; If mailbuf did not get made visible before, + ;; make it visible now. + (let (same-window-buffer-names + same-window-regexps) + (pop-to-buffer mailbuf) + ;; Just in case the original buffer is not visible now, + ;; bring it back somewhere. + (display-buffer reporter-eval-buffer)) (goto-char (point-min)) ;; different mailers use different separators, some may not even ;; use m-h-s, but sendmail.el stuff must have m-h-s bound.