Commit 2fb49346 authored by Juanma Barranquero's avatar Juanma Barranquero

(coding-system-eol-type-mnemonic): Move to mule.el.

parent 2e729bfa
2002-11-05 Juanma Barranquero <lektu@terra.es>
* international/mule.el (coding-system-eol-type-mnemonic): Move from
mule-util.el.
* international/mule-util.el (coding-system-eol-type-mnemonic): Move to
mule.el.
2002-11-04 Juanma Barranquero <lektu@terra.es>
* files.el (find-buffer-visiting): Accept new optional PREDICATE
......
......@@ -195,7 +195,7 @@ defaults to \"...\"."
;; (("$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
;; (condition-case e
;; (setq ret (apply #'truncate-string-to-width (car test)))
;; (error (setq ret e)))
;; (unless (equal ret (cdr test))
......@@ -293,19 +293,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
;; 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."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment