/[emacs]/emacs/lisp/progmodes/ada-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-mode.el

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

revision 1.56 by miles, Mon Sep 1 15:45:34 2003 UTC revision 1.57 by rms, Tue Sep 30 12:54:32 2003 UTC
# Line 1342  If you use ada-xref.el: Line 1342  If you use ada-xref.el:
1342    ;; Fix is: redefine a new function ada-which-function, and call it when the    ;; Fix is: redefine a new function ada-which-function, and call it when the
1343    ;; major-mode is ada-mode.    ;; major-mode is ada-mode.
1344    
1345    (unless (featurep 'xemacs)    (make-local-variable 'which-func-functions)
1346      ;;  This function do not require that we load which-func now.    (setq which-func-functions '(ada-which-function))
     ;;  This can be done by the user if he decides to use which-func-mode  
   
     (defadvice which-function (around ada-which-function activate)  
       "In Ada buffers, should work with overloaded subprograms, and does not  
 use imenu."  
       (if (equal major-mode 'ada-mode)  
           (set 'ad-return-value (ada-which-function))  
         ad-do-it))  
   
     ;;  So that we can activate which-func-modes for Ada mode  
     (if (and (boundp 'which-func-modes)  
              (listp which-func-modes))  
         (add-to-list 'which-func-modes 'ada-mode))  
     )  
1347    
1348    ;;  Support for indent-new-comment-line (Especially for XEmacs)    ;;  Support for indent-new-comment-line (Especially for XEmacs)
1349    (setq comment-multi-line nil)    (setq comment-multi-line nil)

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

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