mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 00:27:52 +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.
|
"Return a section of LIST, from START to END.
|
||||||
Counting starts at 1."
|
Counting starts at 1."
|
||||||
(cl-subseq list (1- start) end))
|
(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
|
;;;; 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-variable-alias 'org-html-style 'org-html-head "24.4")
|
||||||
(define-obsolete-function-alias 'org-insert-columns-dblock
|
(define-obsolete-function-alias 'org-insert-columns-dblock
|
||||||
'org-columns-insert-dblock "Org 9.0")
|
'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")
|
"Org 9.0")
|
||||||
|
|
||||||
(defcustom org-read-date-minibuffer-setup-hook nil
|
(defcustom org-read-date-minibuffer-setup-hook nil
|
||||||
|
|
|
@ -20959,13 +20959,6 @@ See the individual commands for more information."
|
||||||
(org-table-paste-rectangle)
|
(org-table-paste-rectangle)
|
||||||
(org-paste-subtree arg)))
|
(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)
|
(defun org-edit-special (&optional arg)
|
||||||
"Call a special editor for the element at point.
|
"Call a special editor for the element at point.
|
||||||
When at a table, call the formula editor with `org-table-edit-formulas'.
|
When at a table, call the formula editor with `org-table-edit-formulas'.
|
||||||
|
|
Loading…
Reference in a new issue