X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flisp-mnt.el;h=223f8e0af6dbeac201191b36dbd139261b8b2945;hb=ae80810d4603c6e355958181856f091f6703e9a8;hp=f03f23e94d70f1ee696d859785d191bc62c2c506;hpb=b267e52aa03bee2c488c8a78824d96cf2d9a6ccc;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/lisp-mnt.el b/lisp/lisp-mnt.el
index f03f23e..223f8e0 100644
--- a/lisp/lisp-mnt.el
+++ b/lisp/lisp-mnt.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Created: 14 Jul 1992
 ;; Keywords: docs, maint
-;; X-Modified-by: Bob Weiner <weiner@altrasoft.com>, 4/14/95, to support
+;; X-Modified-by: Bob Weiner <weiner@beopen.com>, 4/14/95, to support
 ;;  InfoDock headers.
 ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
 
@@ -343,7 +343,7 @@ The return value has the form (NAME . ADDRESS)."
 
 (defun lm-version (&optional file)
   "Return the version listed in file FILE, or current buffer if FILE is nil.
-This can befound in an RCS or SCCS header to crack it out of."
+This can be found in an RCS or SCCS header to crack it out of."
   (save-excursion 
     (if file
 	(find-file file))
@@ -449,17 +449,17 @@ a temporary buffer."
 	   (switch-to-buffer (get-buffer-create "*lm-verify*"))
 	   (erase-buffer)
 	   (mapcar
-	    '(lambda (f)
-	       (if (string-match ".*\\.el$" f)
-		   (let ((status (lm-verify f)))
-		     (if status
-			 (progn
-			   (insert f ":")
-			   (lm-insert-at-column lm-comment-column status "\n"))
-		       (and showok
-			    (progn
-			      (insert f ":")
-			      (lm-insert-at-column lm-comment-column "OK\n")))))))
+	    #'(lambda (f)
+		(if (string-match ".*\\.el$" f)
+		    (let ((status (lm-verify f)))
+		      (if status
+			  (progn
+			    (insert f ":")
+			    (lm-insert-at-column lm-comment-column status "\n"))
+			(and showok
+			     (progn
+			       (insert f ":")
+			       (lm-insert-at-column lm-comment-column "OK\n")))))))
 	    (directory-files file))
 	   ))
       (save-excursion
@@ -560,8 +560,8 @@ Prompts for bug subject.  Leaves you in a mail buffer."
     (mail nil
 	  (if addr
 	      (concat (car addr) " <" (cdr addr) ">")
-	    (or (and (boundp 'report-emacs-bug-beta-address)
-		     report-emacs-bug-beta-address)
+	    (or (and (boundp 'report-xemacs-bug-beta-address)
+		     report-xemacs-bug-beta-address)
 		"<xemacs-beta@xemacs.org>"))
 	  topic)
     (goto-char (point-max))