Mercurial > emacs
changeset 45870:8da973b0df20
(what-cursor-position): Use describe-char.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 17 Jun 2002 16:15:09 +0000 |
parents | fb2ae7bd271d |
children | 5e25142363ff |
files | lisp/simple.el |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)