Mercurial > emacs

changeset 90204:7eec7b87433c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(robin-define-package): Make the expaneded form shorter.
author Kenichi Handa <handa@m17n.org>
date Tue, 26 Jul 2005 05:40:05 +0000
parents 187d6a1f84f7
children 126df178ebb9
files lisp/international/robin.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/robin.el	Fri Jul 22 08:27:27 2005 +0000
+++ b/lisp/international/robin.el	Tue Jul 26 05:40:05 2005 +0000
@@ -310,7 +310,12 @@
 	(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)