diff options
author | Markus Rost <[email protected]> | 2002-05-20 00:39:23 +0000 |
---|---|---|
committer | Markus Rost <[email protected]> | 2002-05-20 00:39:23 +0000 |
commit | c71276553df19da29003991e05d2fec083de57a2 (patch) | |
tree | fd11db7ae2a6ac7a577362caf278503eeb84d35f | |
parent | 02f85cbae5e72a47ea3dbaca5e770d5243e85ec2 (diff) |
(report-emacs-bug-hook): Do another save-excursion.
-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 667a352f6d..2e6e3c6b29 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 |