Mercurial > emacs

changeset 89081:46a348bc9e96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mm-iso-8859-x-to-15-region): Deleted.
author Dave Love <fx@gnu.org>
date Thu, 05 Sep 2002 17:52:26 +0000
parents f881acb1a123
children b0561ff01908
files lisp/gnus/mm-util.el
diffstat 1 files changed, 0 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Thu Sep 05 17:50:38 2002 +0000
+++ b/lisp/gnus/mm-util.el	Thu Sep 05 17:52:26 2002 +0000
@@ -432,26 +432,6 @@
       enable-multibyte-characters
     (featurep 'mule)))
 
-(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))))
-
 (defun mm-sort-coding-systems-predicate (a b)
   (> (length (memq a mm-coding-system-priorities))
      (length (memq b mm-coding-system-priorities))))