/[emacs]/emacs/lisp/find-file.el
ViewVC logotype

Diff of /emacs/lisp/find-file.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by lektu, Thu Jun 16 16:09:00 2005 UTC revision 1.28 by monnier, Sat Jul 2 19:11:52 2005 UTC
# Line 946  and the name of the file passed in." Line 946  and the name of the file passed in."
946  (defun ff-which-function-are-we-in ()  (defun ff-which-function-are-we-in ()
947    "Return the name of the function whose definition/declaration point is in.    "Return the name of the function whose definition/declaration point is in.
948  Also remember that name in `ff-function-name'."  Also remember that name in `ff-function-name'."
949      (setq ff-function-name
950    (setq ff-function-name nil)          (save-excursion
951              (if (or (re-search-backward ada-procedure-start-regexp nil t)
952    (save-excursion                    (re-search-backward ada-package-start-regexp nil t))
953      (if (re-search-backward ada-procedure-start-regexp nil t)                (match-string 0)))))
         (setq ff-function-name (buffer-substring (match-beginning 0)  
                                                  (match-end 0)))  
       ; we didn't find a procedure start, perhaps there is a package  
       (if (re-search-backward ada-package-start-regexp nil t)  
           (setq ff-function-name (buffer-substring (match-beginning 0)  
                                                    (match-end 0)))  
         ))))  
954    
955  ;; bind with (setq ff-post-load-hook 'ff-set-point-accordingly)  ;; bind with (setq ff-post-load-hook 'ff-set-point-accordingly)
956  ;;  ;;
# Line 971  That name was previously determined by ` Line 964  That name was previously determined by `
964    
965  (provide 'find-file)  (provide 'find-file)
966    
967  ;;; arch-tag: 5a2fc49e-3b0a-4708-9acf-fb14e471a97a  ;; arch-tag: 5a2fc49e-3b0a-4708-9acf-fb14e471a97a
968  ;;; find-file.el ends here  ;;; find-file.el ends here

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26