Mercurial > emacs
comparison lisp/progmodes/compile.el @ 90601:a1a25ac6c88a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 427-436)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 134-136)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-110
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 14 Sep 2006 09:24:00 +0000 |
parents | 84dd84b43e1b 81a55a7dc3c3 |
children | b5c13d1564a9 |
comparison
equal
deleted
inserted
replaced
90600:84dd84b43e1b | 90601:a1a25ac6c88a |
---|---|
623 (or (cdr dir) | 623 (or (cdr dir) |
624 '(nil)) ; nil only isn't a property-change | 624 '(nil)) ; nil only isn't a property-change |
625 (cons (match-string-no-properties idx) dir)) | 625 (cons (match-string-no-properties idx) dir)) |
626 mouse-face highlight | 626 mouse-face highlight |
627 keymap compilation-button-map | 627 keymap compilation-button-map |
628 help-echo "mouse-2: visit current directory"))) | 628 help-echo "mouse-2: visit this directory"))) |
629 | 629 |
630 ;; Data type `reverse-ordered-alist' retriever. This function retrieves the | 630 ;; Data type `reverse-ordered-alist' retriever. This function retrieves the |
631 ;; KEY element from the ALIST, creating it in the right position if not already | 631 ;; KEY element from the ALIST, creating it in the right position if not already |
632 ;; present. ALIST structure is | 632 ;; present. ALIST structure is |
633 ;; '(ANCHOR (KEY1 ...) (KEY2 ...)... (KEYn ALIST ...)) | 633 ;; '(ANCHOR (KEY1 ...) (KEY2 ...)... (KEYn ALIST ...)) |
1066 (list "TERM=emacs" | 1066 (list "TERM=emacs" |
1067 (format "TERMCAP=emacs:co#%d:tc=unknown:" | 1067 (format "TERMCAP=emacs:co#%d:tc=unknown:" |
1068 (window-width)))) | 1068 (window-width)))) |
1069 ;; Set the EMACS variable, but | 1069 ;; Set the EMACS variable, but |
1070 ;; don't override users' setting of $EMACS. | 1070 ;; don't override users' setting of $EMACS. |
1071 (unless (getenv "EMACS") '("EMACS=t")) | 1071 (unless (getenv "EMACS") |
1072 (list (concat "EMACS=" invocation-directory invocation-name))) | |
1072 (copy-sequence process-environment)))) | 1073 (copy-sequence process-environment)))) |
1073 (set (make-local-variable 'compilation-arguments) | 1074 (set (make-local-variable 'compilation-arguments) |
1074 (list command mode name-function highlight-regexp)) | 1075 (list command mode name-function highlight-regexp)) |
1075 (set (make-local-variable 'revert-buffer-function) | 1076 (set (make-local-variable 'revert-buffer-function) |
1076 'compilation-revert-buffer) | 1077 'compilation-revert-buffer) |