Horrible kludge in ff-get-file

[Richard Stallman]

I just saw this code in ada-mode.el

  ;; Another special construct for find-file.el : when in a separate clause,
  ;; go to the correct package.
  (add-to-list 'ff-special-constructs
               (cons "^separate[ \t\n]*(\\(\\(\\sw\\|[_.]\\)+\\))"
                     (lambda ()
                       (if (fboundp 'ff-get-file)
                           (if (boundp 'fname)
                               (setq fname (ff-get-file
                                            ada-search-directories-internal
                                            (ada-make-filename-from-adaname
                                             (match-string 1))
                                            ada-spec-suffixes)))))))

This would be clean if fname were renamed to a clean meaningful name
and had a defvar.

Would someone please do that?