comparison lisp/international/mule-util.el @ 88842:bf78a07ee032

(with-coding-priority): Fix.

88841:8d1b688eca17

          (detect-coding-region from to)))))

;;;###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."
  (let ((current (make-symbol "current")))
  `(let ((,current (coding-system-priorities)))
     (apply #'set-coding-priority ,coding-systems)
     (unwind-protect
	 (progn ,@body)
       (set-coding-priority ,current)))))
(put 'with-coding-priority 'lisp-indent-function 1)
(put 'with-coding-priority 'edebug-form-spec t)

(provide 'mule-util)

88842:bf78a07ee032

          (detect-coding-region from to)))))

;;;###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.  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-priority-list)))
     (apply #'set-coding-system-priority ,coding-systems)
     (unwind-protect
	 (progn ,@body)
       (apply #'set-coding-system-priority ,current)))))
(put 'with-coding-priority 'lisp-indent-function 1)
(put 'with-coding-priority 'edebug-form-spec t)

(provide 'mule-util)