Mercurial > emacs

changeset 10040:c69ddd9fa3a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-bgproc-sentinel): No need for save-match-data.
author Richard M. Stallman <rms@gnu.org>
date Tue, 22 Nov 1994 04:37:43 +0000
parents 6eb5cd200068
children b1ee0b2d3f53
files lisp/man.el
diffstat 1 files changed, 37 insertions(+), 38 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Tue Nov 22 04:33:40 1994 +0000
+++ b/lisp/man.el	Tue Nov 22 04:37:43 1994 +0000
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author:		Barry A. Warsaw <bwarsaw@cen.com>
-;; Last-Modified:	$Date: 1994/11/08 22:34:06 $
-;; Version:		$Revision: 1.58 $
+;; Last-Modified:	$Date: 1994/11/09 12:38:31 $
+;; Version:		$Revision: 1.59 $
 ;; Keywords:		help
 ;; Adapted-By:		ESR, pot
 
@@ -661,44 +661,43 @@
 
       (save-excursion
 	(set-buffer Man-buffer)
-	(save-match-data
-	  (let ((case-fold-search nil))
-	    (goto-char (point-min))
-	    (cond ((or (looking-at "No \\(manual \\)*entry for")
-		       (looking-at "[^\n]*: nothing appropriate$"))
-		   (setq err-mess (buffer-substring (point)
-						    (progn
-						      (end-of-line) (point)))
-			 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)
-	      (if Man-fontify-manpage-flag
-		  (Man-fontify-manpage)
-		(Man-cleanup-manpage))
-	      (run-hooks 'Man-cooked-hook)
-	      (Man-mode)
-	      (set-buffer-modified-p nil)
-	      ))
-	  ;; Restore case-fold-search before calling
-	  ;; Man-notify-when-ready because it may switch buffers.
+	(let ((case-fold-search nil))
+	  (goto-char (point-min))
+	  (cond ((or (looking-at "No \\(manual \\)*entry for")
+		     (looking-at "[^\n]*: nothing appropriate$"))
+		 (setq err-mess (buffer-substring (point)
+						  (progn
+						    (end-of-line) (point)))
+		       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)
+	    (if Man-fontify-manpage-flag
+		(Man-fontify-manpage)
+	      (Man-cleanup-manpage))
+	    (run-hooks 'Man-cooked-hook)
+	    (Man-mode)
+	    (set-buffer-modified-p nil)
+	    ))
+	;; Restore case-fold-search before calling
+	;; Man-notify-when-ready because it may switch buffers.
 
-	  (if (not delete-buff)
-	      (Man-notify-when-ready Man-buffer))
+	(if (not delete-buff)
+	    (Man-notify-when-ready Man-buffer))
 
-	  (if err-mess
-	      (error err-mess))
-	  )))))
+	(if err-mess
+	    (error err-mess))
+	))))
 
 
 ;; ======================================================================