forked from mirrors/org-mode
org-compat: Mark `org-compatible-face' as obsolete
* lisp/org-inlinetask.el (org-inlinetask): Remove `org-compatible-face' call.
This commit is contained in:
parent
e2bff4bbc0
commit
67023930e7
|
@ -173,21 +173,15 @@
|
||||||
(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-variable
|
|
||||||
'org-read-date-minibuffer-setup-hook
|
|
||||||
"Set `org-read-date-minibuffer-local-map' instead." "24.4")
|
|
||||||
(defcustom org-read-date-minibuffer-setup-hook nil
|
(defcustom org-read-date-minibuffer-setup-hook nil
|
||||||
"Hook to be used to set up keys for the date/time interface.
|
"Hook to be used to set up keys for the date/time interface.
|
||||||
Add key definitions to `minibuffer-local-map', which will be a
|
Add key definitions to `minibuffer-local-map', which will be a
|
||||||
temporary copy.
|
temporary copy."
|
||||||
|
|
||||||
WARNING: This option is obsolete, you should use
|
|
||||||
`org-read-date-minibuffer-local-map' to set up keys."
|
|
||||||
:group 'org-time
|
:group 'org-time
|
||||||
:type 'hook)
|
:type 'hook)
|
||||||
|
(make-obsolete-variable
|
||||||
|
'org-read-date-minibuffer-setup-hook
|
||||||
;;; Miscellaneous functions
|
"set `org-read-date-minibuffer-local-map' instead." "Org 8.0")
|
||||||
|
|
||||||
(defun org-compatible-face (inherits specs)
|
(defun org-compatible-face (inherits specs)
|
||||||
"Make a compatible face specification.
|
"Make a compatible face specification.
|
||||||
|
@ -198,6 +192,10 @@ is, use SPECS to define the face."
|
||||||
(if (facep inherits)
|
(if (facep inherits)
|
||||||
(list (list t :inherit inherits))
|
(list (list t :inherit inherits))
|
||||||
specs))
|
specs))
|
||||||
|
(make-obsolete 'org-compatible-face "you can remove it." "Org 9.0")
|
||||||
|
|
||||||
|
|
||||||
|
;;; Miscellaneous functions
|
||||||
|
|
||||||
(defun org-version-check (version feature level)
|
(defun org-version-check (version feature level)
|
||||||
(let* ((v1 (mapcar 'string-to-number (split-string version "[.]")))
|
(let* ((v1 (mapcar 'string-to-number (split-string version "[.]")))
|
||||||
|
|
|
@ -271,8 +271,7 @@ If the task has an end part, also demote it."
|
||||||
|
|
||||||
(defvar org-indent-indentation-per-level) ; defined in org-indent.el
|
(defvar org-indent-indentation-per-level) ; defined in org-indent.el
|
||||||
|
|
||||||
(defface org-inlinetask
|
(defface org-inlinetask '((t :inherit shadow))
|
||||||
(org-compatible-face 'shadow '((t (:bold t))))
|
|
||||||
"Face for inlinetask headlines."
|
"Face for inlinetask headlines."
|
||||||
:group 'org-faces)
|
:group 'org-faces)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue