From 42f302ab616264348a22107d6fb4d41632ec52a2 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 14 Jan 2015 22:22:36 -0200 Subject: Move sx-question-mode--goto-property-change to sx.el --- sx.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'sx.el') diff --git a/sx.el b/sx.el index 36ecfca..af4ab4d 100644 --- a/sx.el +++ b/sx.el @@ -259,6 +259,21 @@ whenever BODY evaluates to nil." :filter (lambda (&optional _) (when (progn ,@body) ,def))))) +(defun sx--goto-property-change (prop &optional direction) + "Move forward to the next change of text-property PROP. +Return the new value of PROP at point. + +If DIRECTION is negative, move backwards instead." + (let ((func (if (and (numberp direction) + (< direction 0)) + #'previous-single-property-change + #'next-single-property-change)) + (limit (if (and (numberp direction) + (< direction 0)) + (point-min) (point-max)))) + (goto-char (funcall func (point) prop nil limit)) + (get-text-property (point) prop))) + ;;; Printing request data (defvar sx--overlays nil -- cgit v1.2.3