Mercurial > emacs
comparison lisp/progmodes/ada-xref.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 19 Sep 2005 10:20:33 +0000 |
| parents | edf295560b5a 6dbba0bd58df |
| children | 4b3d39451150 |
comparison
equal
deleted
inserted
replaced
| 90227:10fe5fadaf89 | 90228:fa0da9b57058 |
|---|---|
| 323 (setq value (ada-xref-get-project-field (intern name)))))) | 323 (setq value (ada-xref-get-project-field (intern name)))))) |
| 324 | 324 |
| 325 ;; Check if there is an environment variable with the same name | 325 ;; Check if there is an environment variable with the same name |
| 326 (if (null value) | 326 (if (null value) |
| 327 (if (not (setq value (getenv name))) | 327 (if (not (setq value (getenv name))) |
| 328 (message (concat "No environment variable " name " found")))) | 328 (message "%s" (concat "No environment variable " name " found")))) |
| 329 | 329 |
| 330 (cond | 330 (cond |
| 331 ((null value) | 331 ((null value) |
| 332 (setq cmd-string (replace-match "" t t cmd-string))) | 332 (setq cmd-string (replace-match "" t t cmd-string))) |
| 333 ((stringp value) | 333 ((stringp value) |