Listen to the byte-compiler, core Lisp. lisp/ChangeLog addition: 2009-02-07 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-text-sexp): pp is in packages, use cl-prettyprint instead. * mule/mule-coding.el (make-8-bit-generate-helper): Don't uselessly bind args-out-of-range, thank you the byte compiler. * mule/mule-coding.el (8-bit-fixed-query-coding-region): Don't uselessly bind previous-fail, thank you the byte compiler. * tty-init.el (make-device-early-tty-entry-point): Set make-device-early-tty-entry-point-called-p, not pre-tty-win-initted, thank you the byte compiler. * unicode.el (unicode-query-coding-region): Don't uselessly bind invalid-sequence-p, thank you the byte-compiler.

--- a/lisp/descr-text.el	Sat Feb 07 17:13:37 2009 +0000
+++ b/lisp/descr-text.el	Sat Feb 07 18:31:21 2009 +0000
@@ -58,7 +58,9 @@
   "Insert a short description of SEXP in the current buffer."
   ;; XEmacs change; use the widget functions. 
   (let ((pp (condition-case signal
-		(pp-to-string sexp)
+                ;; XEmacs change; pp is in packages, use cl-prettyprint
+                ;; instead.
+		(with-output-to-string (cl-prettyprint sexp))
 	      (error (prin1-to-string signal)))))
     (when (string-match "\n\\'" pp)
       (setq pp (substring pp 0 (1- (length pp)))))