master a3cebcf3f1: Make ps-print-ensure-fontified obsolete

[Stefan Kangas]

branch: master
commit a3cebcf3f16e36b621a2328b75f3b59ea68ca1e9
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/ps-print.el | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 069d116907..885aa3cc7c 100644
--- 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