Browse Source

org-export-generic.el: Use `aput'

Carsten Dominik 15 năm trước cách đây
mục cha
commit
44aab15748
2 tập tin đã thay đổi với 4 bổ sung1 xóa
  1. 2 0
      contrib/ChangeLog
  2. 2 1
      contrib/lisp/org-export-generic.el

+ 2 - 0
contrib/ChangeLog

@@ -1,5 +1,7 @@
 2009-11-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* lisp/org-export-generic.el (org-set-generic-type): Use `aput'.
+
 	* lisp/org-git-link.el (org-git-gitrepos-p): Make definition
 	XEmacs compatible.
 

+ 2 - 1
contrib/lisp/org-export-generic.el

@@ -96,6 +96,7 @@
 ;;; Commentary:
 
 (require 'org-exp)
+(require 'assoc)
 
 (defgroup org-export-generic nil
   "Options specific for ASCII export of Org-mode files."
@@ -440,7 +441,7 @@ in this way, it will be wrapped."
 (defun org-set-generic-type (type definition)
   "Adds a TYPE and DEFINITION to the existing list of defined generic
 export definitions."
-  (set-alist 'org-generic-alist type definition))
+  (aput 'org-generic-alist type definition))
 
 (defun org-export-generic-remember-section (type suffix &optional prefix)
   (setq org-export-generic-section-type type)