From: shuhei-k <shuhei-k>
Date: Sat, 21 Mar 1998 04:46:57 +0000 (+0000)
Subject: (eword-lexical-analyze-internal): Fixed return value.
X-Git-Tag: semi-1_1_2~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7b3bd9ff8442afa80c8c9db7fc571f9d54a813b8;p=elisp%2Fsemi.git

(eword-lexical-analyze-internal): Fixed return value.
---

diff --git a/eword-decode.el b/eword-decode.el
index aa638db..3f5a4c7 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -454,7 +454,7 @@ be the result."
 			  (null (setq r (funcall func string must-unfold)))
 			  )
 		(setq rest (cdr rest)))
-	      (or r '((error) . ""))
+	      (or r `((error . ,string) . ""))
 	      ))
       (setq dest (cons (car ret) dest))
       (setq string (cdr ret))