diff options
| author | jao <jao@gnu.org> | 2021-03-29 05:43:03 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-03-29 05:43:03 +0100 |
| commit | 1d2b8ec9334d3602b4fddc61b11d078600412206 (patch) | |
| tree | ffdde6b22c206e762f00bde0a35d22bd736b70d4 /lib | |
| parent | dbaaff2b0d9250a0b7fdbde179c0bc5ee5d79838 (diff) | |
| download | elibs-1d2b8ec9334d3602b4fddc61b11d078600412206.tar.gz elibs-1d2b8ec9334d3602b4fddc61b11d078600412206.tar.bz2 | |
oops
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/org/jao-org-links.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/org/jao-org-links.el b/lib/org/jao-org-links.el index 019d26b..2882f7a 100644 --- a/lib/org/jao-org-links.el +++ b/lib/org/jao-org-links.el @@ -1,4 +1,4 @@ --*- lexical-binding: t; -*- +;; -*- lexical-binding: t; -*- (require 'jao-org-utils) (require 'jao-maildir) @@ -135,6 +135,9 @@ (let* ((file-name (or file-name buffer-file-name)) (bn (file-name-base file-name)) (rx (format "%s\\.org$" (regexp-quote bn)))) + (save-some-buffers nil + (lambda () + (string-prefix-p jao-org-notes-dir buffer-file-name))) (or (car (directory-files-recursively jao-org-notes-dir rx)) (let* ((dirs (seq-difference (directory-files jao-org-notes-dir) '("." ".." "attic"))) |