From c386c16802839c01edbc843e700fe0d8214e0b15 Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Sun, 16 Jul 2023 16:25:48 -0700 Subject: [PATCH] (org-contacts) Don't try to store link above first heading Hi, Here's a small patch for org-contacts.el. Be well, Joseph From 80365905c9fd342e25ac529dcf0849e4cf90af8c Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Sun, 16 Jul 2023 16:13:14 -0700 Subject: [PATCH] Fix: Don't try to store link above first heading Previously, org-contacts-link-store attempted to store a link when point was above the first heading, but signalled an error after (org-get-heading t t t t) returned nil. Now, org-contacts-link-store does not attempt to handle storing links above the first heading. --- org-contacts.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/org-contacts.el b/org-contacts.el index 65bcdc5..c2dd195 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -1273,7 +1273,8 @@ are effectively trimmed). If nil, all zero-length substrings are retained." "Store the contact in `org-contacts-files' with a link." (when (and (eq major-mode 'org-mode) (member (buffer-file-name) - (mapcar #'expand-file-name (org-contacts-files)))) + (mapcar #'expand-file-name (org-contacts-files))) + (not (org-before-first-heading-p))) (if (bound-and-true-p org-id-link-to-org-use-id) (org-id-store-link) (let ((headline-str (substring-no-properties (org-get-heading t t t t))))