From 86e7801e0ed07b63a8ae257193147ad293105e64 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Mon, 1 Sep 2003 21:35:48 +0000 Subject: [PATCH] (tit-read-key-value): Include \r in regexp. --- lisp/international/titdic-cnv.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2