diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-19 03:07:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-19 03:07:53 +0000 |
| commit | 265519e3f7184dff54f2aff486d11abaf9c6b0e0 (patch) | |
| tree | 120f52cdefcbfebf19d75a4f363a816b8b5fb99d /lisp | |
| parent | 3ea1bd5099e435023964f64762610fc8cdab1e54 (diff) | |
| download | emacs-265519e3f7184dff54f2aff486d11abaf9c6b0e0.tar.gz | |
(select-safe-coding-system): Hightlight at most 256 characters.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index c05129bfc17..cc72c2580c0 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -495,7 +495,8 @@ and TO is ignored." (beginning-of-line) (set-window-start (selected-window) (point)) (save-excursion - (while (re-search-forward "[^\000-\177]" to t) + (while (and (< (length overlays) 256) + (re-search-forward "[^\000-\177]" to t)) (let* ((char (preceding-char)) (charset (char-charset char))) (when (assq charset non-safe-chars) |