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

06e38a9b · Kenichi Handa · 3674ae2f · 06e38a9b
Commit 06e38a9b authored Jul 26, 2005 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/international/robin.el lisp/international/robin.el +6 -1

No files found.
--- 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)