Function: flyspell-properties-at-p

flyspell-properties-at-p is a byte-compiled function defined in flyspell.el.gz.

Signature

(flyspell-properties-at-p POS)

Documentation

Return t if there is a text property at POS, not counting local-map.

If variable flyspell-highlight-properties is set to nil, text with properties are not checked. This function is used to discover if the character at POS has any other property.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/flyspell.el.gz
;;*---------------------------------------------------------------------*/
;;*    flyspell-properties-at-p ...                                     */
;;*    -------------------------------------------------------------    */
;;*    Is there a highlight property at position pos?                   */
;;*---------------------------------------------------------------------*/
(defun flyspell-properties-at-p (pos)
  "Return t if there is a text property at POS, not counting `local-map'.
If variable `flyspell-highlight-properties' is set to nil,
text with properties are not checked.  This function is used to discover
if the character at POS has any other property."
  (let ((prop (text-properties-at pos))
	(keep t))
    (while (and keep (consp prop))
      (if (and (eq (car prop) 'local-map) (consp (cdr prop)))
	  (setq prop (cdr (cdr prop)))
	(setq keep nil)))
    (consp prop)))