mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

*** empty log message ***

master
Pierre Neidhardt 2013-03-08 21:40:06 +01:00
parent 1b603a109a
commit 889e28d077
1 changed files with 11 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
.emacs.d/modes.el
View File

@ -7,62 +7,30 @@
;;==============================================================================
;; rc files support
(setq auto-mode-alist
(append
'(("rc\\'" . sh-mode)
)
auto-mode-alist)
)
(setq auto-mode-alist (append '(("rc\\'" . sh-mode)) auto-mode-alist))
;; Shell support
;; We do not put 'sh' only because it could get messy. Emacs knows it anyway.
(setq auto-mode-alist
(append
'(("\\(bash\\'\\|zsh\\'\\|csh\\'\\|tcsh\\'\\|ksh\\'\\)" . sh-mode)
)
auto-mode-alist)
)
'(("\\(bash\\'\\|zsh\\'\\|csh\\'\\|tcsh\\'\\|ksh\\'\\)" . sh-mode))
auto-mode-alist))
;; Read Matlab files in Octave mode.
(setq auto-mode-alist
(append
'(("\\.m\\'" . octave-mode)
)
auto-mode-alist)
)
(setq auto-mode-alist (append '(("\\.m\\'" . octave-mode)) auto-mode-alist))
;; Read pl files in prolog mode.
;; WARNING: this extension is shared with Perl.
(setq auto-mode-alist
(append
'(("\\.pl\\'" . prolog-mode)
)
auto-mode-alist)
)
;; (setq auto-mode-alist (append '(("\\.pl\\'" . prolog-mode)) auto-mode-alist))
;; Mutt support.
(setq auto-mode-alist
(append
'(("/tmp/mutt.*" . mail-mode)
)
auto-mode-alist)
)
(setq auto-mode-alist (append '(("/tmp/mutt.*" . mail-mode)) auto-mode-alist))
;; Arch Linux PKGBUILD
(setq auto-mode-alist
(append
'(("PKGBUILD" . sh-mode)
)
auto-mode-alist)
)
(setq auto-mode-alist (append '(("PKGBUILD" . sh-mode)) auto-mode-alist))
;; README
(setq auto-mode-alist
(append
'(("README" . text-mode)
)
auto-mode-alist)
)
;; README files.
(setq auto-mode-alist (append '(("README" . text-mode)) auto-mode-alist))
;;==============================================================================
;; Auto-Insert
@ -409,13 +377,10 @@ properly escaped with double-quotes in case it has spaces."
(lambda ()
(local-set-key (kbd "C-c C-c") 'c-compile)
(local-set-key (kbd "M-TAB") 'semantic-complete-analyze-inline)
(local-set-key "." 'semantic-complete-self-insert)
(local-set-key ">" 'semantic-complete-self-insert)
;; (local-set-key "." 'semantic-complete-self-insert) ; This is a bit slow.
;; (local-set-key ">" 'semantic-complete-self-insert)
(local-set-key (kbd "<f12>") 'next-error)))
;; (defun my-c-mode-cedet-hook ()
;; (add-hook 'c-mode-common-hook 'my-c-mode-cedet-hook)
;;==============================================================================
;; Common LISP
;;==============================================================================