  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)))
+    "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

				  (* shift-width 1)) ;arg
			       0) shift-width)
		       shift-width))))
					; failed to find spaces before point
	    (beginning-of-line)))))))

(defun shift-right (&optional arg)
  "Shift to the right by shift-width spaces."
  (interactive "p")
