From 22a21ecb4214afaa0b88273fe154b956d94ccada Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 25 Mar 1999 00:12:30 +0000 Subject: [PATCH] (charset-after): New function. --- poem.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/poem.el b/poem.el index fabbaae..9653c82 100644 --- a/poem.el +++ b/poem.el @@ -66,6 +66,13 @@ If STRING is multibyte, the result is STRING itself. \[Emacs 20.3 emulating macro]" string) +(defun-maybe charset-after (&optional pos) + "Return charset of a character in current buffer at position POS. +If POS is nil, it defauls to the current point. +If POS is out of range, the value is nil. +\[Emacs 20.3 emulating function]" + (char-charset (char-after pos)) + ) ;;; @ XEmacs-mule emulation ;;; -- 1.7.10.4