changeset 49649:31cb523592a1

(pr-get-symbol): Define during compile.
author Kim F. Storm <storm@cua.dk>
date Fri, 07 Feb 2003 23:10:24 +0000
parents 4dd9a6db81d7
children 31ba10b86927
files lisp/printing.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/printing.el	Fri Feb 07 21:47:21 2003 +0000
+++ b/lisp/printing.el	Fri Feb 07 23:10:24 2003 +0000
@@ -2344,13 +2344,14 @@
        ,@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)