From 526335b489fa0eac018e9ac4f3a7c084db0b1664 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Mon, 3 Mar 2003 20:03:18 +0000 Subject: [PATCH] vinicius: copyright date fix. Move pr-get-symbol into eval-and-compile. --- lisp/printing.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/lisp/printing.el b/lisp/printing.el index eb55586591b..f9c95a16447 100644 --- 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 @@ -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 () -- 2.39.5