mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Make ps-print-ensure-fontified obsolete

Browse source 
* lisp/ps-print.el (ps-print-ensure-fontified): Redefine as
obsolete function alias for font-lock-ensure.  Update callers.
This commit is contained in:
Stefan Kangas 2022-07-14 19:08:16 +02:00
parent 564f6c171e
commit a3cebcf3f1
1 changed files with 3 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/ps-print.el
View file

@ -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