(tit-read-key-value): Include \r in regexp.
authorJason Rumney <jasonr@gnu.org>
Mon, 1 Sep 2003 21:35:48 +0000 (21:35 +0000)
committerJason Rumney <jasonr@gnu.org>
Mon, 1 Sep 2003 21:35:48 +0000 (21:35 +0000)
lisp/international/titdic-cnv.el

index 162c84d..118fe2c 100644 (file)
@@ -206,7 +206,7 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:\e$(0?v(N\e(B, 6:\e$(0Dm(N\e(B, 3:\e$(0&9Vy\e
 
 ;; Return a value of the key in the current line.
 (defsubst tit-read-key-value ()
-  (if (looking-at "[^ \t\n]+")
+  (if (looking-at "[^ \t\r\n]+")
       (car (read-from-string (concat "\"" (match-string 0) "\"")))))
 
 ;; Return an appropriate quail-package filename from FILENAME (TIT