diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-07-26 05:40:05 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-07-26 05:40:05 +0000 |
| commit | 06e38a9b2816b43bb1be44f9a3ab88bae27be246 (patch) | |
| tree | 2395dd042c0a4044880793a7b07806f1fd65e879 /lisp/international/robin.el | |
| parent | 3674ae2f87e47a654524af689ea610ee3edeaca7 (diff) | |
| download | emacs-06e38a9b2816b43bb1be44f9a3ab88bae27be246.tar.gz | |
(robin-define-package): Make the expaneded form shorter.
Diffstat (limited to 'lisp/international/robin.el')
| -rw-r--r-- | lisp/international/robin.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/international/robin.el b/lisp/international/robin.el index d78bc9a7960..ff5ad4f6c5d 100644 --- a/lisp/international/robin.el +++ b/lisp/international/robin.el @@ -310,7 +310,12 @@ one replaces the old one." (setcdr old (cdr new)) (setq robin-package-alist (cons new robin-package-alist))) - `(setq robin-package-alist ',robin-package-alist))) + `(let ((slot (assoc ,name robin-package-alist)) + (newdef ',new)) + (if slot + (setcdr slot (cdr newdef)) + (setq robin-package-alist + (cons newdef robin-package-alist)))))) ;;;###autoload (defun robin-modify-package (name input output) |