 ;;      (arc-indent-specform 2 state indent-point)
 ;;      (arc-indent-specform 1 state indent-point)))
 
-(defun arc-let-indent (state indent-point normal-indent)
-  (skip-chars-forward " \t")
-  (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]")
-      (lisp-indent-specform 2 state indent-point normal-indent)
-    (lisp-indent-specform 1 state indent-point normal-indent)))
+;; (defun arc-let-indent (state indent-point normal-indent)
+;;   (skip-chars-forward " \t")
+;;   (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]")
+;;       (lisp-indent-specform 2 state indent-point normal-indent)
+;;     (lisp-indent-specform 1 state indent-point normal-indent)))
 
 ;; (put 'begin 'arc-indent-function 0), say, causes begin to be indented
 ;; like def if the first form is placed on the next line, otherwise

;; Adapted-by: Dave Love <d.love@dl.ac.uk>
;; Adapted-by: Andrew MacDonald <awm@alum.mit.edu>
;; Adapted-by: Eric Hanchrow <offby1@blarg.net>
;; Keywords: languages, lisp

;; This file is not part of GNU Emacs.

(put 'fn 'arc-indent-function 1)
(put 'afn 'arc-indent-function 1)
(put 'rfn 'arc-indent-function 2)
;(put 'let 'arc-indent-function 'arc-let-indent)
(put 'let 'arc-indent-function 2)

;; By default, Emacs thinks .arc is an archive extension.
;; This makes it normal.
(dolist (coding auto-coding-alist)
  (when (and (string-match "[Aa][Rr][Cc]\\\\|" (car coding))
             (or (eq (cdr coding) 'no-conversion)
                 (eq (cdr coding) 'no-conversion-multibyte)))
    (setcar coding (replace-match "" nil nil (car coding)))))

(provide 'arc)
