org-tag-eldoc-common.el

   1 ;;; org-tag-eldoc-common.el --- common functions for org-tag-eldoc -*- lexical-binding: t; -*-
   2 ;; -*- coding: utf-8 -*-
   3
   4 ;; Copyright (C) 2024-2025 Christopher M. Miles, all rights reserved.
   5
   6 ;;; Commentary:
   7
   8
   9
  10 ;;; Code:
  11 \f
  12 (defvar org-tag-eldoc--explanation nil
  13   "A private variable to store the function internal variable `explanation'.")
  14
  15 (defun org-tag-eldoc-common--format-explanation (text)
  16   "Format TEXT for better displaying."
  17   (string-clean-whitespace
  18    (string-replace "\n" "" text)))
  19
  20 \f
  21
  22 (provide 'org-tag-eldoc-common)
  23
  24 ;;; org-tag-eldoc-common.el ends here