Function: prolog-font-lock-object-matcher

prolog-font-lock-object-matcher is a byte-compiled function defined in prolog.el.gz.

Signature

(prolog-font-lock-object-matcher BOUND)

Documentation

Find SICStus objects method name for font lock.

Argument BOUND is a buffer position limiting searching.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/prolog.el.gz
;;-------------------------------------------------------------------
;; Font-lock stuff
;;-------------------------------------------------------------------

;; Auxiliary functions

(defun prolog-font-lock-object-matcher (bound)
  "Find SICStus objects method name for font lock.
Argument BOUND is a buffer position limiting searching."
  (let (point
        (case-fold-search nil))
    (while (and (not point)
                (re-search-forward "\\(::[ \t\n]*{\\|&\\)[ \t]*"
                                   bound t))
      (while (or (re-search-forward "\\=\n[ \t]*" bound t)
                 (re-search-forward "\\=%.*" bound t)
                 (and (re-search-forward "\\=/\\*" bound t)
                      (re-search-forward "\\*/[ \t]*" bound t))))
      (setq point (re-search-forward
                   (format "\\=\\(%s\\)" prolog-atom-regexp)
                   bound t)))
    point))