(robin-define-package): Make the expaneded form shorter.

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)