Mercurial > emacs

changeset 90220:26b71cf7f16d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(robin-define-package): Be sure to call put-char-code-property.
author Kenichi Handa <handa@m17n.org>
date Fri, 29 Jul 2005 11:44:21 +0000
parents 15c0ba5c75ff
children 1448ae7fe324
files lisp/international/robin.el
diffstat 1 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/robin.el	Fri Jul 29 11:12:50 2005 +0000
+++ b/lisp/international/robin.el	Fri Jul 29 11:44:21 2005 +0000
@@ -293,7 +293,7 @@
 
   (let ((iname (intern name))
 	(new (list name ""))		; "" as a fake output
-	input output)
+	input output pairs)
     (dolist (r rules)
       (setq input (car r)
 	    output (cadr r))
@@ -301,17 +301,23 @@
       (cond
        ((not (stringp input))
 	(error "Bad input sequence %S" r))
-       ((char-valid-p output)
-	(put-char-code-property output iname input))
+       ((characterp output)
+	(setq pairs
+	      (cons (cons input output)
+		    pairs)))
        ((not (stringp output))
 	(error "Bad output pattern %S" r))))
     (setcar (cdr new) docstring)	; replace "" above with real docstring
     `(let ((slot (assoc ,name robin-package-alist))
-	   (newdef ',new))
+	   (newdef ',new)
+	   (prop ',iname)
+	   (lst ',pairs))
        (if slot
 	   (setcdr slot (cdr newdef))
 	 (setq robin-package-alist
-	       (cons newdef robin-package-alist))))))
+	       (cons newdef robin-package-alist)))
+       (dolist (l lst)
+	 (put-char-code-property (cdr l) prop (car l))))))
 
 ;;;###autoload
 (defun robin-modify-package (name input output)