Silence printing.el compilation

* lisp/printing.el (pr-menu-bar): Define when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fdc0c586491ba5e28046773ea5323a7c8f7a615c..1aaf0a5fa804558afe60de4e3555d74910658f15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-05-21  Glenn Morris  <rgm@gnu.org>
 
+       * printing.el (pr-menu-bar): Define when compiling.
+
        * mail/rmail.el (speedbar): No need to load when compiling.
        (speedbar-make-specialized-keymap, speedbar-with-attached-buffer)
        (speedbar-do-function-pointer): Declare.

diff --git a/lisp/printing.el b/lisp/printing.el
index bf50aa8f679d3cbede637906378b223206762d4e..18b2b89363be15f8c723901e25ded21a405a4482 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1342,6 +1342,10 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; GNU Emacs Definitions
 
+(eval-and-compile
+  (unless (featurep 'xemacs)
+    (defvar pr-menu-bar nil
+      "Specify Printing menu-bar entry.")))
 
 (cond
  ((featurep 'xemacs)                   ; XEmacs
@@ -1372,9 +1376,6 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
   (defun pr-menu-char-width ()
     (frame-char-width))
 
-  (defvar pr-menu-bar nil
-    "Specify Printing menu-bar entry.")
-
   ;; GNU Emacs
   ;; Menu binding
   ;; Replace existing "print" item by "Printing" item.