(Man-bgproc-sentinel): Bind case-fold-search for just the

necessary parts of the function, not the call to Man-notify-when-ready.

1 files changed, 21 insertions, 20 deletions

diff --git a/lisp/man.el b/lisp/man.el
index b82fd502e2f..a141baf1f11 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -531,37 +531,38 @@ See the variable `Man-notify' for the different notification behaviors."
   "Manpage background process sentinel."
   (let ((Man-buffer (process-buffer process))
 	(delete-buff nil)
-	(err-mess nil)
-	(case-fold-search nil))
+	(err-mess nil))
     (if (null (buffer-name Man-buffer)) ;; deleted buffer
 	(set-process-buffer process nil)
       (save-match-data
 	(save-excursion
 	  (set-buffer Man-buffer)
 	  (goto-char (point-min))
-	  (cond ((or (looking-at "No \\(manual \\)*entry for")
-		     (looking-at "[^\n]*: nothing appropriate$"))
-		 (setq err-mess (buffer-substring (point) (Man-linepos 'eol))
-		       delete-buff t))
-		((not (and (eq (process-status process) 'exit)
-			   (= (process-exit-status process) 0)))
-		 (setq err-mess
-		       (concat (buffer-name Man-buffer)
-			       ": process "
-			       (let ((eos (1- (length msg))))
-				 (if (= (aref msg eos) ?\n)
-				     (substring msg 0 eos) msg))))
-		 (goto-char (point-max))
-		 (insert (format "\nprocess %s" msg))
-		 )))
+	  (let ((case-fold-search nil))
+	    (cond ((or (looking-at "No \\(manual \\)*entry for")
+		       (looking-at "[^\n]*: nothing appropriate$"))
+		   (setq err-mess (buffer-substring (point) (Man-linepos 'eol))
+			 delete-buff t))
+		  ((not (and (eq (process-status process) 'exit)
+			     (= (process-exit-status process) 0)))
+		   (setq err-mess
+			 (concat (buffer-name Man-buffer)
+				 ": process "
+				 (let ((eos (1- (length msg))))
+				   (if (= (aref msg eos) ?\n)
+				       (substring msg 0 eos) msg))))
+		   (goto-char (point-max))
+		   (insert (format "\nprocess %s" msg))
+		   ))))
 	(if delete-buff
 	    (kill-buffer Man-buffer)
 	  (save-window-excursion
 	    (save-excursion
 	      (set-buffer Man-buffer)
-	      (Man-set-fonts)
-	      (run-hooks 'Man-cooked-hook)
-	      (Man-mode)
+	      (let ((case-fold-search nil))
+		(Man-set-fonts)
+		(run-hooks 'Man-cooked-hook)
+		(Man-mode))
 	      (set-buffer-modified-p nil)))
 	  (Man-notify-when-ready Man-buffer))