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

diff --git a/lisp/international/robin.el b/lisp/international/robin.el
index d78bc9a79606de2181528b242a3147c5789ffa1b..ff5ad4f6c5d6da9ad84842dbd30b7e8eef99adbf 100644 (file)
--- 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)