org-compat: Mark `org-compatible-face' as obsolete

* lisp/org-inlinetask.el (org-inlinetask): Remove `org-compatible-face'
  call.

2 files changed, 9 insertions, 12 deletions

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 70a2932..2758b31 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -173,21 +173,15 @@
 (define-obsolete-function-alias 'org-insert-columns-dblock
   '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
   "Hook to be used to set up keys for the date/time interface.
 Add key definitions to `minibuffer-local-map', which will be a
-temporary copy.
-
-WARNING: This option is obsolete, you should use
-`org-read-date-minibuffer-local-map' to set up keys."
+temporary copy."
   :group 'org-time
   :type 'hook)
-
-
-;;; Miscellaneous functions
+(make-obsolete-variable
+ 'org-read-date-minibuffer-setup-hook
+ "set `org-read-date-minibuffer-local-map' instead." "Org 8.0")
 
 (defun org-compatible-face (inherits specs)
   "Make a compatible face specification.
@@ -198,6 +192,10 @@ is, use SPECS to define the face."
   (if (facep inherits)
       (list (list t :inherit inherits))
     specs))
+(make-obsolete 'org-compatible-face "you can remove it." "Org 9.0")
+
+
+;;; Miscellaneous functions
 
 (defun org-version-check (version feature level)
   (let* ((v1 (mapcar 'string-to-number (split-string version "[.]")))
diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index e5ed0e2..25e36c1 100644
--- a/lisp/org-inlinetask.el
+++ b/lisp/org-inlinetask.el
@@ -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
 
-(defface org-inlinetask
-  (org-compatible-face 'shadow '((t (:bold t))))
+(defface org-inlinetask '((t :inherit shadow))
   "Face for inlinetask headlines."
   :group 'org-faces)