.emacs-my
changeset 501 01ea09b00f76
parent 498 3f8ba1f0e12a
parent 500 1f8c3b0b0ca3
child 502 64a475fa36e2
child 506 6662cd4e7a05
equal deleted inserted replaced
498:3f8ba1f0e12a 501:01ea09b00f76
   975 ;;; devel, prog, programming.
   975 ;;; devel, prog, programming.
   976 
   976 
   977 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
   977 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
   978 
   978 
   979 (add-to-list 'auto-mode-alist '("\\.js$" . js-mode))
   979 (add-to-list 'auto-mode-alist '("\\.js$" . js-mode))
       
   980 
       
   981 (defun my-c++-header-file-p ()
       
   982   "Return non-nil, if in a C++ header."
       
   983   (and (string-match "\\.h$"
       
   984                      (or (buffer-file-name)
       
   985                          (buffer-name)))
       
   986        (save-excursion
       
   987          (re-search-forward "\\_<class\\_>" nil t))))
       
   988 
       
   989 (add-to-list 'magic-mode-alist
       
   990              '(my-c++-header-file-p . c++-mode))
       
   991 
   980 
   992 
   981 (setq-default comment-style (quote indent))
   993 (setq-default comment-style (quote indent))
   982 (setq-default comment-column 44)
   994 (setq-default comment-column 44)
   983 (setq-default comment-fill-column my-fill-column)
   995 (setq-default comment-fill-column my-fill-column)
   984 
   996 
  1233 (add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
  1245 (add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
  1234 
  1246 
  1235 ;;; ----------------------------------------------------------------
  1247 ;;; ----------------------------------------------------------------
  1236 ;;; java.
  1248 ;;; java.
  1237 
  1249 
  1238 ;; If you want Emacs to defer loading the JDE until you open a Java file, edit
       
  1239 ;; the following line:
       
  1240 
       
  1241 ;; (setq defer-loading-jde t)
       
  1242 ;; (if defer-loading-jde
       
  1243 ;;     (progn
       
  1244 ;;       (autoload 'jde-mode "jde" "JDE mode." t)
       
  1245 ;;       (add-to-list 'auto-mode-alist '("\\.java\\'" . jde-mode))
       
  1246 ;;       (require 'jde)))
       
  1247 
       
  1248 ;;; ----------------------------------------------------------------
  1250 ;;; ----------------------------------------------------------------
  1249 ;;; ECB.
  1251 ;;; ECB.
  1250 
  1252 
  1251 (setq ecb-tip-of-the-day nil)
  1253 (setq ecb-tip-of-the-day nil)
  1252 
  1254