From: Jason Rumney <jasonr@gnu.org>
Date: Mon, 1 Sep 2003 21:35:48 +0000 (+0000)
Subject: (tit-read-key-value): Include \r in regexp.
X-Git-Tag: ttn-vms-21-2-B4~8925
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86e7801e0ed07b63a8ae257193147ad293105e64;p=emacs.git

(tit-read-key-value): Include \r in regexp.
---

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 162c84da301..118fe2c2494 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -206,7 +206,7 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy
 
 ;; 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