Make ps-print-ensure-fontified obsolete

* lisp/ps-print.el (ps-print-ensure-fontified): Redefine as
obsolete function alias for font-lock-ensure.  Update callers.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 069d116907e03fd9e89f2635f45de7e84314402b..885aa3cc7c7756a1db633748f73fa9e7176d1069 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6325,17 +6325,6 @@ If FACE is not a valid face name, use default face."
                (ps-face-background-name face))))
 
 
-(declare-function jit-lock-fontify-now "jit-lock" (&optional start end))
-(declare-function lazy-lock-fontify-region "lazy-lock" (beg end))
-
-;; to avoid compilation gripes
-(defun ps-print-ensure-fontified (start end)
-  (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode))
-        (jit-lock-fontify-now start end))
-       ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode))
-        (lazy-lock-fontify-region start end))))
-
-
 (defun ps-generate-postscript-with-faces (from to)
   ;; Some initialization...
   (setq ps-current-effect 0)
@@ -6355,7 +6344,7 @@ If FACE is not a valid face name, use default face."
   ;; Generate some PostScript.
   (save-restriction
     (narrow-to-region from to)
-    (ps-print-ensure-fontified from to)
+    (font-lock-ensure from to)
     (deactivate-mark)                   ;bug#16866.
     (ps-generate-postscript-with-faces1 from to)))
 
@@ -6512,6 +6501,8 @@ If FACE is not a valid face name, use default face."
 (unless noninteractive
   (add-hook 'kill-emacs-query-functions #'ps-kill-emacs-check))
 
+(define-obsolete-function-alias 'ps-print-ensure-fontified #'font-lock-ensure "29.1")
+
 (provide 'ps-print)
 
 ;;; ps-print.el ends here