Mercurial > emacs

comparison lisp/simple.el @ 27477:8a7e3bcab064

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(what-cursor-position): Change formatting of messages.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 28 Jan 2000 17:27:56 +0000
parents 1cb6c18c3163
children 132294fa754e
comparison
equal deleted inserted replaced
27476:e732cf6d8d12 27477:8a7e3bcab064
489 "" 489 ""
490 (format " Hscroll=%d" (window-hscroll)))) 490 (format " Hscroll=%d" (window-hscroll))))
491 (col (current-column))) 491 (col (current-column)))
492 (if (= pos end) 492 (if (= pos end)
493 (if (or (/= beg 1) (/= end (1+ total))) 493 (if (or (/= beg 1) (/= end (1+ total)))
494 (message "point=%d of %d(%d%%) <%d - %d> column %d %s" 494 (message "point=%d of %d (%d%%) <%d - %d> column %d %s"
495 pos total percent beg end col hscroll) 495 pos total percent beg end col hscroll)
496 (message "point=%d of %d(%d%%) column %d %s" 496 (message "point=%d of %d (%d%%) column %d %s"
497 pos total percent col hscroll)) 497 pos total percent col hscroll))
498 (let ((coding buffer-file-coding-system) 498 (let ((coding buffer-file-coding-system)
499 encoded encoding-msg) 499 encoded encoding-msg)
500 (if (or (not coding) 500 (if (or (not coding)
501 (eq (coding-system-type coding) t)) 501 (eq (coding-system-type coding) t))
522 (if (< char 256) 522 (if (< char 256)
523 (single-key-description char) 523 (single-key-description char)
524 (buffer-substring-no-properties (point) (1+ (point)))) 524 (buffer-substring-no-properties (point) (1+ (point))))
525 encoding-msg (split-char char)) 525 encoding-msg (split-char char))
526 (if (or (/= beg 1) (/= end (1+ total))) 526 (if (or (/= beg 1) (/= end (1+ total)))
527 (message "Char: %s %s point=%d of %d(%d%%) <%d - %d> column %d %s" 527 (message "Char: %s %s point=%d of %d (%d%%) <%d - %d> column %d %s"
528 (if (< char 256) 528 (if (< char 256)
529 (single-key-description char) 529 (single-key-description char)
530 (buffer-substring-no-properties (point) (1+ (point)))) 530 (buffer-substring-no-properties (point) (1+ (point))))
531 encoding-msg pos total percent beg end col hscroll) 531 encoding-msg pos total percent beg end col hscroll)
532 (message "Char: %s %s point=%d of %d(%d%%) column %d %s" 532 (message "Char: %s %s point=%d of %d (%d%%) column %d %s"
533 (if (< char 256) 533 (if (< char 256)
534 (single-key-description char) 534 (single-key-description char)
535 (buffer-substring-no-properties (point) (1+ (point)))) 535 (buffer-substring-no-properties (point) (1+ (point))))
536 encoding-msg pos total percent col hscroll))))))) 536 encoding-msg pos total percent col hscroll)))))))
537 537