Mercurial > emacs
diff lisp/printing.el @ 50017:0ee18dc00572
vinicius: copyright date fix. Move pr-get-symbol into eval-and-compile.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Mon, 03 Mar 2003 20:03:18 +0000 |
parents | 31cb523592a1 |
children | 695cf19ef79e |
line wrap: on
line diff
--- a/lisp/printing.el Mon Mar 03 19:55:10 2003 +0000 +++ b/lisp/printing.el Mon Mar 03 20:03:18 2003 +0000 @@ -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 @@ ,@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 @@ (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 ()