emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-contrib c8214cf671: * lisp/org-registry.el: Fix obsole


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib c8214cf671: * lisp/org-registry.el: Fix obsolete variable names
Date: Wed, 18 Oct 2023 07:01:26 -0400 (EDT)

branch: elpa/org-contrib
commit c8214cf671f0f35a23ddb05de7aec828655b28e3
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/org-registry.el: Fix obsolete variable names
    
    (org-registry-show):
    (org-registry-get-entries):
---
 lisp/org-registry.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/org-registry.el b/lisp/org-registry.el
index 7ae879a5b3..e14d49b4a2 100644
--- a/lisp/org-registry.el
+++ b/lisp/org-registry.el
@@ -91,9 +91,9 @@ buffer."
   (interactive "P")
   (org-registry-initialize)
   (let* ((blink (or (org-remember-annotation) ""))
-        (link (when (string-match org-bracket-link-regexp blink)
+        (link (when (string-match org-link-bracket-re blink)
                 (match-string-no-properties 1 blink)))
-        (desc (or (and (string-match org-bracket-link-regexp blink)
+        (desc (or (and (string-match org-link-bracket-re blink)
                        (match-string-no-properties 3 blink)) "No description"))
         (files (org-registry-assoc-all link))
         file point selection tmphist)
@@ -202,13 +202,13 @@ Use with caution.  This could slow down things a bit."
     (with-temp-buffer
       (insert-file-contents file)
       (goto-char (point-min))
-      (while (re-search-forward org-angle-link-re nil t)
+      (while (re-search-forward org-link-angle-re nil t)
        (let* ((point (match-beginning 0))
               (link (match-string-no-properties 0))
               (desc (match-string-no-properties 0)))
-           (add-to-list 'result (list link desc point file))))
+         (add-to-list 'result (list link desc point file))))
       (goto-char (point-min))
-      (while (re-search-forward org-bracket-link-regexp nil t)
+      (while (re-search-forward org-link-bracket-re nil t)
        (let* ((point (match-beginning 0))
               (link (match-string-no-properties 1))
               (desc (or (match-string-no-properties 3) "No description")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]