Re: Semantic keys when needed

[Oleksandr Gavenko <gavenko@bifit.com.ua>]

On 16.10.2010 19:21, Andrea Crotti wrote:
> Oleksandr Gavenko<gavenko@bifit.com.ua>  writes:
>> I hope this help:
>>
>> (unless (featurep 'cedet)
>>    (when (or (and (= emacs-major-version 23) (= emacs-minor-version 2))
>>                  (>= emacs-minor-version 24))
>>      (semantic-mode 1)
>>      ))
>>
>> (when (featurep 'cedet)
>>    (global-set-key (kbd "C-c , .") 'semantic-ia-fast-jump)
>>    (global-set-key (kbd "C-c , d") 'semantic-ia-show-doc)
>>    (global-set-key (kbd "C-c , D") 'semantic-ia-describe-class)
>>    (global-set-key (kbd "C-c , c") 'semantic-ia-complete-symbol-menu)
>>    )
>
> mm I don't understand
> 1. (featurep 'cedet) is true also in modes not enabled
> 2. I would like to avoid global key settings...
>
> What I wanted is to have those keys enabled where they really do something...
>
I suggest such method:

(defvar my-cedet-mode-list
   '(
     c-mode c++-mode java-mode
     makefile-mode makefile-gmake-mode
     )
   "List of CEDET enables modes.")

(mapc
  (lambda (mode)
    (define-key
      (intern (concat (symbol-name mode) "-map"))
      (kbd "<return>") 'FUNC)
    )
  my-cedet-mode-list)

The only question how automatically get 'my-cedet-mode-list'.