--- a/lisp/oobr/br-c-ft.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/oobr/br-c-ft.el	Mon Aug 13 09:02:59 2007 +0200
@@ -6,12 +6,12 @@
 ;; KEYWORDS:     c, tools
 ;;
 ;; AUTHOR:       Bob Weiner
-;; ORG:          InfoDock Associates
+;; ORG:          Motorola, Inc.
 ;;
 ;; ORIG-DATE:     3-May-95 at 16:47:05
-;; LAST-MOD:     21-Feb-97 at 17:31:44 by Bob Weiner
+;; LAST-MOD:     21-Oct-95 at 04:30:51 by Bob Weiner
 ;;
-;; Copyright (C) 1995, 1996  Free Software Foundation, Inc.
+;; Copyright (C) 1995  Free Software Foundation, Inc.
 ;; See the file BR-COPY for license information.
 ;;
 ;; This file is part of the OO-Browser.
@@ -20,6 +20,10 @@
 ;; DESCRIP-END.
 
 ;;; ************************************************************************
+;;; Other required Elisp libraries
+;;; ************************************************************************
+
+;;; ************************************************************************
 ;;; Public variables
 ;;; ************************************************************************
 
@@ -65,24 +69,14 @@
 ;	     (mapcar 'expand-file-name
 ;		     (delq nil (append br-sys-search-dirs
 ;				       br-lib-search-dirs))))
-    (if hyperb:microcruft-os-p
-	(apply 'call-process "bash"
-	       nil nil nil
-	       (expand-file-name "br-c-tags" br-directory)
-	       ;; If no etags program in exec-directory, use one in user's $PATH.
-	       (let ((etags (expand-file-name "etags" exec-directory)))
-		 (if (file-executable-p etags) etags "etags"))
-	       br-tags-file
-	       (mapcar 'expand-file-name
-		       (delq nil (append br-sys-search-dirs br-lib-search-dirs))))
-      (apply 'call-process (expand-file-name "br-c-tags" br-directory)
-	     nil nil nil
-	     ;; If no etags program in exec-directory, use one in user's $PATH.
-	     (let ((etags (expand-file-name "etags" exec-directory)))
-	       (if (file-executable-p etags) etags "etags"))
-	     br-tags-file
-	     (mapcar 'expand-file-name
-		     (delq nil (append br-sys-search-dirs br-lib-search-dirs)))))
+    (apply 'call-process (expand-file-name "br-c-tags" br-directory)
+	   nil nil nil
+	   ;; If no etags program in exec-directory, use one in user's $PATH.
+	   (let ((etags (expand-file-name "etags" exec-directory)))
+	     (if (file-executable-p etags) etags "etags"))
+	   br-tags-file
+	   (mapcar 'expand-file-name
+		   (delq nil (append br-sys-search-dirs br-lib-search-dirs))))
     (goto-char (point-max))
     (let ((c-tags-start (point)))
       (insert-file-contents br-tags-file)
@@ -106,4 +100,12 @@
     (and (re-search-backward "\\(^\\|[^/]\\)/\\*\\|\\*/" nil t)
 	 (not (looking-at "\\*/")))))
 
+;;; ************************************************************************
+;;; Private functions
+;;; ************************************************************************
+
+;;; ************************************************************************
+;;; Private variables
+;;; ************************************************************************
+
 (provide 'br-c-ft)