/[emacs]/emacs/lisp/mail/emacsbug.el
ViewVC logotype

Diff of /emacs/lisp/mail/emacsbug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by rost, Sat May 18 19:18:46 2002 UTC revision 1.57 by rost, Mon May 20 00:39:23 2002 UTC
# Line 203  Type SPC to scroll through this section Line 203  Type SPC to scroll through this section
203    
204  (defun report-emacs-bug-hook ()  (defun report-emacs-bug-hook ()
205    (save-excursion    (save-excursion
206      (goto-char (point-max))      (save-excursion
207      (skip-chars-backward " \t\n")        (goto-char (point-max))
208      (if (and (= (- (point) (point-min))        (skip-chars-backward " \t\n")
209                  (length report-emacs-bug-orig-text))        (if (and (= (- (point) (point-min))
210               (equal (buffer-substring (point-min) (point))                    (length report-emacs-bug-orig-text))
211                      report-emacs-bug-orig-text))                 (equal (buffer-substring (point-min) (point))
212          (error "No text entered in bug report"))                        report-emacs-bug-orig-text))
213              (error "No text entered in bug report")))
214    
215      ;; Check the buffer contents and reject non-English letters.      ;; Check the buffer contents and reject non-English letters.
216      (save-excursion      (save-excursion

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26