Commit 06e38a9b authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent 3674ae2f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment