[COMMIT] Listen to the byte-compiler, core Lisp.

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1234031481 0 # Node ID c786c3fd0740b7a007d268291fc6771143b8e3cb # Parent e0a8715fdb1fbeeee7cad2fe6d5d44fe1e44455f Listen to the byte-compiler, core Lisp. lisp/ChangeLog addition: 2009-02-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. diff -r e0a8715fdb1f -r c786c3fd0740 lisp/ChangeLog --- a/lisp/ChangeLog Sat Feb 07 17:13:37 2009 +0000 +++ b/lisp/ChangeLog Sat Feb 07 18:31:21 2009 +0000 ＠＠ -1,3 +1,19 ＠＠ +2009-02-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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. + 2009-02-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; * coding.el (query-coding-clear-highlights): diff -r e0a8715fdb1f -r c786c3fd0740 lisp/descr-text.el --- 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))))) diff -r e0a8715fdb1f -r c786c3fd0740 lisp/mule/mule-coding.el --- a/lisp/mule/mule-coding.el Sat Feb 07 17:13:37 2009 +0000 +++ b/lisp/mule/mule-coding.el Sat Feb 07 18:31:21 2009 +0000 ＠＠ -287,7 +287,7 ＠＠ (charset-lower -1) (charset-upper -1) worth-trying known-charsets encode-program - other-charset-vector ucs args-out-of-range) + other-charset-vector ucs) (loop for char across decode-table do (pushnew (char-charset char) known-charsets)) ＠＠ -297,7 +297,6 ＠＠ do ;; This is not possible for two dimensional charsets. (when (eq 1 (charset-dimension known-charset)) - (setq args-out-of-range t) (if (eq 'control-1 known-charset) (setq charset-lower 0 charset-upper 31) ＠＠ -677,7 +676,7 ＠＠ '8-bit-fixed-invalid-sequences-skip-chars))) (ranges (make-range-table)) (case-fold-search nil) - char-after fail-range-start fail-range-end previous-fail extent + char-after fail-range-start fail-range-end extent failed invalid-sequences-looking-at failed-reason previous-failed-reason) (check-type from-unicode hash-table) diff -r e0a8715fdb1f -r c786c3fd0740 lisp/tty-init.el --- a/lisp/tty-init.el Sat Feb 07 17:13:37 2009 +0000 +++ b/lisp/tty-init.el Sat Feb 07 18:31:21 2009 +0000 ＠＠ -57,7 +57,7 ＠＠ (register-tty-color "brightcyan" "\e[1;36m" "\e[1;46m") (register-tty-color "brightwhite" "\e[1;37m" "\e[1;47m") - (setq pre-tty-win-initted t)))) + (setq make-device-early-tty-entry-point-called-p t)))) ;; We have to do this for every created TTY console, after the first frame ;; has been created. diff -r e0a8715fdb1f -r c786c3fd0740 lisp/unicode.el --- 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)) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches