Mercurial > emacs
changeset 104000:286d07f70804
(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.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 21 Jul 2009 04:49:48 +0000 |
parents | d41cacce5657 |
children | 27e12d5d8f28 |
files | lisp/ChangeLog lisp/ps-print.el |
diffstat | 2 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <rgm@gnu.org> + * 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...
--- 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)