diff options
| author | Eli Zaretskii | 2001-08-31 18:00:54 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-08-31 18:00:54 +0000 |
| commit | 5e11c4250110a4cd8ce7c511d0d4b3e595f34c8e (patch) | |
| tree | 9dd71c77c542a19226ecff6f49f9915cb6a0ba10 | |
| parent | 59b7ded8724b7f35c010150a268b0ef0d0342d17 (diff) | |
| download | emacs-5e11c4250110a4cd8ce7c511d0d4b3e595f34c8e.tar.gz emacs-5e11c4250110a4cd8ce7c511d0d4b3e595f34c8e.zip | |
(report-emacs-bug): Make sure *Messages*
exists. From Andy Petrusenco <andy@int.spb.ru>.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/mail/emacsbug.el | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c2eb84ba64..8ef46c40bef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,11 @@ | |||
| 1 | 2001-08-31 Eli Zaretskii <eliz@is.elta.co.il> | 1 | 2001-08-31 Eli Zaretskii <eliz@is.elta.co.il> |
| 2 | 2 | ||
| 3 | * mail/emacsbug.el (report-emacs-bug): Make sure *Messages* | ||
| 4 | exists. From Andy Petrusenco <andy@int.spb.ru>. | ||
| 5 | |||
| 3 | * hi-lock.el (hi-lock-unface-buffer): Don't call x-popup-menu if | 6 | * hi-lock.el (hi-lock-unface-buffer): Don't call x-popup-menu if |
| 4 | display-popup-menus-p returns nil. | 7 | display-popup-menus-p returns nil. Suggested by Andy Petrusenco |
| 8 | <andy@int.spb.ru>. | ||
| 5 | 9 | ||
| 6 | 2001-08-31 Gerd Moellmann <gerd@gnu.org> | 10 | 2001-08-31 Gerd Moellmann <gerd@gnu.org> |
| 7 | 11 | ||
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index ccccdddea58..8da08494add 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -77,7 +77,7 @@ Prompts for bug subject. Leaves you in a mail buffer." | |||
| 77 | (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) | 77 | (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) |
| 78 | user-point message-end-point) | 78 | user-point message-end-point) |
| 79 | (setq message-end-point | 79 | (setq message-end-point |
| 80 | (with-current-buffer (get-buffer "*Messages*") | 80 | (with-current-buffer (get-buffer-create "*Messages*") |
| 81 | (point-max-marker))) | 81 | (point-max-marker))) |
| 82 | (compose-mail (if pretest-p | 82 | (compose-mail (if pretest-p |
| 83 | report-emacs-bug-pretest-address | 83 | report-emacs-bug-pretest-address |