Mercurial > emacs

changeset 8190:04aa77218846

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-bgproc-sentinel): Bind case-fold-search for just the necessary parts of the function, not the call to Man-notify-when-ready.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jul 1994 00:25:37 +0000
parents b88934e64021
children 09b630d545fe
files lisp/man.el
diffstat 1 files changed, 21 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Mon Jul 11 00:24:26 1994 +0000
+++ b/lisp/man.el	Mon Jul 11 00:25:37 1994 +0000
@@ -531,37 +531,38 @@
   "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))