forked from mirrors/org-mode
Apply patch to fix registry
Patch by Andreas Burtzlaff
This commit is contained in:
parent
0410d6460c
commit
bdb6992813
|
@ -1,3 +1,8 @@
|
|||
2009-10-22 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* lisp/org-registry.el (org-registry-assoc-all)
|
||||
(org-registry-find-all): Clean rewrite
|
||||
|
||||
2009-10-19 James TD Smith <ahktenzero@mohorovi.cc>
|
||||
|
||||
* lisp/org-registry.el (org-registry-assoc-all): Stop this from
|
||||
|
|
|
@ -145,19 +145,16 @@ buffer."
|
|||
|
||||
(defun org-registry-assoc-all (link &optional registry)
|
||||
"Return all associated entries of LINK in the registry."
|
||||
(let ((reg (copy-list (or org-registry-alist registry))) entry output)
|
||||
(while (setq entry (assoc link reg))
|
||||
(add-to-list 'output entry)
|
||||
(setq reg (delete entry reg)))
|
||||
(nreverse output)))
|
||||
(org-registry-find-all
|
||||
(lambda (entry) (string= link (car entry)))
|
||||
registry))
|
||||
|
||||
(defun org-registry-find-all (test &optional registry)
|
||||
"Return all entries satisfying `test' in the registry."
|
||||
(let ((reg (copy-list (or org-registry-alist registry))) entry output)
|
||||
(while (setq entry (find-if test reg))
|
||||
(add-to-list 'output entry)
|
||||
(setq reg (delete entry reg)))
|
||||
(nreverse output)))
|
||||
(delq nil
|
||||
(mapcar
|
||||
(lambda (x) (and (funcall test x) x))
|
||||
(or registry org-registry-alist))))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-registry-visit ()
|
||||
|
|
Loading…
Reference in a new issue