Commit 38d035de authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(robin-define-package): Be sure to call put-char-code-property.

parent a337abfc
...@@ -293,7 +293,7 @@ one replaces the old one." ...@@ -293,7 +293,7 @@ one replaces the old one."
(let ((iname (intern name)) (let ((iname (intern name))
(new (list name "")) ; "" as a fake output (new (list name "")) ; "" as a fake output
input output) input output pairs)
(dolist (r rules) (dolist (r rules)
(setq input (car r) (setq input (car r)
output (cadr r)) output (cadr r))
...@@ -301,17 +301,23 @@ one replaces the old one." ...@@ -301,17 +301,23 @@ one replaces the old one."
(cond (cond
((not (stringp input)) ((not (stringp input))
(error "Bad input sequence %S" r)) (error "Bad input sequence %S" r))
((char-valid-p output) ((characterp output)
(put-char-code-property output iname input)) (setq pairs
(cons (cons input output)
pairs)))
((not (stringp output)) ((not (stringp output))
(error "Bad output pattern %S" r)))) (error "Bad output pattern %S" r))))
(setcar (cdr new) docstring) ; replace "" above with real docstring (setcar (cdr new) docstring) ; replace "" above with real docstring
`(let ((slot (assoc ,name robin-package-alist)) `(let ((slot (assoc ,name robin-package-alist))
(newdef ',new)) (newdef ',new)
(prop ',iname)
(lst ',pairs))
(if slot (if slot
(setcdr slot (cdr newdef)) (setcdr slot (cdr newdef))
(setq robin-package-alist (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 ;;;###autoload
(defun robin-modify-package (name input output) (defun robin-modify-package (name input output)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment