Mercurial > emacs
changeset 91002:8f9a5f52f99f
Evaluate require only during compilation
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 03 Aug 2007 13:53:03 +0000 |
| parents | 33b798fc1634 |
| children | 2e0d11dc863d |
| 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 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 <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 Jay Belanger <jay.p.belanger@gmail.com> * calc/calc-ext.el (math-get-value,math-get-sdev)
--- 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 <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)