mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 22:07:49 +00:00
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:
parent
79dab621f9
commit
a1199f040f
|
@ -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
|
||||
|
|
|
@ -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'.
|
||||
|
|
Loading…
Reference in a new issue