[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el |
Date: |
Tue, 30 Sep 2003 08:54:33 -0400 |
Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.56
emacs/lisp/progmodes/ada-mode.el:1.57
*** emacs/lisp/progmodes/ada-mode.el:1.56 Mon Sep 1 11:45:34 2003
--- emacs/lisp/progmodes/ada-mode.el Tue Sep 30 08:54:32 2003
***************
*** 1071,1077 ****
;;;###autoload
(defun ada-mode ()
"Ada mode is the major mode for editing Ada code.
! This version was built on $Date: 2003/09/01 15:45:34 $.
Bindings are as follows: (Note: 'LFD' is control-j.)
\\{ada-mode-map}
--- 1071,1077 ----
;;;###autoload
(defun ada-mode ()
"Ada mode is the major mode for editing Ada code.
! This version was built on $Date: 2003/09/30 12:54:32 $.
Bindings are as follows: (Note: 'LFD' is control-j.)
\\{ada-mode-map}
***************
*** 1342,1363 ****
;; Fix is: redefine a new function ada-which-function, and call it when the
;; major-mode is ada-mode.
! (unless (featurep 'xemacs)
! ;; This function do not require that we load which-func now.
! ;; 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))
! )
;; Support for indent-new-comment-line (Especially for XEmacs)
(setq comment-multi-line nil)
--- 1342,1349 ----
;; Fix is: redefine a new function ada-which-function, and call it when the
;; major-mode is ada-mode.
! (make-local-variable 'which-func-functions)
! (setq which-func-functions '(ada-which-function))
;; Support for indent-new-comment-line (Especially for XEmacs)
(setq comment-multi-line nil)