;;;****************************************************************************
;;; Modo Clips.
;;;----------------------------------------------------------------------------

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

;; Descomentar sustituyendo "directorio" por la camino al fichero "inf-clips"
;; (dejando las comillas). 

;; (setq load-path 
;;       (cons "directorio" load-path))

(load "inf-clips")

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

;; Sustituir "clips" por el camino completo al ejecutable (incluido el ejecutable).

(setq inferior-clips-program "clips")

;;;****************************************************************************