Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/kotl/kprop-xe.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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.