diff options
| author | Hans Bolinder <[email protected]> | 2012-12-13 09:49:13 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-01-09 09:24:17 +0100 |
| commit | 93d2c2c88e88168354782f356bdf572d0c3aa462 (patch) | |
| tree | ba5f395e721076ef1fac49ee4ed856e76cb316df /lib/stdlib/src/edlin.erl | |
| parent | 151f7832c74975297b1dce6302dd192285d7c2a8 (diff) | |
| download | otp-93d2c2c88e88168354782f356bdf572d0c3aa462.tar.gz otp-93d2c2c88e88168354782f356bdf572d0c3aa462.tar.bz2 otp-93d2c2c88e88168354782f356bdf572d0c3aa462.zip | |
Prepare OTP files for Unicode as default encoding
Diffstat (limited to 'lib/stdlib/src/edlin.erl')
| -rw-r--r-- | lib/stdlib/src/edlin.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/stdlib/src/edlin.erl b/lib/stdlib/src/edlin.erl index 026bd9038f..1164ee49eb 100644 --- a/lib/stdlib/src/edlin.erl +++ b/lib/stdlib/src/edlin.erl @@ -1,7 +1,8 @@ +%% -*- coding: utf-8 -*- %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2010. All Rights Reserved. +%% Copyright Ericsson AB 1996-2012. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -317,9 +318,9 @@ over_non_word([], Stack, N) -> {[],Stack,N}. word_char(C) when C >= $A, C =< $Z -> true; -word_char(C) when C >= $�, C =< $�, C =/= $� -> true; +word_char(C) when C >= $À, C =< $Þ, C =/= $× -> true; word_char(C) when C >= $a, C =< $z -> true; -word_char(C) when C >= $�, C =< $�, C =/= $� -> true; +word_char(C) when C >= $ß, C =< $ÿ, C =/= $÷ -> true; word_char(C) when C >= $0, C =< $9 -> true; word_char(C) when C =:= $_ -> true; word_char(C) when C =:= $. -> true; % accept dot-separated names |