[Emacs-diffs] Changes to emacs/lisp/printing.el

[Vinicius Jose Latorre]

Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.20 emacs/lisp/printing.el:1.21
*** emacs/lisp/printing.el:1.20 Thu Nov 11 15:01:34 2004
--- emacs/lisp/printing.el      Fri Nov 12 02:14:03 2004
***************
*** 5,17 ****
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/09/26 22:11:24 vinicius>
  ;; Keywords: wp, print, PostScript
! ;; Version: 6.8.1
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst pr-version "6.8.1"
!   "printing.el, v 6.8.1 <2004/09/26 vinicius>
  
  Please send all bug fixes and enhancements to
        Vinicius Jose Latorre <address@hidden>
--- 5,17 ----
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/11/11 23:54:13 vinicius>
  ;; Keywords: wp, print, PostScript
! ;; Version: 6.8.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst pr-version "6.8.2"
!   "printing.el, v 6.8.2 <2004/11/11 vinicius>
  
  Please send all bug fixes and enhancements to
        Vinicius Jose Latorre <address@hidden>
***************
*** 1099,1104 ****
--- 1099,1105 ----
    :tag "Printing Utilities"
    :link '(emacs-library-link :tag "Source Lisp File" "printing.el")
    :prefix "pr-"
+   :version "20"
    :group 'wp
    :group 'postscript)
  
***************
*** 2474,2490 ****
  
  (eval-and-compile
    (defun pr-get-symbol (name)
!     (or (intern-soft name)
!       (make-symbol name)))
  
    (cond
     ((eq ps-print-emacs-type 'emacs)   ; GNU Emacs
!     (defsubst pr-region-active-p ()
        (and pr-auto-region transient-mark-mode mark-active)))
  
     ((eq ps-print-emacs-type 'xemacs)  ; XEmacs
      (defvar zmacs-region-stays nil)   ; to avoid compilation gripes
!     (defsubst pr-region-active-p ()
        (and pr-auto-region (not zmacs-region-stays) (ps-mark-active-p)))))
  
  
--- 2475,2490 ----
  
  (eval-and-compile
    (defun pr-get-symbol (name)
!     (easy-menu-intern name))
  
    (cond
     ((eq ps-print-emacs-type 'emacs)   ; GNU Emacs
!     (defun pr-region-active-p ()
        (and pr-auto-region transient-mark-mode mark-active)))
  
     ((eq ps-print-emacs-type 'xemacs)  ; XEmacs
      (defvar zmacs-region-stays nil)   ; to avoid compilation gripes
!     (defun pr-region-active-p ()
        (and pr-auto-region (not zmacs-region-stays) (ps-mark-active-p)))))
  
  
***************
*** 2904,2921 ****
                                  (pr-get-symbol "Printing")))))
       ;; Emacs 21
       (pr-menu-print-item
!       (easy-menu-change '("files") "Print" pr-menu-spec "print-buffer")
        (let ((items '("print-buffer"          "print-region"
                     "ps-print-buffer-faces" "ps-print-region-faces"
                     "ps-print-buffer"       "ps-print-region")))
        (while items
!         (easy-menu-remove-item nil '("files") (car items))
          (setq items (cdr items)))
        (setq pr-menu-print-item nil
!             pr-menu-bar (vector 'menu-bar 'files
                                  (pr-get-symbol "Print")))))
       (t
!       (easy-menu-change '("files") "Print" pr-menu-spec)))
  
      ;; Key binding
      (global-set-key [print]   'pr-ps-fast-fire)
--- 2904,2921 ----
                                  (pr-get-symbol "Printing")))))
       ;; Emacs 21
       (pr-menu-print-item
!       (easy-menu-change '("file") "Print" pr-menu-spec "print-buffer")
        (let ((items '("print-buffer"          "print-region"
                     "ps-print-buffer-faces" "ps-print-region-faces"
                     "ps-print-buffer"       "ps-print-region")))
        (while items
!         (easy-menu-remove-item nil '("file") (car items))
          (setq items (cdr items)))
        (setq pr-menu-print-item nil
!             pr-menu-bar (vector 'menu-bar 'file
                                  (pr-get-symbol "Print")))))
       (t
!       (easy-menu-change '("file") "Print" pr-menu-spec)))
  
      ;; Key binding
      (global-set-key [print]   'pr-ps-fast-fire)