Function: editorconfig--get-coding-system

editorconfig--get-coding-system is a byte-compiled function defined in editorconfig.el.gz.

Signature

(editorconfig--get-coding-system &optional SIZE)

Documentation

Return the coding system to use according to EditorConfig.

Meant to be used on auto-coding-functions.

Source Code

;; Defined in /usr/src/emacs/lisp/editorconfig.el.gz
(defun editorconfig--get-coding-system (&optional _size)
  "Return the coding system to use according to EditorConfig.
Meant to be used on `auto-coding-functions'."
  (defvar auto-coding-file-name) ;; Emacs≥30
  ;; Not only we don't want that an error in the `.editorconfig' file
  ;; prevents opening a file but we don't want an error to be dropped on
  ;; the floor by some `ignore-errors' higher up.
  (with-demoted-errors "EditorConfig: %S"
    (when (and (stringp auto-coding-file-name)
               (file-name-absolute-p auto-coding-file-name)
	       ;; Don't recurse infinitely.
	       (not (member auto-coding-file-name
                            editorconfig--getting-coding-system)))
      (let* ((editorconfig--getting-coding-system
              (cons auto-coding-file-name editorconfig--getting-coding-system))
             (props (editorconfig-call-get-properties-function
                     auto-coding-file-name)))
        (editorconfig-merge-coding-systems (gethash 'end_of_line props)
                                           (gethash 'charset props))))))