5 |
|
|
6 |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
7 |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
8 |
;; Time-stamp: <2004/09/26 22:11:24 vinicius> |
;; Time-stamp: <2004/11/11 23:54:13 vinicius> |
9 |
;; Keywords: wp, print, PostScript |
;; Keywords: wp, print, PostScript |
10 |
;; Version: 6.8.1 |
;; Version: 6.8.2 |
11 |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
12 |
|
|
13 |
(defconst pr-version "6.8.1" |
(defconst pr-version "6.8.2" |
14 |
"printing.el, v 6.8.1 <2004/09/26 vinicius> |
"printing.el, v 6.8.2 <2004/11/11 vinicius> |
15 |
|
|
16 |
Please send all bug fixes and enhancements to |
Please send all bug fixes and enhancements to |
17 |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
1099 |
:tag "Printing Utilities" |
:tag "Printing Utilities" |
1100 |
:link '(emacs-library-link :tag "Source Lisp File" "printing.el") |
:link '(emacs-library-link :tag "Source Lisp File" "printing.el") |
1101 |
:prefix "pr-" |
:prefix "pr-" |
1102 |
|
:version "20" |
1103 |
:group 'wp |
:group 'wp |
1104 |
:group 'postscript) |
:group 'postscript) |
1105 |
|
|
2475 |
|
|
2476 |
(eval-and-compile |
(eval-and-compile |
2477 |
(defun pr-get-symbol (name) |
(defun pr-get-symbol (name) |
2478 |
(or (intern-soft name) |
(easy-menu-intern name)) |
|
(make-symbol name))) |
|
2479 |
|
|
2480 |
(cond |
(cond |
2481 |
((eq ps-print-emacs-type 'emacs) ; GNU Emacs |
((eq ps-print-emacs-type 'emacs) ; GNU Emacs |
2482 |
(defsubst pr-region-active-p () |
(defun pr-region-active-p () |
2483 |
(and pr-auto-region transient-mark-mode mark-active))) |
(and pr-auto-region transient-mark-mode mark-active))) |
2484 |
|
|
2485 |
((eq ps-print-emacs-type 'xemacs) ; XEmacs |
((eq ps-print-emacs-type 'xemacs) ; XEmacs |
2486 |
(defvar zmacs-region-stays nil) ; to avoid compilation gripes |
(defvar zmacs-region-stays nil) ; to avoid compilation gripes |
2487 |
(defsubst pr-region-active-p () |
(defun pr-region-active-p () |
2488 |
(and pr-auto-region (not zmacs-region-stays) (ps-mark-active-p))))) |
(and pr-auto-region (not zmacs-region-stays) (ps-mark-active-p))))) |
2489 |
|
|
2490 |
|
|
2904 |
(pr-get-symbol "Printing"))))) |
(pr-get-symbol "Printing"))))) |
2905 |
;; Emacs 21 |
;; Emacs 21 |
2906 |
(pr-menu-print-item |
(pr-menu-print-item |
2907 |
(easy-menu-change '("files") "Print" pr-menu-spec "print-buffer") |
(easy-menu-change '("file") "Print" pr-menu-spec "print-buffer") |
2908 |
(let ((items '("print-buffer" "print-region" |
(let ((items '("print-buffer" "print-region" |
2909 |
"ps-print-buffer-faces" "ps-print-region-faces" |
"ps-print-buffer-faces" "ps-print-region-faces" |
2910 |
"ps-print-buffer" "ps-print-region"))) |
"ps-print-buffer" "ps-print-region"))) |
2911 |
(while items |
(while items |
2912 |
(easy-menu-remove-item nil '("files") (car items)) |
(easy-menu-remove-item nil '("file") (car items)) |
2913 |
(setq items (cdr items))) |
(setq items (cdr items))) |
2914 |
(setq pr-menu-print-item nil |
(setq pr-menu-print-item nil |
2915 |
pr-menu-bar (vector 'menu-bar 'files |
pr-menu-bar (vector 'menu-bar 'file |
2916 |
(pr-get-symbol "Print"))))) |
(pr-get-symbol "Print"))))) |
2917 |
(t |
(t |
2918 |
(easy-menu-change '("files") "Print" pr-menu-spec))) |
(easy-menu-change '("file") "Print" pr-menu-spec))) |
2919 |
|
|
2920 |
;; Key binding |
;; Key binding |
2921 |
(global-set-key [print] 'pr-ps-fast-fire) |
(global-set-key [print] 'pr-ps-fast-fire) |