Mark `org-preserve-lc' as obsolete

* lisp/org-macs.el (org-preserve-lc): Move function...
* lisp/org-compat.el (org-preserve-lc): ... here.

The function is no longer used in code base.

3 files changed, 17 insertions, 12 deletions

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index d3f7577..5fc0135 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -346,6 +346,8 @@ It was not used throughout the code base.
 It was not used throughout code base.
 *** ~org-context-p~
 Use ~org-element-at-point~ instead.
+*** ~org-preserve-lc~
+It is no longer used in the code base.
 *** ~org-try-structure-completion~
 Org Tempo may be used as a replacement.  See details above.
 ** Removed options
diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 3be3ffc..66854fa 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -262,6 +262,7 @@ See `org-link-parameters' for documentation on the other parameters."
 
 (make-obsolete 'org-add-link-type "use `org-link-set-parameters' instead." "Org 9.0")
 
+;;;; Functions unused in Org core.
 (defun org-table-recognize-table.el ()
   "If there is a table.el table nearby, recognize it and move into it."
   (when (and org-table-tab-recognizes-table.el (org-at-table.el-p))
@@ -280,11 +281,23 @@ See `org-link-parameters' for documentation on the other parameters."
             (message "recognizing table.el table...done")))
       (error "This should not happen"))))
 
-;; Not used by Org core since commit 6d1e3082, Feb 2010.
+;; Not used since commit 6d1e3082, Feb 2010.
 (make-obsolete 'org-table-recognize-table.el
-               "please notify the org mailing list if you use this function."
+               "please notify the Org mailing list if you use this function."
                "Org 9.0")
 
+(defmacro org-preserve-lc (&rest body)
+  (declare (debug (body))
+	   (obsolete "please notify the Org mailing list if you use this function."
+		     "Org 9.0"))
+  (org-with-gensyms (line col)
+    `(let ((,line (org-current-line))
+	   (,col (current-column)))
+       (unwind-protect
+	   (progn ,@body)
+	 (org-goto-line ,line)
+	 (org-move-to-column ,col)))))
+
 (defun org-remove-angle-brackets (s)
   (org-unbracket-string "<" ">" s))
 (make-obsolete 'org-remove-angle-brackets 'org-unbracket-string "Org 9.0")
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index a087c08..dbaceda 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -41,16 +41,6 @@
                  symbols)
      ,@body))
 
-(defmacro org-preserve-lc (&rest body)
-  (declare (debug (body)))
-  (org-with-gensyms (line col)
-    `(let ((,line (org-current-line))
-	   (,col (current-column)))
-       (unwind-protect
-	   (progn ,@body)
-	 (org-goto-line ,line)
-	 (org-move-to-column ,col)))))
-
 ;; Use `org-with-silent-modifications' to ignore cosmetic changes and
 ;; `org-unmodified' to ignore real text modifications
 (defmacro org-unmodified (&rest body)