mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

(ada-other-file-alist): Variable definition moved to ada-mode.el.

Browse source 
(ada-search-directories, ada-procedure-start-regexp): Likewise.
(ada-package-start-regexp): Likewise.
This commit is contained in:
Richard M. Stallman 1997-06-02 06:05:04 +00:00
parent 779b34dfaa
commit 97b7ec0bbd
1 changed files with 1 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/find-file.el
View file

@ -239,23 +239,6 @@ since the search algorithm searches sequentially through each directory
specified in `ff-search-directories'. If a file is not found, a new one
is created with the first matching extension (`.cc' yields `.hh').")
(defvar ada-search-directories
'("." "/usr/adainclude" "/usr/local/adainclude")
"*See the description for the `ff-search-directories' variable.")
(defvar ada-other-file-alist
'(
("\\.ads$" (".adb")) ;; Ada specs and bodies
("\\.adb$" (".ads")) ;; GNAT filename conventions
)
"*Alist of extensions to find given the current file's extension.
This list should contain the most used extensions before the others,
since the search algorithm searches sequentially through each directory
specified in `ada-search-directories'. If a file is not found, a new one
is created with the first matching extension (`.adb' yields `.ads').
")
(defvar modula2-other-file-alist
'(
("\\.mi$" (".md")) ;; Modula-2 module definition
@ -878,8 +861,7 @@ and the name of the file passed in."
(defvar ff-function-name nil "Name of the function we are in.")
(defvar ada-procedure-start-regexp)
(defvar ada-package-start-regexp)
(eval-when-compile (require 'ada-mode))
;; bind with (setq ff-pre-load-hooks 'ff-which-function-are-we-in)
;;