(pr-get-symbol): Define during compile.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2003-02-08  Kim F. Storm  <storm@cua.dk>
+
+	* printing.el (pr-get-symbol): Define during compile.
+
 2003-02-07  Vinicius Jose Latorre <vinicius@cpqd.com.br>
 
 	* printing.el: New file.

lisp/printing.el

@@ -2344,13 +2344,14 @@ See `pr-ps-printer-alist'.")
        ,@body
        (kill-buffer temp))))
 
-
+(eval-and-compile
 (defun pr-get-symbol (name)
   ;; Recent versions of easy-menu downcase names before interning them.
   (and (fboundp 'easy-menu-name-match)
        (setq name (downcase name)))
   (or (intern-soft name)
       (make-symbol name)))
+)
 
 
 (defsubst pr-visible-p (key)