From bb229b4f8f78ae52962d7bc90c8b1d4993af8263 Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Thu, 31 Mar 2022 19:02:38 -0500 Subject: [PATCH] Mark function obsolete & fix spelling of its name * lisp/org-macs.el (org-truely-invisible-p): Move to... * lisp/org-compat.el (org-truly-invisible-p): ...here, and add... (org-truely-invisible-p): ...this compatibility alias. There are no callers of this function in Org Mode, nor in current Emacs (on the 'master and 'emacs-28' branches at least). We discussed whether to remove it entirely, and for now seem to have tentatively decided not to remove it. See this thread for more details: From: Ihor Radchenko Subject: Re: Removing obsolete function `org-truely-invisible-p'. To: Karl Fogel Cc: Org Mode Date: Sun, 19 Dec 2021 17:14:32 +0800 Message-ID: <87h7b5rm6f.fsf@localhost> --- lisp/org-compat.el | 12 ++++++++++++ lisp/org-macs.el | 7 ------- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git lisp/org-compat.el lisp/org-compat.el index 38d330de6..43d44211e 100644 --- lisp/org-compat.el +++ lisp/org-compat.el @@ -402,6 +402,18 @@ See `org-link-parameters' for documentation on the other parameters." (make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "9.0") ;;;; Functions unused in Org core. + +;; Not used since commit 3baf246f4f (Nicolas Goaziou, 2016-04-28) +(defun org-truly-invisible-p () + "Check if point is at a character currently not visible. +This version does not only check the character property, but also +`visible-mode'." + (unless (bound-and-true-p visible-mode) + (org-invisible-p))) +(define-obsolete-function-alias 'org-truely-invisible-p + 'org-truly-invisible-p "2022-03-31" + "Compatibility alias for legacy misspelling of `org-truly-invisible-p'.") + (defun org-table-recognize-table.el () "If there is a table.el table nearby, recognize it and move into it." (when (org-at-table.el-p) diff --git lisp/org-macs.el lisp/org-macs.el index b39af9103..fb3c441e1 100644 --- lisp/org-macs.el +++ lisp/org-macs.el @@ -1151,13 +1151,6 @@ fontification." (folding-only (memq value '(org-hide-block outline))) (t value)))) -(defun org-truely-invisible-p () - "Check if point is at a character currently not visible. -This version does not only check the character property, but also -`visible-mode'." - (unless (bound-and-true-p visible-mode) - (org-invisible-p))) - (defun org-invisible-p2 () "Check if point is at a character currently not visible. If the point is at EOL (and not at the beginning of a buffer too), -- 2.35.1