From 38d035de172e41ad1e7d71586473236e9a25c79c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 29 Jul 2005 11:44:21 +0000 Subject: (robin-define-package): Be sure to call put-char-code-property. --- lisp/international/robin.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'lisp/international/robin.el') diff --git a/lisp/international/robin.el b/lisp/international/robin.el index 7698eb4fa8c..7403a821e08 100644 --- a/lisp/international/robin.el +++ b/lisp/international/robin.el @@ -293,7 +293,7 @@ one replaces the old one." (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 @@ one replaces the old one." (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) -- cgit v1.2.1