* lisp/org.el (org-set-regexps-and-options): Do not ignore "^:nil"
  options.
(org--setup-collect-keywords): Fix docstring.
This commit is contained in:
Nicolas Goaziou 2014-12-05 23:26:40 +01:00
parent 40a5b7af99
commit c10ae1a1bb
1 changed files with 4 additions and 3 deletions

View File

@ -4980,8 +4980,9 @@ related expressions."
(org-set-local 'org-lowest-priority (nth 1 priorities)) (org-set-local 'org-lowest-priority (nth 1 priorities))
(org-set-local 'org-default-priority (nth 2 priorities)))) (org-set-local 'org-default-priority (nth 2 priorities))))
;; Scripts. ;; Scripts.
(let ((scripts (cdr (assq 'scripts alist)))) (let ((scripts (assq 'scripts alist)))
(when scripts (org-set-local 'org-use-sub-superscripts scripts))) (when scripts
(org-set-local 'org-use-sub-superscripts (cdr scripts))))
;; Startup options. ;; Startup options.
(let ((startup (cdr (assq 'startup alist)))) (let ((startup (cdr (assq 'startup alist))))
(dolist (option startup) (dolist (option startup)
@ -5097,7 +5098,7 @@ files. ALIST, when non-nil, is the alist computed so far.
Return value contains the following keys: `archive', `category', Return value contains the following keys: `archive', `category',
`columns', `constants', `filetags', `link', `priorities', `columns', `constants', `filetags', `link', `priorities',
`property', `startup', `tags', `todo' and `scripts'." `property', `scripts', `startup', `tags' and `todo'."
(org-with-wide-buffer (org-with-wide-buffer
(goto-char (point-min)) (goto-char (point-min))
(let ((case-fold-search t)) (let ((case-fold-search t))