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) |