Mercurial > emacs
comparison lisp/progmodes/ada-xref.el @ 98674:bde81f3667cd
* progmodes/ada-mode.el (ada-get-indent-end, ada-goto-matching-start):
Add support for extended return statement.
* progmodes/ada-xref.el (ada-gnat-parse-gpr): Don't reverse src-dir
and obj-dir; keep user order.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sun, 12 Oct 2008 23:06:29 +0000 |
parents | 59b62ec53121 |
children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
98673:a3c0dcf1e950 | 98674:bde81f3667cd |
---|---|
404 (point) (line-end-position))))) | 404 (point) (line-end-position))))) |
405 (forward-line 1)) | 405 (forward-line 1)) |
406 | 406 |
407 ;; Set properties | 407 ;; Set properties |
408 (setq plist (plist-put plist 'gpr_file gpr-file)) | 408 (setq plist (plist-put plist 'gpr_file gpr-file)) |
409 (setq plist (plist-put plist 'src_dir (reverse src-dir))) | 409 (setq plist (plist-put plist 'src_dir src-dir)) |
410 (plist-put plist 'obj_dir (reverse obj-dir)) | 410 (plist-put plist 'obj_dir obj-dir) |
411 ) | 411 ) |
412 (kill-buffer nil) | 412 (kill-buffer nil) |
413 (message "Parsing %s ... done" gpr-file) | 413 (message "Parsing %s ... done" gpr-file) |
414 ) | 414 ) |
415 )) | 415 )) |