
(add-hook 'find-file-hook 'lisp++-find-file-hook)

(defun lisp++-find-file-hook ()
  (save-excursion
    (save-match-data
      (goto-char (point-min))
      (if (re-search-forward "(cname [a-z][a-zA-Z0-9_]+)" nil t)
          (set (make-local-variable 'lisp++) t)))))

(provide 'lisp++)
    
