(setup-default-fontset): Change registry names of Akurti fonts.

[gnu-emacs] / lisp / printing.el

diff --git a/lisp/printing.el b/lisp/printing.el
index eb55586591bb4071bd184956b463b577346e0c02..f9c95a164471a454199d8f00b09ba4dd65d07961 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1,6 +1,6 @@
 ;;; printing.el --- printing utilities
 
-;; Copyright (C) 2000, 2001, 2002
+;; Copyright (C) 2000, 2001, 2002, 2003
 ;; Free Software Foundation, Inc.
 
 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
@@ -2344,15 +2344,6 @@ 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)
   (memq key pr-visible-entry-list))
@@ -2371,6 +2362,13 @@ See `pr-ps-printer-alist'.")
 
 
 (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)))
+
   (cond
    ((eq ps-print-emacs-type 'emacs)    ; GNU Emacs
     (defsubst pr-region-active-p ()