Mercurial > emacs
annotate lisp/mail/emacsbug.el @ 16601:7361b2115a77 libc-961121
cleanups
author | David J. MacKenzie <djm@gnu.org> |
---|---|
date | Wed, 20 Nov 1996 21:28:32 +0000 |
parents | a04c1653a37c |
children | 36a661aac20a |
rev | line source |
---|---|
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
474
diff
changeset
|
1 ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list. |
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
474
diff
changeset
|
2 |
7300 | 3 ;; Copyright (C) 1985, 1994 Free Software Foundation, Inc. |
845 | 4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
794
diff
changeset
|
5 ;; Author: K. Shane Hartman |
794
2598c08c91c2
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
6 ;; Maintainer: FSF |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
7 ;; Keywords: maint |
794
2598c08c91c2
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
8 |
36 | 9 ;; Not fully installed because it can work only on Internet hosts. |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
794
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, or (at your option) |
36 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
36 | 26 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
27 ;;; Commentary: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
28 |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
29 ;; `M-x report-emacs-bug ' starts an email note to the Emacs maintainers |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
30 ;; describing a problem. Here's how it's done... |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2247
diff
changeset
|
31 |
794
2598c08c91c2
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
32 ;;; Code: |
36 | 33 |
34 ;; >> This should be an address which is accessible to your machine, | |
35 ;; >> otherwise you can't use this file. It will only work on the | |
36 ;; >> internet with this address. | |
37 | |
6971
90859715093d
(report-emacs-bug): Insert at separator, not at end.
Karl Heuer <kwzh@gnu.org>
parents:
2348
diff
changeset
|
38 (require 'sendmail) |
90859715093d
(report-emacs-bug): Insert at separator, not at end.
Karl Heuer <kwzh@gnu.org>
parents:
2348
diff
changeset
|
39 |
36 | 40 (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" |
14815
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
41 "Address of mailing list for GNU Emacs bugs.") |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
42 |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
43 (defvar report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.ai.mit.edu" |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
44 "Address of mailing list for GNU Emacs pretest bugs.") |
36 | 45 |
8130
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
46 (defvar report-emacs-bug-orig-text nil |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
47 "The automatically-created initial text of bug report.") |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
48 |
474 | 49 ;;;###autoload |
16576
a04c1653a37c
(report-emacs-bug): Reorder arguments.
Erik Naggum <erik@naggum.no>
parents:
16572
diff
changeset
|
50 (defun report-emacs-bug (topic &optional recent-keys) |
474 | 51 "Report a bug in GNU Emacs. |
36 | 52 Prompts for bug subject. Leaves you in a mail buffer." |
16576
a04c1653a37c
(report-emacs-bug): Reorder arguments.
Erik Naggum <erik@naggum.no>
parents:
16572
diff
changeset
|
53 ;; This strange form ensures that (recent-keys) is the value before |
a04c1653a37c
(report-emacs-bug): Reorder arguments.
Erik Naggum <erik@naggum.no>
parents:
16572
diff
changeset
|
54 ;; the bug subject string is read. |
a04c1653a37c
(report-emacs-bug): Reorder arguments.
Erik Naggum <erik@naggum.no>
parents:
16572
diff
changeset
|
55 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) |
14815
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
56 (if (mail nil |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
57 (if (string-match "\\..*\\..*\\." emacs-version) |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
58 ;; If there are four numbers in emacs-version, |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
59 ;; this is a pretest version. |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
60 report-emacs-bug-pretest-address |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
61 bug-gnu-emacs) |
4a742f2d5328
(report-emacs-bug): Use a different address for pretest versions.
Richard M. Stallman <rms@gnu.org>
parents:
14280
diff
changeset
|
62 topic) |
13795
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
63 (let (user-point) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
64 ;; The rest of this does not execute |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
65 ;; if the user was asked to confirm and said no. |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
66 (goto-char (point-min)) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
67 (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
68 (insert "In " (emacs-version) "\n") |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
69 (if (and system-configuration-options |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
70 (not (equal system-configuration-options ""))) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
71 (insert "configured using `configure " |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
72 system-configuration-options "'\n")) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
73 (insert "\n") |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
74 (insert "Please describe exactly what actions triggered the bug\n" |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
75 "and the precise symptoms of the bug:\n\n") |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
76 (setq user-point (point)) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
77 (insert "\n\n\n" |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
78 "Recent input:\n") |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
79 (let ((before-keys (point))) |
14280
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
80 (insert (mapconcat (lambda (key) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
81 (if (or (integerp key) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
82 (symbolp key) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
83 (listp key)) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
84 (single-key-description key) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
85 (prin1-to-string key nil))) |
16576
a04c1653a37c
(report-emacs-bug): Reorder arguments.
Erik Naggum <erik@naggum.no>
parents:
16572
diff
changeset
|
86 (or recent-keys (recent-keys)) |
13795
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
87 " ")) |
14280
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
88 (save-restriction |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
89 (narrow-to-region before-keys (point)) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
90 (goto-char before-keys) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
91 (while (progn (move-to-column 50) (not (eobp))) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
92 (search-forward " " nil t) |
0134b04bc92d
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Erik Naggum <erik@naggum.no>
parents:
14169
diff
changeset
|
93 (insert "\n")))) |
13816
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
94 (let ((message-buf (get-buffer "*Messages*"))) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
95 (if message-buf |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
96 (progn |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
97 (insert "\n\nRecent messages:\n") |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
98 (insert-buffer-substring message-buf |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
99 (save-excursion |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
100 (set-buffer message-buf) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
101 (goto-char (point-max)) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
102 (forward-line -10) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
103 (point)) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
104 (save-excursion |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
105 (set-buffer message-buf) |
777c7668b8b0
(report-emacs-bug): Don't die if *Messages* buf is gone.
Karl Heuer <kwzh@gnu.org>
parents:
13795
diff
changeset
|
106 (point-max)))))) |
13795
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
107 ;; This is so the user has to type something |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
108 ;; in order to send easily. |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
109 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
110 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
111 (with-output-to-temp-buffer "*Bug Help*" |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
112 (princ (substitute-command-keys |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
113 "Type \\[mail-send-and-exit] to send the bug report.\n")) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
114 (princ (substitute-command-keys |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
115 "Type \\[kill-buffer] RET to cancel (don't send it).\n")) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
116 (terpri) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
117 (princ (substitute-command-keys |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
118 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section |
12155
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
119 about when and how to write a bug report, |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
120 and what information to supply so that the bug can be fixed. |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
121 Type SPC to scroll through this section and its subsections."))) |
13795
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
122 ;; Make it less likely people will send empty messages. |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
123 (make-local-variable 'mail-send-hook) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
124 (add-hook 'mail-send-hook 'report-emacs-bug-hook) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
125 (save-excursion |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
126 (goto-char (point-max)) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
127 (skip-chars-backward " \t\n") |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
128 (make-local-variable 'report-emacs-bug-orig-text) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
129 (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point)))) |
7665c2422011
(report-emacs-bug): If `mail' asks for confirmation
Karl Heuer <kwzh@gnu.org>
parents:
13251
diff
changeset
|
130 (goto-char user-point)))) |
8130
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
131 |
12155
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
132 (defun report-emacs-bug-info () |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
133 "Go to the Info node on reporting Emacs bugs." |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
134 (interactive) |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
135 (info) |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
136 (Info-directory) |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
137 (Info-menu "emacs") |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
138 (Info-goto-node "Bugs")) |
63887def546f
(report-emacs-bug-info): New command.
Karl Heuer <kwzh@gnu.org>
parents:
8921
diff
changeset
|
139 |
8130
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
140 (defun report-emacs-bug-hook () |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
141 (save-excursion |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
142 (goto-char (point-max)) |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
143 (skip-chars-backward " \t\n") |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
144 (if (and (= (- (point) (point-min)) |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
145 (length report-emacs-bug-orig-text)) |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
146 (equal (buffer-substring (point-min) (point)) |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
147 report-emacs-bug-orig-text)) |
c84ecb24316c
(report-emacs-bug-hook): Error if user has added no text.
Richard M. Stallman <rms@gnu.org>
parents:
7300
diff
changeset
|
148 (error "No text entered in bug report")))) |
36 | 149 |
2348
581cda633215
Added a (provide 'emacsbug); lisp-mnt.el needs this.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
150 (provide 'emacsbug) |
581cda633215
Added a (provide 'emacsbug); lisp-mnt.el needs this.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2307
diff
changeset
|
151 |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
474
diff
changeset
|
152 ;;; emacsbug.el ends here |