From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Richard Stallman <rms@gnu.org>
Newsgroups: gmane.emacs.devel
Subject: Horrible kludge in ff-get-file
Date: Sun, 16 Jul 2006 13:31:10 -0400
Message-ID: <E1G2ASU-0000xa-43@fencepost.gnu.org>
Reply-To: rms@gnu.org
NNTP-Posting-Host: main.gmane.org
Content-Type: text/plain; charset=ISO-8859-15
X-Trace: sea.gmane.org 1153071113 21258 80.91.229.2 (16 Jul 2006 17:31:53 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Sun, 16 Jul 2006 17:31:53 +0000 (UTC)
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jul 16 19:31:50 2006
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
Envelope-to: ged-emacs-devel@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1G2AT1-0007tq-Hs
	for ged-emacs-devel@m.gmane.org; Sun, 16 Jul 2006 19:31:43 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1G2AT1-0003Vj-1B
	for ged-emacs-devel@m.gmane.org; Sun, 16 Jul 2006 13:31:43 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1G2ASV-0003J3-Eb
	for emacs-devel@gnu.org; Sun, 16 Jul 2006 13:31:11 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1G2ASV-0003Ij-2L
	for emacs-devel@gnu.org; Sun, 16 Jul 2006 13:31:11 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1G2ASU-0003Ie-QB
	for emacs-devel@gnu.org; Sun, 16 Jul 2006 13:31:10 -0400
Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1G2AUy-0002s3-Uc
	for emacs-devel@gnu.org; Sun, 16 Jul 2006 13:33:44 -0400
Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34)
	id 1G2ASU-0000xa-43; Sun, 16 Jul 2006 13:31:10 -0400
Original-To: emacs-devel@gnu.org
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.devel:57101
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/57101>

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?