# HG changeset patch # User Glenn Morris # Date 1248151788 0 # Node ID 286d07f708045d778dd1c5dcc67032f7b33d623e # Parent d41cacce56573430514d2b43736de8f289802037 (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. diff -r d41cacce5657 -r 286d07f70804 lisp/ChangeLog --- a/lisp/ChangeLog Tue Jul 21 04:47:34 2009 +0000 +++ b/lisp/ChangeLog Tue Jul 21 04:49:48 2009 +0000 @@ -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 -r d41cacce5657 -r 286d07f70804 lisp/ps-print.el --- a/lisp/ps-print.el Tue Jul 21 04:47:34 2009 +0000 +++ b/lisp/ps-print.el Tue Jul 21 04:49:48 2009 +0000 @@ -6410,17 +6410,15 @@ (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)