diff options
| author |  Tom Willemse | 2022-05-11 20:37:11 -0700 |
|---|---|---|
| committer | Tom Willemse | 2022-05-11 20:37:11 -0700 |
| commit | 4b94f8403c7fe7df1f5f0a97c2b132b9b946c345 (patch) | |
| tree | 365e568114dfb9e3a19dcac4072321c059cf56d9 | |
| parent | 54e9c9c26f420fca9d088c9383f2f117a7a58bdd (diff) | |
| download | emacs-config-4b94f8403c7fe7df1f5f0a97c2b132b9b946c345.tar.gz emacs-config-4b94f8403c7fe7df1f5f0a97c2b132b9b946c345.zip | |
[oni-org] Use ‘rx’ instead of ‘rx-to-string’
‘rx’ should expand to what is needed to make sure that the right thing is done.
I feel more comfortable using this than ‘rx-to-string’ while unquoting the
variables I use.
| -rw-r--r-- | oni-org/oni-org.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 6d69416..34f89b8 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2022.0424.025154 +;; Version: 2022.0508.160831 ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti mixed-pitch) ;; This program is free software; you can redistribute it and/or modify @@ -842,8 +842,10 @@ This is an around advice for ‘org-html--svg-image’ as FUN." (when (not (null current-heading-id)) (save-excursion (goto-char (point-min)) - (while (re-search-forward (rx-to-string `(or (seq "[[id:" ,current-heading-id "]") - (seq "#" ,current-heading-id "]"))) nil t) + (while (re-search-forward + (rx (or (seq "[[id:" (literal current-heading-id) "]") + (seq "#" (literal current-heading-id) "]"))) + nil t) (unless (or (oni-org-in-dblock-p) (oni-org-at-origin-property-p)) (let ((components (org-heading-components))) |