diff options
Diffstat (limited to 'lisp/progmodes/prolog.el')
| -rw-r--r-- | lisp/progmodes/prolog.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 0bc365fcf0f..296a7ac3c95 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -2826,7 +2826,7 @@ STRING should be given if the last search was by `string-match' on STRING." (progn (if (and (eq prolog-system 'mercury) (looking-at - (format ":-[ \t]*\\(pred\\|mode\\)[ \t]+\\(%s+\\)" + (format ":-[ \t]*\\(pred\\|mode\\)[ \t]+\\(\\(?:%s\\)+\\)" prolog-atom-regexp))) ;; Skip predicate declarations (progn @@ -2950,7 +2950,7 @@ objects (relevant only if `prolog-system' is set to `sicstus')." (predname (if (looking-at prolog-atom-char-regexp) (progn - (skip-chars-forward "^ (\\.") + (skip-chars-forward "^ (.") (buffer-substring op (point))) "")) (arity 0)) |