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/unicode.el	Sat Feb 07 17:13:37 2009 +0000
+++ b/lisp/unicode.el	Sat Feb 07 18:31:21 2009 +0000
@@ -641,8 +641,7 @@
          (looking-at-arg (concat "[" skip-chars-arg "]"))
          (case-fold-search nil)
          fail-range-start fail-range-end char-after failed
-	 extent char-unicode invalid-sequence-p failed-reason
-         previous-failed-reason)
+	 extent char-unicode failed-reason previous-failed-reason)
     (save-excursion
       (when highlightp
         (query-coding-clear-highlights begin end buffer))