/[emacs]/emacs/lisp/printing.el
ViewVC logotype

Diff of /emacs/lisp/printing.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by monnier, Thu Nov 11 15:01:34 2004 UTC revision 1.21 by viniciusjl, Fri Nov 12 02:14:03 2004 UTC
# Line 5  Line 5 
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>
# Line 1099  Unless optional argument INPLACE is non- Line 1099  Unless optional argument INPLACE is non-
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    
# Line 2474  See `pr-ps-printer-alist'.") Line 2475  See `pr-ps-printer-alist'.")
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    
# Line 2904  See `pr-ps-printer-alist'.") Line 2904  See `pr-ps-printer-alist'.")
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)

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26