diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2009-07-21 Glenn Morris <rgm@gnu.org> | 1 | 2009-07-21 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * ps-print.el (ps-jitify, ps-lazify): Remove aliases only used to | ||
| 4 | silence compiler. Instead... | ||
| 5 | (jit-lock-fontify-now, lazy-lock-fontify-region): ...Declare. | ||
| 6 | (ps-print-ensure-fontified): Update for above function name changes. | ||
| 7 | |||
| 3 | * printing.el (pr-mh-get-msg-num, pr-mh-show) | 8 | * printing.el (pr-mh-get-msg-num, pr-mh-show) |
| 4 | (pr-mh-start-of-uncleaned-message): Remove aliases only used to | 9 | (pr-mh-start-of-uncleaned-message): Remove aliases only used to |
| 5 | silence compiler. Instead... | 10 | 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." | |||
| 6410 | (ps-face-background-name face)))) | 6410 | (ps-face-background-name face)))) |
| 6411 | 6411 | ||
| 6412 | 6412 | ||
| 6413 | ;; to avoid compilation gripes | 6413 | (declare-function jit-lock-fontify-now "jit-lock" (&optional start end)) |
| 6414 | (defalias 'ps-jitify 'jit-lock-fontify-now) | 6414 | (declare-function lazy-lock-fontify-region "lazy-lock" (beg end)) |
| 6415 | (defalias 'ps-lazify 'lazy-lock-fontify-region) | ||
| 6416 | |||
| 6417 | 6415 | ||
| 6418 | ;; to avoid compilation gripes | 6416 | ;; to avoid compilation gripes |
| 6419 | (defun ps-print-ensure-fontified (start end) | 6417 | (defun ps-print-ensure-fontified (start end) |
| 6420 | (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode)) | 6418 | (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode)) |
| 6421 | (ps-jitify start end)) | 6419 | (jit-lock-fontify-now start end)) |
| 6422 | ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)) | 6420 | ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)) |
| 6423 | (ps-lazify start end)))) | 6421 | (lazy-lock-fontify-region start end)))) |
| 6424 | 6422 | ||
| 6425 | 6423 | ||
| 6426 | (defun ps-generate-postscript-with-faces (from to) | 6424 | (defun ps-generate-postscript-with-faces (from to) |