diff options
Diffstat (limited to 'attic/elisp/jao-recoll.el')
| -rw-r--r-- | attic/elisp/jao-recoll.el | 7 |
1 files changed, 4 insertions, 3 deletions
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)) |