diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-05 01:05:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-05 01:05:15 +0000 |
| commit | 9b4e41acb4d59e491beb0baec79e0952ed18d462 (patch) | |
| tree | 670c9d303a1ec1a15906073e8c9d89ae69fe34e2 /lisp/mail/emacsbug.el | |
| parent | bba88bb1656a5ec8735ed5712916b73e68e7c99d (diff) | |
| download | emacs-9b4e41acb4d59e491beb0baec79e0952ed18d462.tar.gz | |
(report-emacs-bug-hook): Use skip-chars-forward
to check for non-ASCII characters, and to find them.
Don't use find-charset-region.
(report-emacs-bug-pretest-address): Update address.
(report-emacs-bug-address): Likewise.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 14c80057440..d6e15f5b25e 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -1,6 +1,6 @@ ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list. -;; Copyright (C) 1985, 1994, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF @@ -42,12 +42,12 @@ :group 'maint :group 'mail) -(defcustom report-emacs-bug-address "bug-gnu-emacs@prep.ai.mit.edu" +(defcustom report-emacs-bug-address "bug-gnu-emacs@gnu.org" "*Address of mailing list for GNU Emacs bugs." :group 'emacsbug :type 'string) -(defcustom report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.ai.mit.edu" +(defcustom report-emacs-bug-pretest-address "emacs-pretest-bug@gnu.org" "*Address of mailing list for GNU Emacs pretest bugs." :group 'emacsbug :type 'string) @@ -182,19 +182,17 @@ Type SPC to scroll through this section and its subsections."))) (error "No text entered in bug report")) ;; Check the buffer contents and reject non-English letters. - (let ((charsets (delq 'ascii - (find-charset-region (point-min) (point-max))))) - (if charsets + (save-excursion + (goto-char (point-min)) + (skip-chars-forward "\0-\177") + (if (not (eobp)) (if (or report-emacs-bug-no-confirmation (y-or-n-p "Convert non-ASCII letters to hexadecimal? ")) - (save-excursion - (goto-char (point-min)) - (let ((pattern (format "[^%c-%c]" 0 127)) - ch) - (while (re-search-forward pattern nil t) - (setq ch (preceding-char)) - (delete-char -1) - (insert (format "=%02x" ch))))) + (while (progn (skip-chars-forward "\0-\177") + (not (eobp))) + (let ((ch (following-char))) + (delete-char 1) + (insert (format "=%02x" ch)))) (error "Please convert non-ASCII characters to something else")))) ;; The last warning for novice users. |