changeset 82253:e100ad942371

Evaluate require only during compilation
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Fri, 03 Aug 2007 13:52:35 +0000
parents 165a8aa41e32
children 368110c6f6e6
files lisp/ChangeLog lisp/printing.el
diffstat 2 files changed, 20 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Aug 03 10:49:56 2007 +0000
+++ b/lisp/ChangeLog	Fri Aug 03 13:52:35 2007 +0000
@@ -1,3 +1,10 @@
+2007-08-03  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* printing.el: Evaluate require only during compilation.
+	(pr-version): New version 6.9.1.
+	(deactivate-mark): Replace (defvar VAR nil) by (defvar VAR).
+	(pr-global-menubar): Fix code.
+
 2007-08-03  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* term.el (term-erase-in-display): Fix case when point is not at
--- a/lisp/printing.el	Fri Aug 03 10:49:56 2007 +0000
+++ b/lisp/printing.el	Fri Aug 03 13:52:35 2007 +0000
@@ -6,11 +6,11 @@
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
-;; Version: 6.9
+;; Version: 6.9.1
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst pr-version "6.9"
-  "printing.el, v 6.9 <2007/02/11 vinicius>
+(defconst pr-version "6.9.1"
+  "printing.el, v 6.9.1 <2007/08/02 vinicius>
 
 Please send all bug fixes and enhancements to
 	Vinicius Jose Latorre <viniciusjl@ig.com.br>
@@ -1025,8 +1025,9 @@
 ;;; Code:
 
 
-(require 'lpr)
-(require 'ps-print)
+(eval-when-compile
+  (require 'lpr)
+  (require 'ps-print))
 
 
 (and (string< ps-print-version "6.6.4")
@@ -1306,7 +1307,7 @@
   (defalias 'pr-f-read-string        'read-string)
 
   ;; GNU Emacs
-  (defvar deactivate-mark nil)
+  (defvar deactivate-mark)
 
   ;; GNU Emacs
   (defun pr-keep-region-active ()
@@ -1326,7 +1327,6 @@
 
   ;; GNU Emacs
   ;; Menu binding
-  (require 'easymenu)
   ;; Replace existing "print" item by "Printing" item.
   ;; If you're changing this file, you'll load it a second,
   ;; third... time, but "print" item exists only in the first load.
@@ -1335,6 +1335,7 @@
      ;; GNU Emacs 20
      ((< emacs-major-version 21)
       (defun pr-global-menubar (pr-menu-spec)
+	(require 'easymenu)
 	(easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
 	(when pr-menu-print-item
 	  (easy-menu-remove-item nil '("tools") pr-menu-print-item)
@@ -1345,6 +1346,7 @@
      ;; GNU Emacs 21 & 22
      (t
       (defun pr-global-menubar (pr-menu-spec)
+	(require 'easymenu)
 	(let ((menu-file (if (= emacs-major-version 21)
 			     '("menu-bar" "files") ; GNU Emacs 21
 			   '("menu-bar" "file")))) ; GNU Emacs 22 or higher
@@ -6017,9 +6019,10 @@
 ;; Printing Interface (inspired on ps-print-interface.el)
 
 
-(require 'widget)
-(require 'wid-edit)
-(require 'cus-edit)
+(eval-when-compile
+  (require 'cus-edit)
+  (require 'wid-edit)
+  (require 'widget))
 
 
 (defvar pr-i-window-configuration nil)