mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(what-cursor-position): Don't cause error when point

Browse source 
is at invalid multibyte sequence.
This commit is contained in:
Kenichi Handa 1999-03-22 04:12:42 +00:00
parent a399edf459
commit 28fd4883f6
1 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/simple.el
View file

@ -524,18 +524,21 @@ addition, the encoding is fully shown."
(if (or (not coding)
(eq (coding-system-type coding) t))
(setq coding default-buffer-file-coding-system))
(setq encoded (and (>= char 128) (encode-coding-char char coding)))
(setq encoding-msg
(if encoded
(format "(0%o, %d, 0x%x, ext %s)"
char char char
(if (and (not detail)
(> (length encoded) 1))
"..."
(concat
(encoded-string-description encoded coding)
(if (cmpcharp char) "..." ""))))
(format "(0%o, %d, 0x%x)" char char char)))
(if (not (char-valid-p char))
(setq encoding-msg
(format "(0%o, %d, 0x%x, invalid)" char char char))
(setq encoded (and (>= char 128) (encode-coding-char char coding)))
(setq encoding-msg
(if encoded
(format "(0%o, %d, 0x%x, ext %s)"
char char char
(if (and (not detail)
(> (length encoded) 1))
"..."
(concat
(encoded-string-description encoded coding)
(if (cmpcharp char) "..." ""))))
(format "(0%o, %d, 0x%x)" char char char))))
(if detail
;; We show the detailed information of CHAR.
(let ((internal
@ -549,18 +552,18 @@ addition, the encoding is fully shown."
(message "Char: %s %s %s"
(if (< char 256)
(single-key-description char)
(char-to-string char))
(buffer-substring (point) (1+ (point))))
encoding-msg internal))
(if (or (/= beg 1) (/= end (1+ total)))
(message "Char: %s %s point=%d of %d(%d%%) <%d - %d> column %d %s"
(if (< char 256)
(single-key-description char)
(char-to-string char))
(buffer-substring (point) (1+ (point))))
encoding-msg pos total percent beg end col hscroll)
(message "Char: %s %s point=%d of %d(%d%%) column %d %s"
(if (< char 256)
(single-key-description char)
(char-to-string char))
(buffer-substring (point) (1+ (point))))
encoding-msg pos total percent col hscroll)))))))
(defun fundamental-mode ()