Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 21353:2cdadff1ea25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug-hook): Don't bind enable-multibyte-characters.
author Richard M. Stallman <rms@gnu.org>
date Sat, 04 Apr 1998 00:07:57 +0000
parents ede1a6e9e122
children 238c1cd70a27
comparison
equal deleted inserted replaced
21352:b9275822b6f5 21353:2cdadff1ea25
187 (if charsets 187 (if charsets
188 (if (or report-emacs-bug-no-confirmation 188 (if (or report-emacs-bug-no-confirmation
189 (y-or-n-p "Convert non-ASCII letters to hexadecimal? ")) 189 (y-or-n-p "Convert non-ASCII letters to hexadecimal? "))
190 (save-excursion 190 (save-excursion
191 (goto-char (point-min)) 191 (goto-char (point-min))
192 (let ((enable-multibyte-characters nil) 192 (let ((pattern (format "[^%c-%c]" 0 127))
193 (pattern (format "[^%c-%c]" 0 127))
194 ch) 193 ch)
195 (while (re-search-forward pattern nil t) 194 (while (re-search-forward pattern nil t)
196 (setq ch (preceding-char)) 195 (setq ch (preceding-char))
197 (delete-char -1) 196 (delete-char -1)
198 (insert (format "=%02x" ch))))) 197 (insert (format "=%02x" ch)))))