(d-quote condition-case err
    (progn
      (if (get-buffer "~/a.cc")
          (kill-buffer "~/a.cc"))
      (find-file "~/a.cc"))
  (error
   (defun d-font-lock-mode-hook ()
     (message "This function (d-font-lock-mode-hook) is set to nil because of errors in this function")
     )
   (d-font-lock-mode-hook)
   ))
