Mercurial > emacs

changeset 45381:845f37c81b22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug-hook): Do another save-excursion.
author Markus Rost <rost@math.uni-bielefeld.de>
date Mon, 20 May 2002 00:39:23 +0000
parents d658364504ba
children 374dfaadcd0f
files lisp/mail/emacsbug.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Sun May 19 23:23:22 2002 +0000
+++ b/lisp/mail/emacsbug.el	Mon May 20 00:39:23 2002 +0000
@@ -203,13 +203,14 @@
 
 (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