/[emacs]/emacs/lisp/gnus/mm-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-util.el

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

revision 1.24.2.6 by fx, Thu Sep 5 17:50:06 2002 UTC revision 1.24.2.7 by fx, Thu Sep 5 17:52:26 2002 UTC
# Line 432  If the charset is `composition', return Line 432  If the charset is `composition', return
432        enable-multibyte-characters        enable-multibyte-characters
433      (featurep 'mule)))      (featurep 'mule)))
434    
 (defun mm-iso-8859-x-to-15-region (&optional b e)  
   (if (fboundp 'char-charset)  
       (let (charset item c inconvertible)  
         (save-restriction  
           (if e (narrow-to-region b e))  
           (goto-char (point-min))  
           (skip-chars-forward "\0-\177")  
           (while (not (eobp))  
             (cond  
              ((not (setq item (assq (char-charset (setq c (char-after)))  
                                     mm-iso-8859-x-to-15-table)))  
               (forward-char))  
              ((memq c (cdr (cdr item)))  
               (setq inconvertible t)  
               (forward-char))  
              (t  
               (insert (prog1 (+ c (car (cdr item))) (delete-char 1))))  
             (skip-chars-forward "\0-\177"))))  
         (not inconvertible))))  
   
435  (defun mm-sort-coding-systems-predicate (a b)  (defun mm-sort-coding-systems-predicate (a b)
436    (> (length (memq a mm-coding-system-priorities))    (> (length (memq a mm-coding-system-priorities))
437       (length (memq b mm-coding-system-priorities))))       (length (memq b mm-coding-system-priorities))))

Legend:
Removed from v.1.24.2.6  
changed lines
  Added in v.1.24.2.7

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