Pārlūkot izejas kodu

Merge branch 'maint'

Nicolas Goaziou 5 gadi atpakaļ
vecāks
revīzija
7e38f69178
1 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  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)