# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1026428346 0
# Node ID bf78a07ee03291a6b81e9de74dc40a5344f0b891
# Parent  8d1b688eca1700c45ec6cfbdad2a24ee2228a6b4
(with-coding-priority): Fix.

diff -r 8d1b688eca17 -r bf78a07ee032 lisp/international/mule-util.el
--- a/lisp/international/mule-util.el	Tue Jul 09 22:35:42 2002 +0000
+++ b/lisp/international/mule-util.el	Thu Jul 11 22:59:06 2002 +0000
@@ -289,13 +289,15 @@
 ;;;###autoload
 (defmacro with-coding-priority (coding-systems &rest body)
   "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
-CODING-SYSTEMS is a list of coding systems."
+CODING-SYSTEMS is a list of coding systems.  See
+`set-coding-priority'.  This affects the implicit sorting of lists of
+coding sysems returned by operations such as `find-coding-systems-region'."
   (let ((current (make-symbol "current")))
-  `(let ((,current (coding-system-priorities)))
-     (apply #'set-coding-priority ,coding-systems)
+  `(let ((,current (coding-system-priority-list)))
+     (apply #'set-coding-system-priority ,coding-systems)
      (unwind-protect
 	 (progn ,@body)
-       (set-coding-priority ,current)))))
+       (apply #'set-coding-system-priority ,current)))))
 (put 'with-coding-priority 'lisp-indent-function 1)
 (put 'with-coding-priority 'edebug-form-spec t)