Browse Source

Merge branch 'bugfix'

Nicolas Goaziou 3 years ago
parent
commit
25640ace0f
2 changed files with 4 additions and 1 deletions
  1. 3 0
      lisp/ox.el
  2. 1 1
      testing/lisp/test-org.el

+ 3 - 0
lisp/ox.el

@@ -1050,6 +1050,7 @@ BACKEND is a structure with `org-export-backend' type."
   (unless (org-export-backend-p backend)
     (error "Unknown \"%s\" back-end: Aborting export" backend)))
 
+;;;###autoload
 (defun org-export-derived-backend-p (backend &rest backends)
   "Non-nil if BACKEND is derived from one of BACKENDS.
 BACKEND is an export back-end, as returned by, e.g.,
@@ -1860,6 +1861,7 @@ INFO is a plist containing export directives."
       (let ((transcoder (cdr (assq type (plist-get info :translate-alist)))))
 	(and (functionp transcoder) transcoder)))))
 
+;;;###autoload
 (defun org-export-data (data info)
   "Convert DATA into current back-end format.
 
@@ -4591,6 +4593,7 @@ objects of the same type."
 ;; `org-export-raw-string' builds a pseudo-object out of a string
 ;; that any export back-end returns as-is.
 
+;;;###autoload
 (defun org-export-raw-string (s)
   "Return a raw object containing string S.
 A raw string is exported as-is, with no additional processing

+ 1 - 1
testing/lisp/test-org.el

@@ -7446,7 +7446,7 @@ CLOCK: [2012-03-29 Thu 10:00]--[2012-03-29 Thu 16:40] =>  6:40"
   (should
    (string-match-p
     (rx "* TODO Read book
-SCHEDULED: <2021-06-16 Wed +1d>
+SCHEDULED: <2021-06-16 " (1+ (not space)) " +1d>
 :PROPERTIES:
 :LAST_REPEAT:" (1+ nonl) "
 :END: