Mercurial > emacs

comparison lisp/find-file.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 375f2633d815
children 0fe073a08cef
comparison
equal deleted inserted replaced
89908:ee1402f7b568 89909:68c22ea6027c
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, 2002 Free Software Foundation, Inc. 7 ;; Copyright (C) 1994, 1995, 2002, 2003 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
180 (defcustom ff-quiet-mode nil 180 (defcustom ff-quiet-mode nil
181 "*If non-nil, trace which directories are being searched." 181 "*If non-nil, trace which directories are being searched."
182 :type 'boolean 182 :type 'boolean
183 :group 'ff) 183 :group 'ff)
184 184
185 ;;;###autoload
185 (defvar ff-special-constructs 186 (defvar ff-special-constructs
186 '( 187 '(
187 ;; C/C++ include, for NeXTSTEP too 188 ;; C/C++ include, for NeXTSTEP too
188 ("^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" . 189 ("^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" .
189 (lambda () 190 (lambda ()
964 (goto-char (point-min)) 965 (goto-char (point-min))
965 (search-forward ff-function-name nil t)))) 966 (search-forward ff-function-name nil t))))
966 967
967 (provide 'find-file) 968 (provide 'find-file)
968 969
970 ;;; arch-tag: 5a2fc49e-3b0a-4708-9acf-fb14e471a97a
969 ;;; find-file.el ends here 971 ;;; find-file.el ends here