Move obsolete function to "org-compat"

* lisp/org.el (org-in-fixed-width-region-p): Move to...
* lisp/org-compat.el (org-in-fixed-width-region-p): ... here.
This commit is contained in:
Nicolas Goaziou 2016-09-26 23:03:49 +02:00
parent 79dab621f9
commit a1199f040f
2 changed files with 10 additions and 9 deletions

View File

@ -98,7 +98,9 @@
"Return a section of LIST, from START to END.
Counting starts at 1."
(cl-subseq list (1- start) end))
(make-obsolete 'org-sublist "cl-subseq (note the 0-based counting)." "Org 9.0")
(make-obsolete 'org-sublist
"use cl-subseq (note the 0-based counting)."
"Org 9.0")
;;;; Functions available since Emacs 24.3
@ -187,7 +189,13 @@ Counting starts at 1."
(define-obsolete-variable-alias 'org-html-style 'org-html-head "24.4")
(define-obsolete-function-alias 'org-insert-columns-dblock
'org-columns-insert-dblock "Org 9.0")
(make-obsolete 'org-in-fixed-width-region-p "the `org-element' library"
(defun org-in-fixed-width-region-p ()
"Non-nil if point in a fixed-width region."
(save-match-data
(eq 'fixed-width (org-element-type (org-element-at-point)))))
(make-obsolete 'org-in-fixed-width-region-p
"use `org-element' library"
"Org 9.0")
(defcustom org-read-date-minibuffer-setup-hook nil

View File

@ -20959,13 +20959,6 @@ See the individual commands for more information."
(org-table-paste-rectangle)
(org-paste-subtree arg)))
(defsubst org-in-fixed-width-region-p ()
"OBSOLETE
Is point in a fixed-width region?"
(save-match-data
(eq 'fixed-width (org-element-type (org-element-at-point)))))
(defun org-edit-special (&optional arg)
"Call a special editor for the element at point.
When at a table, call the formula editor with `org-table-edit-formulas'.