Mercurial > emacs

comparison lisp/find-file.el @ 44880:e772dea9fb2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.