 				  (* shift-width 1)) ;arg
 			       0) shift-width)
 		       shift-width))))
-	    ; failed to find spaces before point
+					; failed to find spaces before point
 	    (beginning-of-line)))))))
-  
+
 (defun shift-right (&optional arg)
   "Shift to the right by shift-width spaces."
   (interactive "p")


(defun join-line (&optional arg)
  (interactive "p")
  (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))
