 ;;      (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

      (cons
       (concat
        "(" (regexp-opt
             '("fn" "rfn" "afn" "def" "mac" "set"
               "defset" "defop" "deftem" "defmemo"
               "when" "unless"
               "do" "while" "until" "only" "each" "if" "=" "for" "repeat"
               "aif" "aand" "awhen"
               "case" "zap"
               "let" "with" "withs"
               "apply" "in"
               ;; Hannes Haug <hannes.haug@student.uni-tuebingen.de> wants:
               "and" "or"
               ;; Stefan Monnier <stefan.monnier@epfl.ch> says don't bother:
               ;;"quasiquote" "quote" "unquote" "unquote-splicing"
               "map" "sort") t)
        "\\>") 1)
      )))
  "Gaudy expressions to highlight in Arc modes.")

(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)
