# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1047218725 0
# Node ID b43d8c1413ded494c2225f6b8dada2ab539e0523
# Parent  16f19efe98b2bd439da6ff2d0a7ac240bffe5363
* man.el (Man-getpage-in-background): Always use `setenv' for
environment variables, instead of modifying process-environment
directly.  The previous version let-bound process-environment --
the let-binding is skipped for GROFF_NO_SGR because there is
already a let-binding in effect in some outer scope.

* emulation/crisp.el (top-level): Interoperate with cua.

diff -r 16f19efe98b2 -r b43d8c1413de lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 08 19:38:02 2003 +0000
+++ b/lisp/ChangeLog	Sun Mar 09 14:05:25 2003 +0000
@@ -1,3 +1,13 @@
+2003-03-09  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* man.el (Man-getpage-in-background): Always use `setenv' for
+	environment variables, instead of modifying process-environment
+	directly.  The previous version let-bound process-environment --
+	the let-binding is skipped for GROFF_NO_SGR because there is
+	already a let-binding in effect in some outer scope.
+
+	* emulation/crisp.el (top-level): Interoperate with cua.
+
 2003-03-08  Kim F. Storm  <storm@cua.dk>
 
 	* emulation/cua-base.el: Provide `cua' feature.
diff -r 16f19efe98b2 -r b43d8c1413de lisp/emulation/crisp.el
--- a/lisp/emulation/crisp.el	Sat Mar 08 19:38:02 2003 +0000
+++ b/lisp/emulation/crisp.el	Sun Mar 09 14:05:25 2003 +0000
@@ -385,6 +385,12 @@
       (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map)
 				       minor-mode-map-alist))))
 
+;; Interaction with other packages.
+(eval-after-load 'cua
+  (progn
+    (add-to-list 'cua--standard-movement-commands 'crisp-home)
+    (add-to-list 'cua--standard-movement-commands 'crisp-end)))
+
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)
 
diff -r 16f19efe98b2 -r b43d8c1413de lisp/man.el
--- a/lisp/man.el	Sat Mar 08 19:38:02 2003 +0000
+++ b/lisp/man.el	Sun Mar 09 14:05:25 2003 +0000
@@ -623,21 +623,19 @@
 	     (start-process manual-program buffer "sh" "-c"
 			    (format (Man-build-man-command) man-args))
 	     'Man-bgproc-sentinel)
-	  (let ((process-environment
-		 (cons "GROFF_NO_SGR=1" process-environment)))
-
-	    (let ((exit-status
-		   (call-process shell-file-name nil (list buffer nil) nil "-c"
-				 (format (Man-build-man-command) man-args)))
-		  (msg ""))
-	      (or (and (numberp exit-status)
-		       (= exit-status 0))
-		  (and (numberp exit-status)
-		       (setq msg
-			     (format "exited abnormally with code %d"
-				     exit-status)))
-		  (setq msg exit-status))
-	      (Man-bgproc-sentinel bufname msg))))))))
+	  (setenv "GROFF_NO_SGR" "1")
+	  (let ((exit-status
+		 (call-process shell-file-name nil (list buffer nil) nil "-c"
+			       (format (Man-build-man-command) man-args)))
+		(msg ""))
+	    (or (and (numberp exit-status)
+		     (= exit-status 0))
+		(and (numberp exit-status)
+		     (setq msg
+			   (format "exited abnormally with code %d"
+				   exit-status)))
+		(setq msg exit-status))
+	    (Man-bgproc-sentinel bufname msg)))))))
 
 (defun Man-notify-when-ready (man-buffer)
   "Notify the user when MAN-BUFFER is ready.