*** regexp-opt.el.orig	Thu Dec  5 11:17:19 2013
--- regexp-opt.el	Thu Dec  5 11:19:31 2013
*************** CHARS should be a list of characters."
*** 285,291 ****
      ;;
      ;; Make sure a caret is not first and a dash is first or last.
      (if (and (string-equal charset "") (string-equal bracket ""))
! 	(concat "[" dash caret "]")
        (concat "[" bracket charset caret dash "]"))))
  
  (provide 'regexp-opt)
--- 285,293 ----
      ;;
      ;; Make sure a caret is not first and a dash is first or last.
      (if (and (string-equal charset "") (string-equal bracket ""))
! 	(if (string-equal dash "")
!             "\\^"                       ; [^] is not a valid regexp
!           (concat "[" dash caret "]"))
        (concat "[" bracket charset caret dash "]"))))
  
  (provide 'regexp-opt)