# HG changeset patch # User Vinicius Jose Latorre # Date 1186149183 0 # Node ID 8f9a5f52f99f36d0b13a17759dfe8dbc708d779b # Parent 33b798fc1634b065ff3cc2a32f2bae5bf276c35b Evaluate require only during compilation diff -r 33b798fc1634 -r 8f9a5f52f99f lisp/ChangeLog --- a/lisp/ChangeLog Fri Aug 03 05:57:24 2007 +0000 +++ b/lisp/ChangeLog Fri Aug 03 13:53:03 2007 +0000 @@ -1,3 +1,10 @@ +2007-08-03 Vinicius Jose Latorre + + * 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 Jay Belanger * calc/calc-ext.el (math-get-value,math-get-sdev) diff -r 33b798fc1634 -r 8f9a5f52f99f lisp/printing.el --- a/lisp/printing.el Fri Aug 03 05:57:24 2007 +0000 +++ b/lisp/printing.el Fri Aug 03 13:53:03 2007 +0000 @@ -6,11 +6,11 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; 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 @@ -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)