diff options
| -rw-r--r-- | lisp/mail/emacsbug.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 667a352f6d6..2e6e3c6b296 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -203,13 +203,14 @@ Type SPC to scroll through this section and its subsections.")))) | |||
| 203 | 203 | ||
| 204 | (defun report-emacs-bug-hook () | 204 | (defun report-emacs-bug-hook () |
| 205 | (save-excursion | 205 | (save-excursion |
| 206 | (goto-char (point-max)) | 206 | (save-excursion |
| 207 | (skip-chars-backward " \t\n") | 207 | (goto-char (point-max)) |
| 208 | (if (and (= (- (point) (point-min)) | 208 | (skip-chars-backward " \t\n") |
| 209 | (length report-emacs-bug-orig-text)) | 209 | (if (and (= (- (point) (point-min)) |
| 210 | (equal (buffer-substring (point-min) (point)) | 210 | (length report-emacs-bug-orig-text)) |
| 211 | report-emacs-bug-orig-text)) | 211 | (equal (buffer-substring (point-min) (point)) |
| 212 | (error "No text entered in bug report")) | 212 | report-emacs-bug-orig-text)) |
| 213 | (error "No text entered in bug report"))) | ||
| 213 | 214 | ||
| 214 | ;; Check the buffer contents and reject non-English letters. | 215 | ;; Check the buffer contents and reject non-English letters. |
| 215 | (save-excursion | 216 | (save-excursion |