From c7baa477cf0041ac006f55795cd6619a569418c1 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 14 Oct 2026 23:46:06 +0100
Subject: back to linux tweaks

---
 attic/elisp/jao-recoll.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'attic/elisp/jao-recoll.el')

diff --git a/attic/elisp/jao-recoll.el b/attic/elisp/jao-recoll.el
index b23106f..def4b5a 100644
--- a/attic/elisp/jao-recoll.el
+++ b/attic/elisp/jao-recoll.el
@@ -1,6 +1,6 @@
 ;;; jao-recoll.el -- Displaying recoll queries -*- lexical-binding: t; -*-
 
-;; Copyright (c) 2017, 2020, 2021, 2022 Jose Antonio Ortega Ruiz
+;; Copyright (c) 2017, 2020, 2021, 2022, 2026 Jose Antonio Ortega Ruiz
 
 ;; This file is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -41,6 +41,7 @@
 (defvar-local jao-recoll--last-query nil)
 (defvar-local jao-recoll--last-full-query nil)
 
+;;;###autoload
 (defun jao-recoll-show-query ()
   (interactive)
   (message (concat jao-recoll--last-query "\n"
@@ -65,7 +66,7 @@
               ((looking-at "^0 : \\(.[^\n]+\\)")
                (let ((desc (match-string 1)))
                  (replace-match "  - ")
-                 (insert (org-make-link-string lnk desc))))
+                 (insert (org-link-make-string lnk desc))))
               (t (insert "  - ")))
         (forward-line 1))
       (unless (eobp) (kill-line)))))
@@ -110,7 +111,7 @@
                           (concat (file-name-nondirectory ref) " :: " desc))
                        desc)))
           (delete-region start end)
-          (insert "* " (org-make-link-string lnk desc) " (" mime ")")
+          (insert "* " (org-link-make-string lnk desc) " (" mime ")")
           (forward-line)
           (jao-recoll--format-snippets lnk)))
       (pop-to-buffer (current-buffer))
-- 
cgit v1.2.3