 
 (defun join-line (&optional arg)
   (interactive "p")
-  (let ((count (max (or arg 1) 1)))   ; Don't allow negative args
+  (let ((count (max (or arg 1) 1)))	  ; Don't allow negative args
     (while (> count 0)
       (end-of-line)
       (delete-char 1)  ; If end of buffer, then will get a signal

 dabbrev-case-replace nil
 dabbrev-abbrev-char-regexp "\\sw\\|\\s_"
 font-lock-maximum-decoration t
)

(eval-after-load
 "compile"
 '(setq compilation-error-regexp-alist
	(append
	 '((".*at \\([^ ]+\\) line \\([0-9]+\\)\\.?\n" 1 2))
	 compilation-error-regexp-alist)))

(add-to-list
 'auto-mode-alist '("\\.\\(bview\\|bconf\\|btest\\|bunit\\|t\\|pl\\|PL\\|pm\\)$"  . cperl-mode))


(if (or (getenv "BIVIO_HTTPD_PORT")
	(file-exists-p "~/bconf")
	(file-exists-p "~/bconf.d"))
    (let
	;; Turn off tracing which may be on when debugging
	((res
