Mercurial > emacs
comparison lisp/find-file.el @ 44880:e772dea9fb2e
Remove Ada-specific example code.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 26 Apr 2002 14:40:21 +0000 |
parents | e12d545c9a48 |
children | 27533450eb3b |
comparison
equal
deleted
inserted
replaced
44879:d995856e52ba | 44880:e772dea9fb2e |
---|---|
2 | 2 |
3 ;; Author: Henry Guillaume <henri@tibco.com, henry@c032.aone.net.au> | 3 ;; Author: Henry Guillaume <henri@tibco.com, henry@c032.aone.net.au> |
4 ;; Maintainer: FSF | 4 ;; Maintainer: FSF |
5 ;; Keywords: c, matching, tools | 5 ;; Keywords: c, matching, tools |
6 | 6 |
7 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. | 7 ;; Copyright (C) 1994, 1995, 2002 Free Software Foundation, Inc. |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | 12 ;; it under the terms of the GNU General Public License as published by |
943 ;; This section offers an example of user defined function to place point. | 943 ;; This section offers an example of user defined function to place point. |
944 ;; The regexps are Ada specific. | 944 ;; The regexps are Ada specific. |
945 | 945 |
946 (defvar ff-function-name nil "Name of the function we are in.") | 946 (defvar ff-function-name nil "Name of the function we are in.") |
947 | 947 |
948 (eval-when-compile (require 'ada-mode)) | 948 ;(eval-when-compile (require 'ada-mode)) |
949 | 949 |
950 ;; bind with (setq ff-pre-load-hooks 'ff-which-function-are-we-in) | 950 ;; bind with (setq ff-pre-load-hooks 'ff-which-function-are-we-in) |
951 ;; | 951 ;; |
952 (defun ff-which-function-are-we-in () | 952 (defun ff-which-function-are-we-in () |
953 "Return the name of the function whose definition/declaration point is in. | 953 "Return the name of the function whose definition/declaration point is in. |