[Emacs-diffs] Changes to emacs/lisp/international/mule-util.el

[Miles Bader]

Index: emacs/lisp/international/mule-util.el
diff -c emacs/lisp/international/mule-util.el:1.50 
emacs/lisp/international/mule-util.el:1.51
*** emacs/lisp/international/mule-util.el:1.50  Thu Jul 18 02:13:27 2002
--- emacs/lisp/international/mule-util.el       Tue Nov  5 05:43:04 2002
***************
*** 195,201 ****
  ;;            (("$B$3(Bh$B$s(Be$B$K(Bl$B$A(Bl$B$O(Bo" 13 4 ?x 
"$BF|K\8l(B") . "xex$BF|K\8l(B")
  ;;            ))
  ;;   (let (ret)
! ;;     (condition-case e 
  ;;    (setq ret (apply #'truncate-string-to-width (car test)))
  ;;       (error (setq ret e)))
  ;;     (unless (equal ret (cdr test))
--- 195,201 ----
  ;;            (("$B$3(Bh$B$s(Be$B$K(Bl$B$A(Bl$B$O(Bo" 13 4 ?x 
"$BF|K\8l(B") . "xex$BF|K\8l(B")
  ;;            ))
  ;;   (let (ret)
! ;;     (condition-case e
  ;;    (setq ret (apply #'truncate-string-to-width (car test)))
  ;;       (error (setq ret e)))
  ;;     (unless (equal ret (cdr test))
***************
*** 292,310 ****
  
  
  ;; 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)
--- 292,297 ----