diff options
Diffstat (limited to 'emacs.d/lisp/delphi-mode-ench.el')
| -rw-r--r-- | emacs.d/lisp/delphi-mode-ench.el | 8 |
1 files changed, 7 insertions, 1 deletions
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)) |