[Nice-commit] Nice/lib/emacs nice-mode.el,1.32,1.33

[<bo...@us...>]

Update of /cvsroot/nice/Nice/lib/emacs
In directory sc8-pr-cvs1:/tmp/cvs-serv1134/lib/emacs

Modified Files:
	nice-mode.el 
Log Message:
Set the compilation hooks only in our compilation buffer, not globally.
This way, we don't canibalize other modes, and we make sure not to be
overriden either.


Index: nice-mode.el
===================================================================
RCS file: /cvsroot/nice/Nice/lib/emacs/nice-mode.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** nice-mode.el	10 Dec 2003 14:31:19 -0000	1.32
--- nice-mode.el	13 Dec 2003 18:28:41 -0000	1.33
***************
*** 425,432 ****
        (func-decl-cont . c-lineup-java-throws))) t)
  
-   ;(make-local-variable 'compilation-exit-message-function)
-   (setq compilation-exit-message-function 'nice-compilation-exit)
-   (setq compilation-finish-function 'nice-compilation-finish-function)
- 
    (local-set-key "\C-c\C-b" 'nice-compile-buffer)
    (local-set-key "\C-c\C-c" 'nice-comment-region-or-line)
--- 425,428 ----
***************
*** 523,526 ****
--- 519,530 ----
  
      (setq nice-compilation-buffer (compile-internal cmd "No more errors"))
+ 
+     (save-excursion
+       (set-buffer nice-compilation-buffer)
+       (set (make-local-variable 'compilation-finish-function)
+ 	   'nice-compilation-finish-function)
+       (set (make-local-variable 'compilation-exit-message-function)
+ 	   'nice-compilation-exit)
+     )
  
      ;; Start process