diff options
Diffstat (limited to 'lisp/printing.el')
| -rw-r--r-- | lisp/printing.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/printing.el b/lisp/printing.el index 3771871c9c8..c199dcacc28 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -1042,12 +1042,6 @@ Please send all bug fixes and enhancements to ;; To avoid compilation gripes -(or (fboundp 'easy-menu-intern) ; hacked from easymenu.el - (defsubst easy-menu-intern (s) - (if (stringp s) (intern s) s))) - - - (or (fboundp 'subst-char-in-string) ; hacked from subr.el (defun subst-char-in-string (fromchar tochar string &optional inplace) "Replace FROMCHAR with TOCHAR in STRING each time it occurs. @@ -2803,8 +2797,10 @@ See `pr-ps-printer-alist'.") (and pr-print-using-ghostscript (not pr-spool-p))) -(defun pr-get-symbol (name) - (easy-menu-intern name)) +(defalias 'pr-get-symbol + (if (fboundp 'easy-menu-intern) + 'easy-menu-intern + (lambda (s) (if (stringp s) (intern s) s)))) (cond ((featurep 'xemacs) ; XEmacs |