comparison lisp/simple.el @ 23963:c242e2dc93a9

(what-cursor-position): Fix previous change.

23962:5ab992b6ca59

		done)))
	(- (buffer-size) (forward-line (buffer-size)))))))

(defun what-cursor-position (&optional detail)
  "Print info on cursor position (on screen and within buffer).
With prefix argument, print detailed info of a character on cursor position.

For the detailed information, Emacs internal character code, Emacs
internal character components (the character set name and position
code(s)), and the corresponding external character components (the
external character set name and external character code(s)) are shown
in this order.

Each language environment may show different external character components."
  (interactive "P")
  (let* ((char (following-char))
	 (beg (point-min))

			       (not (and (= (length encoding) 1)
					 (= (aref encoding 0) char))))
		  (format "(0%o, %d, 0x%x, ext %s)"
			  char char char
			  encoding-string-hex)
		(format "(%s, %s, %s)"
			encoding-string-oct
			  encoding-string-dec
			  encoding-string-hex))))
	(if detail
	    (let* ((internal (split-char char))
		   (charset (char-charset char))
		   (slot (assq charset charset-origin-alist))
		   external)

23963:c242e2dc93a9

		done)))
	(- (buffer-size) (forward-line (buffer-size)))))))

(defun what-cursor-position (&optional detail)
  "Print info on cursor position (on screen and within buffer).
Also describe the character after point, and give its character code
in octal, decimal and hex.  For a non-ASCII multibyte character,
also give its encoding in the buffer's selected coding system,
if any.

With prefix argument, print additional details about that character,
instead of the cursor position.  This includes the character set name,
the codes that identify the character within that character set,
and the corresponding external character components.

Each language environment may show different external character components."
  (interactive "P")
  (let* ((char (following-char))
	 (beg (point-min))

			       (not (and (= (length encoding) 1)
					 (= (aref encoding 0) char))))
		  (format "(0%o, %d, 0x%x, ext %s)"
			  char char char
			  encoding-string-hex)
		(format "(0%o, %d, 0x%x)"
			char char char))))
	(if detail
	    (let* ((internal (split-char char))
		   (charset (char-charset char))
		   (slot (assq charset charset-origin-alist))
		   external)