/[emacs]/emacs/lisp/international/mule-util.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46.2.2 by fx, Sat Jun 29 10:44:03 2002 UTC revision 1.46.2.3 by fx, Thu Jul 11 22:59:06 2002 UTC
# Line 289  language environment LANG-ENV." Line 289  language environment LANG-ENV."
289  ;;;###autoload  ;;;###autoload
290  (defmacro with-coding-priority (coding-systems &rest body)  (defmacro with-coding-priority (coding-systems &rest body)
291    "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.    "Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
292  CODING-SYSTEMS is a list of coding systems."  CODING-SYSTEMS is a list of coding systems.  See
293    `set-coding-priority'.  This affects the implicit sorting of lists of
294    coding sysems returned by operations such as `find-coding-systems-region'."
295    (let ((current (make-symbol "current")))    (let ((current (make-symbol "current")))
296    `(let ((,current (coding-system-priorities)))    `(let ((,current (coding-system-priority-list)))
297       (apply #'set-coding-priority ,coding-systems)       (apply #'set-coding-system-priority ,coding-systems)
298       (unwind-protect       (unwind-protect
299           (progn ,@body)           (progn ,@body)
300         (set-coding-priority ,current)))))         (apply #'set-coding-system-priority ,current)))))
301  (put 'with-coding-priority 'lisp-indent-function 1)  (put 'with-coding-priority 'lisp-indent-function 1)
302  (put 'with-coding-priority 'edebug-form-spec t)  (put 'with-coding-priority 'edebug-form-spec t)
303    

Legend:
Removed from v.1.46.2.2  
changed lines
  Added in v.1.46.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26