X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/872faefb07a9196a583fc8cbe146ab6a2ebc9c2b..8308f184984d5c10fee62990d8a01abcec7f2160:/lisp/printing.el

diff --git a/lisp/printing.el b/lisp/printing.el
index bf50aa8f67..18b2b89363 100644
--- 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.