diff options
| author | Chong Yidong | 2011-02-06 10:04:31 -0500 |
|---|---|---|
| committer | Chong Yidong | 2011-02-06 10:04:31 -0500 |
| commit | f8b351c190ecb3d01bd81a0c4624153b15a95f89 (patch) | |
| tree | 15820500c469cff875386983fd898fde0fbcb8e3 /lisp | |
| parent | 184469b7a092b069aa0ba65053855fbaa91b4607 (diff) | |
| download | emacs-f8b351c190ecb3d01bd81a0c4624153b15a95f89.tar.gz emacs-f8b351c190ecb3d01bd81a0c4624153b15a95f89.zip | |
Remove the check for non-ASCII in report-emacs-bug-hook (Bug#7925).
* mail/emacsbug.el (report-emacs-bug-hook): Remove the check for
non-ASCII characters.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/emacsbug.el | 12 |
2 files changed, 5 insertions, 12 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9857abb879b..b7cdb5f96ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-02-06 Chong Yidong <cyd@stupidchicken.com> | ||
| 2 | |||
| 3 | * mail/emacsbug.el (report-emacs-bug-hook): Remove the check for | ||
| 4 | non-ASCII characters (Bug#7925). | ||
| 5 | |||
| 1 | 2011-02-05 Glenn Morris <rgm@gnu.org> | 6 | 2011-02-05 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * emacs-lisp/cl-macs.el (return-from): Fix doc typo. | 8 | * emacs-lisp/cl-macs.el (return-from): Fix doc typo. |
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index a621647bcf1..9aac041e8bd 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el | |||
| @@ -340,18 +340,6 @@ usually do not have translators to read other languages for them.\n\n") | |||
| 340 | (string-equal (buffer-substring-no-properties (point-min) (point)) | 340 | (string-equal (buffer-substring-no-properties (point-min) (point)) |
| 341 | report-emacs-bug-orig-text) | 341 | report-emacs-bug-orig-text) |
| 342 | (error "No text entered in bug report")) | 342 | (error "No text entered in bug report")) |
| 343 | ;; Check the buffer contents and reject non-English letters. | ||
| 344 | ;; FIXME message-mode probably does this anyway. | ||
| 345 | (goto-char (point-min)) | ||
| 346 | (skip-chars-forward "\0-\177") | ||
| 347 | (unless (eobp) | ||
| 348 | (if (or report-emacs-bug-no-confirmation | ||
| 349 | (y-or-n-p "Convert non-ASCII letters to hexadecimal? ")) | ||
| 350 | (while (progn (skip-chars-forward "\0-\177") | ||
| 351 | (not (eobp))) | ||
| 352 | (let ((ch (following-char))) | ||
| 353 | (delete-char 1) | ||
| 354 | (insert (format "=%02x" ch)))))) | ||
| 355 | 343 | ||
| 356 | ;; The last warning for novice users. | 344 | ;; The last warning for novice users. |
| 357 | (unless (or report-emacs-bug-no-confirmation | 345 | (unless (or report-emacs-bug-no-confirmation |