diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 2002-05-20 00:39:23 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 2002-05-20 00:39:23 +0000 |
| commit | c71276553df19da29003991e05d2fec083de57a2 (patch) | |
| tree | fd11db7ae2a6ac7a577362caf278503eeb84d35f /lisp/mail/emacsbug.el | |
| parent | 02f85cbae5e72a47ea3dbaca5e770d5243e85ec2 (diff) | |
| download | emacs-c71276553df19da29003991e05d2fec083de57a2.tar.gz | |
(report-emacs-bug-hook): Do another save-excursion.
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 |