Nicolas Goaziou 5 роки тому
батько
коміт
7e38f69178
1 змінених файлів з 3 додано та 3 видалено
  1. 3 3
      lisp/org-macro.el

+ 3 - 3
lisp/org-macro.el

@@ -89,9 +89,9 @@ VALUE is the template of the macro.  The new value override the
 previous one, unless VALUE is nil.  TEMPLATES is the list of
 previous one, unless VALUE is nil.  TEMPLATES is the list of
 templates.  Return the updated list."
 templates.  Return the updated list."
   (let ((old-definition (assoc name templates)))
   (let ((old-definition (assoc name templates)))
-    (if (and value old-definition)
-	(setcdr old-definition value)
-      (push (cons name (or value "")) templates)))
+    (cond ((and value old-definition) (setcdr old-definition value))
+	  (old-definition)
+	  (t (push (cons name (or value "")) templates))))
   templates)
   templates)
 
 
 (defun org-macro--collect-macros (&optional files templates)
 (defun org-macro--collect-macros (&optional files templates)