diff options
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -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.")))) (defun report-emacs-bug-hook () (save-excursion - (goto-char (point-max)) - (skip-chars-backward " \t\n") - (if (and (= (- (point) (point-min)) - (length report-emacs-bug-orig-text)) - (equal (buffer-substring (point-min) (point)) - report-emacs-bug-orig-text)) - (error "No text entered in bug report")) + (save-excursion + (goto-char (point-max)) + (skip-chars-backward " \t\n") + (if (and (= (- (point) (point-min)) + (length report-emacs-bug-orig-text)) + (equal (buffer-substring (point-min) (point)) + report-emacs-bug-orig-text)) + (error "No text entered in bug report"))) ;; Check the buffer contents and reject non-English letters. (save-excursion |