Mercurial > emacs
changeset 88842:bf78a07ee032
(with-coding-priority): Fix.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 11 Jul 2002 22:59:06 +0000 |
| parents | 8d1b688eca17 |
| children | 51f207284393 |
| files | lisp/international/mule-util.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)