(insert expected-name))
t)
+ ((looking-at (concat "\"end loop " ada-name-regexp ";\" expected"))
+ (let ((expected-name (match-string 1)))
+ (pop-to-buffer source-buffer)
+ (if (looking-at (concat "end loop " ada-name-regexp ";"))
+ (progn
+ (goto-char (match-end 1)) ; just before ';'
+ (delete-region (match-beginning 1) (match-end 1)))
+ ;; else we have just 'end loop;'
+ (forward-word 2)
+ (insert " "))
+ (insert expected-name))
+ t)
+
((looking-at "expected an access type")
(progn
(set-buffer source-buffer)
((looking-at (concat "warning: variable " ada-gnat-quoted-name-regexp " is assigned but never read"))
(let ((param (match-string 1)))
(pop-to-buffer source-buffer)
- (ada-goto-end)
+ (ada-goto-end) ;; leaves point before semicolon
+ (forward-char 1)
(newline-and-indent)
(insert "pragma Unreferenced (" param ");"))
t)
(defun ada-gnat-compile-select-prj ()
(setq ada-fix-error-hook 'ada-gnat-fix-error-hook)
+ (setq ada-prj-show-path 'gnat-prj-show-path)
(add-to-list 'completion-ignored-extensions ".ali") ;; gnat library files
+ (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize)
+
+ ;; find error locations in .gpr files
+ (setq compilation-search-path (append compilation-search-path (ada-prj-get 'prj_dir)))
(add-hook 'compilation-filter-hook 'ada-gnat-compilation-filter)
(defun ada-gnat-compile-deselect-prj ()
(setq ada-fix-error-hook nil)
(setq completion-ignored-extensions (delete ".ali" completion-ignored-extensions))
+ (setq ada-syntax-propertize-hook (delq 'ada-gnat-syntax-propertize ada-syntax-propertize-hook))
+
+ ;; don't need to delete from compilation-search-path; completely rewritten in ada-select-prj-file
+
(setq compilation-filter-hook (delete 'ada-gnat-compilation-filter compilation-filter-hook))
(setq compilation-error-regexp-alist (delete 'gnat compilation-error-regexp-alist))
)