# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1024330509 0
# Node ID 8da973b0df203621c96a0df037343d9fafad8195
# Parent  fb2ae7bd271d90d78a87b611082da998ca9c298e
(what-cursor-position): Use describe-char.

diff -r fb2ae7bd271d -r 8da973b0df20 lisp/simple.el
--- a/lisp/simple.el	Mon Jun 17 16:14:37 2002 +0000
+++ b/lisp/simple.el	Mon Jun 17 16:15:09 2002 +0000
@@ -530,7 +530,7 @@
 byte, just \"...\" is shown.
 
 In addition, with prefix argument, show details about that character
-in *Help* buffer.  See also the command `describe-char-after'."
+in *Help* buffer.  See also the command `describe-char'."
   (interactive "P")
   (let* ((char (following-char))
 	 (beg (point-min))
@@ -570,7 +570,7 @@
 		  (format "(0%o, %d, 0x%x)" char char char))))
 	(if detail
 	    ;; We show the detailed information about CHAR.
-	    (describe-char-after (point)))
+	    (describe-char (point)))
 	(if (or (/= beg 1) (/= end (1+ total)))
 	    (message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s"
 		     (if (< char 256)