diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-14 19:08:16 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-14 19:08:16 +0200 |
commit | a3cebcf3f16e36b621a2328b75f3b59ea68ca1e9 (patch) | |
tree | 843a9e3777d4ab28ae23f3d9006a7aaa313103fe | |
parent | 564f6c171eeaef4dea4b4fc2524c0b082dfbb531 (diff) | |
download | emacs-a3cebcf3f16e36b621a2328b75f3b59ea68ca1e9.tar.gz |
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.
-rw-r--r-- | lisp/ps-print.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 069d116907e..885aa3cc7c7 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 |