From 0a999a5e9f1171444105248d0daa916021e573bb Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 11 Jul 2002 22:59:06 +0000 Subject: [PATCH] (with-coding-priority): Fix. --- lisp/international/mule-util.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 8c362373185..ef4367ecf02 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -289,13 +289,15 @@ language environment LANG-ENV." ;;;###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) -- 2.39.5