From 02df3f4de84e9db382d8c902bc4526aa8bcf8013 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 21 Jul 2009 04:49:48 +0000 Subject: [PATCH] (ps-jitify, ps-lazify): Remove aliases only used to silence compiler. Instead... (jit-lock-fontify-now, lazy-lock-fontify-region): ...Declare. (ps-print-ensure-fontified): Update for above function name changes. --- lisp/ChangeLog | 5 +++++ lisp/ps-print.el | 10 ++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8e2192d0e0..1bb54430ead 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2009-07-21 Glenn Morris + * ps-print.el (ps-jitify, ps-lazify): Remove aliases only used to + silence compiler. Instead... + (jit-lock-fontify-now, lazy-lock-fontify-region): ...Declare. + (ps-print-ensure-fontified): Update for above function name changes. + * printing.el (pr-mh-get-msg-num, pr-mh-show) (pr-mh-start-of-uncleaned-message): Remove aliases only used to silence compiler. Instead... diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 01d969d6781..16be4439a59 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -6410,17 +6410,15 @@ If FACE is not a valid face name, use default face." (ps-face-background-name face)))) -;; to avoid compilation gripes -(defalias 'ps-jitify 'jit-lock-fontify-now) -(defalias 'ps-lazify 'lazy-lock-fontify-region) - +(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)) - (ps-jitify start end)) + (jit-lock-fontify-now start end)) ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)) - (ps-lazify start end)))) + (lazy-lock-fontify-region start end)))) (defun ps-generate-postscript-with-faces (from to) -- 2.39.2