From bead134f40a923a6202c3b93502d2204faa5f4eb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 16 Nov 2005 22:44:53 +0000 Subject: [PATCH] (easy-menu-intern): Don't define. (pr-get-symbol): Use easy-menu-intern only if defined. --- lisp/ChangeLog | 11 +++++++++++ lisp/printing.el | 12 ++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dedc30af307..8caa172cba8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2005-11-16 Stefan Monnier + + * printing.el (easy-menu-intern): Don't define. + (pr-get-symbol): Use easy-menu-intern only if defined. + + * simple.el (blink-matching-open): Simplify a bit. + (completion-setup-function): Fix the case of partial-completion-mode + when the minibuffer's contents start with "-". + Obey completion-base-size-function even when + minibuffer-completing-file-name is non-nil. + 2005-11-16 Richard M. Stallman * net/eudcb-ph.el (eudc-ph-open-session): 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 -- 2.39.5