Convert upper case copyright and registered marks

Author: nobu

lib/rdoc/text.rb

@@ -218,10 +218,10 @@ def to_html text
       when s.scan(/\.\.\.(\.?)/) then
         html << s[1] << encoded[:ellipsis]
         after_word = nil
-      when s.scan(/\(c\)/) then
+      when s.scan(/\(c\)/i) then
         html << encoded[:copyright]
         after_word = nil
-      when s.scan(/\(r\)/) then
+      when s.scan(/\(r\)/i) then
         html << encoded[:trademark]
         after_word = nil
       when s.scan(/---/) then

test/rdoc/test_rdoc_text.rb

@@ -495,6 +495,7 @@ def test_to_html_br
 
   def test_to_html_copyright
     assert_equal '©', to_html('(c)')
+    assert_equal '©', to_html('(C)')
   end
 
   def test_to_html_dash
@@ -549,6 +550,7 @@ def test_to_html_html_tag
 
   def test_to_html_registered_trademark
     assert_equal '®', to_html('(r)')
+    assert_equal '®', to_html('(R)')
   end
 
   def test_to_html_tt_tag