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 |