[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnorb b2138dd 437/449: [gnorb] Update to use org-link-a
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnorb b2138dd 437/449: [gnorb] Update to use org-link-any-re, bump to 1.6.5 |
Date: |
Fri, 27 Nov 2020 23:16:28 -0500 (EST) |
branch: externals/gnorb
commit b2138ddf254c7a6f79f396c67a9ad911d5c0a3ba
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
[gnorb] Update to use org-link-any-re, bump to 1.6.5
* packages/gnorb/gnorb-org.el (gnorb-org-popup-bbdb): At some point
org-bracket-link-analytic-regexp was made an alias for
org-link-bracket-re, but of course the match groups weren't the same
so it was just broken. Switch directly to using org-link-any-re.
* packages/gnorb/gnorb-utils.el (gnorb-scan-links): Ditto.
---
gnorb-org.el | 8 ++++----
gnorb-utils.el | 14 +++++++-------
gnorb.el | 2 +-
3 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/gnorb-org.el b/gnorb-org.el
index 81cb176..7f51bb2 100644
--- a/gnorb-org.el
+++ b/gnorb-org.el
@@ -779,10 +779,10 @@ search."
(let ((bound (org-element-property
:end (org-element-at-point)))
desc rec)
- (while (re-search-forward
- org-bracket-link-analytic-regexp bound t)
- (when (string-match-p "bbdb" (match-string 2))
- (setq desc (match-string 5)
+ (while (re-search-forward org-link-any-re bound t)
+ (when (string-match-p "bbdb" (car (split-string
+ (match-string 2) ":")))
+ (setq desc (match-string 3)
rec (bbdb-search (bbdb-records) desc desc desc)
recs (append recs rec))))))))
(if recs
diff --git a/gnorb-utils.el b/gnorb-utils.el
index ce5ebc3..fb85d54 100644
--- a/gnorb-utils.el
+++ b/gnorb-utils.el
@@ -473,19 +473,19 @@ TYPES is a list of symbols; we search for all links
corresponding
to those symbols."
;; It may be excessive to examine *all* links, rather than just
;; creating a specialized regexp for the links we want, but it's
- ;; nice to be lazy and use `org-bracket-link-analytic-regexp', that
- ;; seems safer.
+ ;; nice to be lazy and use `org-link-any-re', that seems safer.
;; This function should also *not* be responsible for unescaping
;; links -- we don't know what they're going to be used for, and
;; unescaped is safer.
(unless (= (point) bound)
(let ((alist (mapcar #'list (copy-sequence types))))
- (while (re-search-forward org-bracket-link-analytic-regexp bound t)
- (let* ((type (match-string-no-properties 2))
- (link (match-string-no-properties 3))
- (sym (intern-soft type)))
- (when (memq sym types)
+ (while (re-search-forward org-link-any-re bound t)
+ (pcase-let* ((`(,type ,link) (split-string
+ (match-string-no-properties 2)
+ ":"))
+ (sym (intern-soft type)))
+ (when (and sym (memq sym types))
(push link (alist-get sym alist)))))
alist)))
diff --git a/gnorb.el b/gnorb.el
index f3ba525..0c9edfb 100644
--- a/gnorb.el
+++ b/gnorb.el
@@ -2,7 +2,7 @@
;; Copyright (C) 2018-2020 Free Software Foundation, Inc.
-;; Version: 1.6.4
+;; Version: 1.6.5
;; Package-Requires: ((cl-lib "0.5"))
;; Maintainer: Eric Abrahamsen <eric@ericabrahamsen.net>
- [elpa] externals/gnorb 5e8b0c2 414/449: [gnorb] Fix handling of region-bounds return value, (continued)
- [elpa] externals/gnorb 5e8b0c2 414/449: [gnorb] Fix handling of region-bounds return value, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 183cf9c 435/449: [gnorb] Fix dumb typo in 07214d9e4, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb f383a7e 416/449: [gnorb] Require gnorb-org within gnorb-trigger-todo-action, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 9adc9dd 427/449: [gnorb] Add nnselect method of getting an article's "real" group, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 3fb0aed 438/449: [gnorb] Fixes to link scanning, bump to 1.6.6, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5692b47 448/449: [gnorb] Finish refactoring for nnselect, bump to 1.6.9, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 6174d5a 410/449: [gnorb] More little tweaks to registry searching, bump to 1.5.2, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 46b72b2 415/449: [gnorb] Bump version to 1.5.3, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb c4aa1d5 441/449: [gnorb] Improve customization type for gnorb-gnus-sent-groups, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 056a767 442/449: [gnorb] Improvements to gnorb-org-setup-message, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb b2138dd 437/449: [gnorb] Update to use org-link-any-re, bump to 1.6.5,
Stefan Monnier <=
- [elpa] externals/gnorb a0f32ad 444/449: [gnorb] Don't allow creation of new headings for incoming trigger, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 78fe298 426/449: [gnorb] Move location of gnorb-gnus-summary-mode-hook, bump to 1.6.1, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 3940f46 431/449: [gnorb] Fix to previous commit, bump to 1.6.3, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 5f9611b 449/449: Fix some quoting problems in doc strings, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 15726f0 419/449: [gnorb] Missing quote in nested `eval-after-load', bump to 1.5.5, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb d5aafc5 445/449: [gnorb] Bump version to 1.6.8, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb a512de8 422/449: gnorb: Remove weird group-name guard, bump to 1.5.7, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb be4c245 425/449: [gnorb] New option gnorb-gnus-refile-use-outline-path, bump to 1.6.0, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 66c2847 447/449: [gnorb] Random unimportant pokings-about, Stefan Monnier, 2020/11/27
- [elpa] externals/gnorb 81c297f 440/449: [gnorb] We're not supposed to be useing gnorb-org-msg-id-key anymore, Stefan Monnier, 2020/11/27