forked from mirrors/org-mode
org-archive: Fix `org-all-archive-files'
* lisp/org-archive.el (org-all-archive-files): Fix comparison function. Reported-by: Nils Gustafsson <nils.gustafsson@bredband2.com> <http://lists.gnu.org/r/emacs-orgmode/2018-10/msg00395.html>
This commit is contained in:
parent
42eebb3755
commit
85a675b939
|
@ -160,20 +160,18 @@ archive file is."
|
|||
|
||||
(defun org-all-archive-files ()
|
||||
"Get a list of all archive files used in the current buffer."
|
||||
(let ((case-fold-search t)
|
||||
files)
|
||||
(org-with-wide-buffer
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward
|
||||
"^[ \t]*\\(#\\+\\|:\\)ARCHIVE:[ \t]+\\(.*\\)"
|
||||
nil t)
|
||||
(when (save-match-data
|
||||
(if (eq (match-string 1) ":") (org-at-property-p)
|
||||
(eq (org-element-type (org-element-at-point)) 'keyword)))
|
||||
(let ((file (org-extract-archive-file
|
||||
(match-string-no-properties 2))))
|
||||
(when (and (org-string-nw-p file) (file-exists-p file))
|
||||
(push file files))))))
|
||||
(let (files)
|
||||
(org-with-point-at 1
|
||||
(let ((regexp "^[ \t]*\\(#\\+\\|:\\)ARCHIVE:[ \t]+\\(.*\\)")
|
||||
(case-fold-search t))
|
||||
(while (re-search-forward regexp nil t)
|
||||
(when (save-match-data
|
||||
(if (equal ":" (match-string 1)) (org-at-property-p)
|
||||
(eq 'keyword (org-element-type (org-element-at-point)))))
|
||||
(let ((file (org-extract-archive-file
|
||||
(match-string-no-properties 2))))
|
||||
(when (and (org-string-nw-p file) (file-exists-p file))
|
||||
(push file files)))))))
|
||||
(setq files (nreverse files))
|
||||
(let ((file (org-extract-archive-file)))
|
||||
(when (and (org-string-nw-p file) (file-exists-p file))
|
||||
|
|
Loading…
Reference in a new issue