Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/kotl/kprop-xe.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
27 27
28 ;;; ************************************************************************ 28 ;;; ************************************************************************
29 ;;; Public functions 29 ;;; Public functions
30 ;;; ************************************************************************ 30 ;;; ************************************************************************
31 31
32 (defun kproperty:get (pos prop &optional object) 32 ;; (get-text-property (pos prop &optional object))
33 "Return the value of position POS's property PROP, in OBJECT. 33 ;; Return the value of position POS's property PROP, in OBJECT.
34 OBJECT is optional and defaults to the current buffer. 34 ;; OBJECT is optional and defaults to the current buffer.
35 If POSITION is at the end of OBJECT, the value is nil." 35 ;; If POSITION is at the end of OBJECT, the value is nil.
36 (extent-property (extent-at pos object) prop)) 36 (fset 'kproperty:get 'get-text-property)
37 37
38 (if (and hyperb:xemacs-p (or (>= emacs-minor-version 12) 38 (if (and hyperb:xemacs-p (or (>= emacs-minor-version 12)
39 (> emacs-major-version 19))) 39 (> emacs-major-version 19)))
40 (defun kproperty:map (function property &optional value) 40 (defun kproperty:map (function property &optional value)
41 "Apply FUNCTION to each PROPERTY `eq' to VALUE in the current buffer. 41 "Apply FUNCTION to each PROPERTY `eq' to VALUE in the current buffer.