X-Git-Url: https://git.donarmstrong.com/?p=home-base.git;a=blobdiff_plain;f=.emacs;h=fcf8f011f12efd7c52459de649f273473e4e6aae;hp=e16f95b0573e66472e944f4d87f76b219a54f000;hb=97b9b221987c6afd31c1ae992caa7a5651ffeee8;hpb=cc8cafbe0fb6813bbf296592da0b37f5f0681966 diff --git a/.emacs b/.emacs index e16f95b..fcf8f01 100644 --- a/.emacs +++ b/.emacs @@ -161,6 +161,8 @@ (font-latex-match-reference-make) (add-to-list 'font-latex-match-function-keywords "DLA") (add-to-list 'font-latex-match-function-keywords "RZ") +(add-to-list 'font-latex-match-function-keywords "OM") +(add-to-list 'font-latex-match-function-keywords "DL") (add-to-list 'font-latex-match-function-keywords "fixme") (add-to-list 'font-latex-match-function-keywords "acs") (add-to-list 'font-latex-match-function-keywords "acsp") @@ -282,9 +284,9 @@ ;;; outlining support for ess modes (add-hook 'ess-mode-hook - '(lambda () - (outline-minor-mode) - (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)") - (defun outline-level - (lambda () (interactive) (cond ((looking-at "^##### ") 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3) (t 1000))) + '(lambda () + (outline-minor-mode) + (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)") + (defun outline-level + (lambda () (interactive) (cond ((looking-at "^##### ") 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3) (t 1000))) ))) \ No newline at end of file