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

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

[nongnu] elpa/hyperdrive 48afc51ac2 088/102: Fix: (org-open-at-point-fun


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 48afc51ac2 088/102: Fix: (org-open-at-point-functions) Pass full symbol, not shorthand
Date: Wed, 29 Nov 2023 04:00:57 -0500 (EST)

branch: elpa/hyperdrive
commit 48afc51ac22713f2c54f75a7ea3b5c6b0e12b53d
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (org-open-at-point-functions) Pass full symbol, not shorthand
---
 hyperdrive-org.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index c8ee2ed0a3..f7845f62d5 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -214,18 +214,20 @@ Respects `hyperdrive-org-link-full-url' and 
`org-link-file-path-type'."
               (desc-end (org-element-property :contents-end link)))
     (buffer-substring desc-begin desc-end)))
 
+;; NOTE: Autoloads do not support shorthands (yet?), so we use the full symbol
+;; names below.
+;; TODO: Report Emacs bug about autoloads and symbol shorthands.
 ;;;###autoload
 (with-eval-after-load 'org
   (org-link-set-parameters "hyper"
-                           :store #'h/org-link-store
-                           :follow #'h/org-link-follow
-                          :complete #'h/org-link-complete)
+                           :store #'hyperdrive-org-link-store
+                           :follow #'hyperdrive-org-link-follow
+                          :complete #'hyperdrive-org-link-complete)
   (with-eval-after-load 'hyperdrive
-    ;; Handle links with no specified type in `h/mode'
-    ;; buffers as links to files within that hyperdrive.  Only add
-    ;; this function to the variable after `hyperdrive' is loaded so
-    ;; that `h/mode' will be defined.
-    (cl-pushnew #'h/org--open-at-point org-open-at-point-functions)))
+    ;; Handle links with no specified type in `hyperdrive-mode' buffers as 
links
+    ;; to files within that hyperdrive.  Only add this function to the variable
+    ;; after `hyperdrive' is loaded so that `hyperdrive-mode' will be defined.
+    (cl-pushnew #'hyperdrive-org--open-at-point org-open-at-point-functions)))
 
 ;;;; Footer
 



reply via email to

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