1 |
;;; printing.el --- printing utilities |
;;; printing.el --- printing utilities |
2 |
|
|
3 |
;; Copyright (C) 2000, 2001, 2002 |
;; Copyright (C) 2000, 2001, 2002, 2003 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
2344 |
,@body |
,@body |
2345 |
(kill-buffer temp)))) |
(kill-buffer temp)))) |
2346 |
|
|
|
(eval-and-compile |
|
|
(defun pr-get-symbol (name) |
|
|
;; Recent versions of easy-menu downcase names before interning them. |
|
|
(and (fboundp 'easy-menu-name-match) |
|
|
(setq name (downcase name))) |
|
|
(or (intern-soft name) |
|
|
(make-symbol name))) |
|
|
) |
|
|
|
|
2347 |
|
|
2348 |
(defsubst pr-visible-p (key) |
(defsubst pr-visible-p (key) |
2349 |
(memq key pr-visible-entry-list)) |
(memq key pr-visible-entry-list)) |
2362 |
|
|
2363 |
|
|
2364 |
(eval-and-compile |
(eval-and-compile |
2365 |
|
(defun pr-get-symbol (name) |
2366 |
|
;; Recent versions of easy-menu downcase names before interning them. |
2367 |
|
(and (fboundp 'easy-menu-name-match) |
2368 |
|
(setq name (downcase name))) |
2369 |
|
(or (intern-soft name) |
2370 |
|
(make-symbol name))) |
2371 |
|
|
2372 |
(cond |
(cond |
2373 |
((eq ps-print-emacs-type 'emacs) ; GNU Emacs |
((eq ps-print-emacs-type 'emacs) ; GNU Emacs |
2374 |
(defsubst pr-region-active-p () |
(defsubst pr-region-active-p () |