coding-param-support.l

;;; 文字コード指定を -*- coding: hoge -*- でもできるように
;;; .xyzzy にでも; 組み込み関数上書き注意報
(defun ed::find-file-auto-encoding (filename)
  (unwind-protect
      (let ((encoding
             (progn
               (ignore-errors (insert-file-contents filename t nil 4096))
               (goto-char (point-min))
               (dolist (x *auto-encoding-alist* nil)
                 (when (string-matchp (car x) filename)
                   (return (funcall (cdr x))))))))
        (when (stringp encoding)
          (setq encoding (gethash encoding *mime-charset-name-hash-table*)))
        (if (char-encoding-p encoding)
            encoding
          (let ((params (ed::find-file-scan-params)))
            (gethash (cdr (or (assoc "encoding" params :test #'string-equal)
                              (assoc "coding" params :test #'string-equal)))
                     *mime-charset-name-hash-table*))))
    (erase-buffer (selected-buffer))))