From d573b7413e267aae0c32e083cec45d583ccf0562 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Wed, 13 Jan 2010 06:25:15 +0100 Subject: heavy update of emacs configs --- emacs.d/lisp/delphi-mode-ench.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'emacs.d/lisp/delphi-mode-ench.el') diff --git a/emacs.d/lisp/delphi-mode-ench.el b/emacs.d/lisp/delphi-mode-ench.el index 04e017a..fcbb3ae 100644 --- a/emacs.d/lisp/delphi-mode-ench.el +++ b/emacs.d/lisp/delphi-mode-ench.el @@ -1,4 +1,10 @@ ;;; delphi-mode-ench.el +(require 'compile) +(pushnew '("^\\([-a-zA-Z0-9\\.\\/_~]+\\)(\\([0-9]+\\),\\([0-9]+\\))\s\\([Ff]atal:\\|[Nn]ote:\\|[Ww]arning:\\|[Ee]rror:\\)\s\\(.*$\\)" 1 2 3) + compilation-error-regexp-alist) + +(setq auto-mode-alist (cons '("\\.pas" . delphi-mode) auto-mode-alist)) + (setq delphi-unit-sections '(implementation program library package)) @@ -55,7 +61,7 @@ (if pos (goto-char pos)) (re-search-forward "\\(begin\\|implementation\\)" nil t) (let ((match (match-string-no-properties 1))) - (if (or (equal match "implementation") (equal match "end")) 't 'nil))))) + (if (equal match "implementation") 't 'nil))))) (defun delphi-in-class-definition (&optional pos) (if pos (goto-char pos)) -- cgit v1.2.3