;;;============================================================================
;;; Modo CLIPS
;;;============================================================================

;;;   Modificar la siguiente instrucción con el camino completo donde se ha
;;; descomprimido "clips-mode":

(add-to-list 'load-path "/home/fmartin/Emacs/clips-mode/")

(load "inf-clips")

(defun fill-clips ()
  (progn (clips-mode)
	 (auto-fill-mode))) 

(setq auto-mode-alist
      (append
       '(("\.clp$" . fill-clips))
       auto-mode-alist))

;;;   Modificar la siguiente instrucción con el camino completo al interprete
;;; de CLIPS

(setq inferior-clips-program "/usr/local/bin/clips")

;;;============================================================================