Mercurial > emacs

changeset 48156:5701c670b676

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(coding-system-eol-type-mnemonic): Move to mule.el.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 05 Nov 2002 10:43:04 +0000
parents f1434b395146
children e7121faa96be
files lisp/international/mule-util.el
diffstat 1 files changed, 1 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-util.el	Tue Nov 05 10:42:25 2002 +0000
+++ b/lisp/international/mule-util.el	Tue Nov 05 10:43:04 2002 +0000
@@ -195,7 +195,7 @@
 ;; 		(("こhんeにlちlはo" 13 4 ?x "日本語") . "xex日本語")
 ;; 		))
 ;;   (let (ret)
-;;     (condition-case e 
+;;     (condition-case e
 ;; 	(setq ret (apply #'truncate-string-to-width (car test)))
 ;;       (error (setq ret e)))
 ;;     (unless (equal ret (cdr test))
@@ -294,19 +294,6 @@
 ;; Coding system related functions.
 
 ;;;###autoload
-(defun coding-system-eol-type-mnemonic (coding-system)
-  "Return the string indicating end-of-line format of CODING-SYSTEM."
-  (let* ((eol-type (coding-system-eol-type coding-system))
-	 (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
-		    ((eq eol-type 0) eol-mnemonic-unix)
-		    ((eq eol-type 1) eol-mnemonic-dos)
-		    ((eq eol-type 2) eol-mnemonic-mac)
-		    (t "-"))))
-    (if (stringp val)
-	val
-      (char-to-string val))))
-
-;;;###autoload
 (defun coding-system-post-read-conversion (coding-system)
   "Return the value of CODING-SYSTEM's `post-read-conversion' property."
   (coding-system-get coding-system 'post-read-conversion))