Function: srecode-calculate-context-font-lock

srecode-calculate-context-font-lock is a byte-compiled function defined in ctxt.el.gz.

Signature

(srecode-calculate-context-font-lock)

Documentation

Calculate an srecode context by using font-lock.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/ctxt.el.gz
(defun srecode-calculate-context-font-lock ()
  "Calculate an srecode context by using font-lock."
  (let ((face (get-text-property (point) 'face))
	)
    (cond ((member face '(font-lock-string-face
			  font-lock-doc-face))
	   (list "string"))
	  ((member face '(font-lock-comment-face
			  font-lock-comment-delimiter-face))
	   (list "comment"))
	  )
    ))