changeset: 4663:8cbca852bcd4a64915155e8ee26c5616dd34d623 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Wed Feb 18 07:53:34 2009 +0000 files: lisp/ChangeLog lisp/coding.el tests/ChangeLog tests/automated/query-coding-tests.el description: #'check-coding-systems-region: return nil on success, not t. lisp/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * coding.el (check-coding-systems-region): Return null on success, not t. See http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1723 tests/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/query-coding-tests.el : Check that #'check-coding-systems-region returns null on success here, not t. diff -r 127dbf03e1af1acd6796b7e66bc35b6628d91886 -r 8cbca852bcd4a64915155e8ee26c5616dd34d623 lisp/ChangeLog --- a/lisp/ChangeLog Tue Feb 17 13:42:36 2009 +0000 +++ b/lisp/ChangeLog Wed Feb 18 07:53:34 2009 +0000 ＠＠ -1,3 +1,9 ＠＠ 2009-02-17 Aidan Kehoe <kehoea＠parhasa +2009-02-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * coding.el (check-coding-systems-region): + Return null on success, not t. See + http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1723 + 2009-02-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule/mule-cmds.el (finish-set-language-environment): diff -r 127dbf03e1af1acd6796b7e66bc35b6628d91886 -r 8cbca852bcd4a64915155e8ee26c5616dd34d623 lisp/coding.el --- a/lisp/coding.el Tue Feb 17 13:42:36 2009 +0000 +++ b/lisp/coding.el Wed Feb 18 07:53:34 2009 +0000 ＠＠ -589,8 +589,7 ＠＠ encode. encode. If all coding systems in CODING-SYSTEM-LIST can encode the region, -this function returns t. This conflicts with the documented, but not -with the observed, GNU behavior. +this function returns nil. If BEGIN is a string, `check-coding-systems-region' ignores END, and checks whether the coding systems can encode BEGIN. The alist that is returned ＠＠ -619,7 +618,7 ＠＠ This function is for GNU compatibility. (setq intermediate (list (coding-system-name coding-system))) (map-range-table range-lambda ranges) (push (nreverse intermediate) result))) - finally return (or result t))))) + finally return result)))) (if (stringp begin) (with-temp-buffer (insert begin) diff -r 127dbf03e1af1acd6796b7e66bc35b6628d91886 -r 8cbca852bcd4a64915155e8ee26c5616dd34d623 tests/ChangeLog --- a/tests/ChangeLog Tue Feb 17 13:42:36 2009 +0000 +++ b/tests/ChangeLog Wed Feb 18 07:53:34 2009 +0000 ＠＠ -1,3 +1,8 ＠＠ 2009-02-17 Aidan Kehoe <kehoea＠parhasa +2009-02-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * automated/query-coding-tests.el : Check that + #'check-coding-systems-region returns null on success here, not t. + 2009-02-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/mule-tests.el (featurep): diff -r 127dbf03e1af1acd6796b7e66bc35b6628d91886 -r 8cbca852bcd4a64915155e8ee26c5616dd34d623 tests/automated/query-coding-tests.el --- a/tests/automated/query-coding-tests.el Tue Feb 17 13:42:36 2009 +0000 +++ b/tests/automated/query-coding-tests.el Wed Feb 18 07:53:34 2009 +0000 ＠＠ -413,9 +413,9 ＠＠ iso-latin-with-esc-unix-1")) "check #'unencodable-char-position stops at 7 if 2000 asked for") ;; Now, #'check-coding-systems-region. ;; UTF-8 should certainly be able to encode these characters: - (Assert (eq t (check-coding-systems-region (point-min) (point-max) + (Assert (null (check-coding-systems-region (point-min) (point-max) '(utf-8))) - "check #'check-coding-systems-region gives t if encoding works") + "check #'check-coding-systems-region gives nil if encoding works") (Assert (equal '((iso-8859-1 257 258 259 260 261 262 263) (windows-1252 129 130 131 132 133 134 135 136 _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches