diff --git a/modules/lang/org/autoload/org-link.el b/modules/lang/org/autoload/org-link.el index ebccbfead..69fd98c7c 100644 --- a/modules/lang/org/autoload/org-link.el +++ b/modules/lang/org/autoload/org-link.el @@ -124,7 +124,7 @@ exist, and `org-link' otherwise." fn))))) ;;;###autoload -(defun +org-link--face-link-activate-face (start end face _bracketed-p) +(defun +org-link--face-link-activate-fn (start end face _bracketed-p) (when buffer-read-only (add-text-properties start end @@ -156,7 +156,7 @@ exist, and `org-link' otherwise." (concat prefix (and prefix " ") key-text))) ;;;###autoload -(defun +org-link--command-link-activate-command (start end command _bracketed-p) +(defun +org-link--command-link-activate-fn (start end command _bracketed-p) (when buffer-read-only (add-text-properties start end (list 'display (+org-link--command-keys command))))) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 58bde72ad..9d2e1be52 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -557,12 +557,12 @@ relative to `org-directory', unless it is an absolute path." (org-link-set-parameters "face" :follow (-call-interactively #'describe-face) - :activate-func #'+org-link--face-link-activate-face + :activate-func #'+org-link--face-link-activate-fn :face '(font-lock-type-face underline)) (org-link-set-parameters "cmd" :follow (-call-interactively #'describe-command) - :activate-func #'+org-link--command-link-activate-command + :activate-func #'+org-link--command-link-activate-fn :face 'help-key-binding :help-echo #'+org-link-doom--help-echo-from-textprop) (org-link-set-parameters