diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2003-03-03 20:03:18 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2003-03-03 20:03:18 +0000 |
| commit | 526335b489fa0eac018e9ac4f3a7c084db0b1664 (patch) | |
| tree | 3dfe46817164e31393778b025391ff38692e6e53 /lisp/printing.el | |
| parent | ca2417b9b97919dbc23bf38916f7cd86902d68de (diff) | |
| download | emacs-526335b489fa0eac018e9ac4f3a7c084db0b1664.tar.gz | |
vinicius: copyright date fix. Move pr-get-symbol into eval-and-compile.
Diffstat (limited to 'lisp/printing.el')
| -rw-r--r-- | lisp/printing.el | 18 |
1 files 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 <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 () |