mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(ps-jitify, ps-lazify): Remove aliases only used to

Browse Source 
silence compiler.  Instead...
(jit-lock-fontify-now, lazy-lock-fontify-region): ...Declare.
(ps-print-ensure-fontified): Update for above function name changes.
This commit is contained in:
Glenn Morris 2009-07-21 04:49:48 +00:00
parent fdd8417e49
commit 02df3f4de8
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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...

10
lisp/ps-print.el
View File

@ -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)