procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2002-11-05 10:43:33 +00:00
parent 2e729bfaa6
commit 2fb49346bd
2 changed files with 9 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
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

15
lisp/international/mule-util.el
View file

@ -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."