.emacs-my
changeset 1467 87b79df71e39
parent 1466 6814b46a6619
child 1468 0959998f028d
equal deleted inserted replaced
1466:6814b46a6619 1467:87b79df71e39
  3143 (when (fboundp 'subword-mode)
  3143 (when (fboundp 'subword-mode)
  3144   (add-hook 'java-mode-hook #'subword-mode))
  3144   (add-hook 'java-mode-hook #'subword-mode))
  3145 
  3145 
  3146 (add-hook 'java-mode-hook #'auto-revert-mode)
  3146 (add-hook 'java-mode-hook #'auto-revert-mode)
  3147 
  3147 
       
  3148 (defun my/company-java-setup ()
       
  3149   (setq-local company-dabbrev-code-other-buffers t)
       
  3150   (setq-local company-backends '((company-semantic company-capf company-dabbrev-code)))
       
  3151   (company-mode 1))
       
  3152 (when (and (featurep 'semantic) (featurep 'company))
       
  3153   (add-hook 'java-mode-hook #'my/company-java-setup))
       
  3154 
  3148 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3155 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3149 (message "Pascal")
  3156 (message "Pascal")
  3150 
  3157 
  3151 (eval-when 'compile (require 'pascal))
  3158 (eval-when 'compile (require 'pascal))
  3152 
  3159