;;; prolog.el --- major mode for Prolog (and Mercury) -*- lexical-binding:t -*-
-;; Copyright (C) 1986-1987, 1997-1999, 2002-2003, 2011-2014 Free
+;; Copyright (C) 1986-1987, 1997-1999, 2002-2003, 2011-2015 Free
;; Software Foundation, Inc.
;; Authors: Emil Åström <emil_astrom(at)hotmail(dot)com>
(eq (char-before) ?_)
(save-excursion
(skip-chars-backward "[:alpha:]_")
- (looking-at "\\<_[_[:upper:]][[:alnum:]_]*\\_>")))
+ (looking-at "\\_<[_[:upper:]][[:alnum:]_]*\\_>")))
(replace-match "_")
(skip-chars-forward ", \t\n")))))