On 2001-05-21, Jim Davidson <[EMAIL PROTECTED]> wrote:
> The function hyper-describe-face is not defined in my Emacs (20.7).
This should work for both emacsen (no guarantee that it works in every
version of both, though):
(defun describe-face-at-point ()
(interactive)
(let ((face (get-char-property (point) 'face))
(face-fun (if (featurep 'xemacs)
'hyper-describe-face
'describe-face)))
(if face
(funcall face-fun face))))
Have fun,
--
Andreas Fuchs, <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>, antifuchs
PGP signature
