diff options
| author | Markus Rost | 2002-05-20 00:39:23 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-05-20 00:39:23 +0000 |
| commit | c71276553df19da29003991e05d2fec083de57a2 (patch) | |
| tree | fd11db7ae2a6ac7a577362caf278503eeb84d35f | |
| parent | 02f85cbae5e72a47ea3dbaca5e770d5243e85ec2 (diff) | |
| download | emacs-c71276553df19da29003991e05d2fec083de57a2.tar.gz emacs-c71276553df19da29003991e05d2fec083de57a2.zip | |
(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 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 |