Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 294:4b85ae5eabfb r21-0b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b45
author cvs
date Mon, 13 Aug 2007 10:38:01 +0200
parents e11d67e05968
children 8429d81ab209
comparison
equal deleted inserted replaced
293:403535bfea94 294:4b85ae5eabfb
714 (/ (+ (/ total 200) (1- pos)) (max (/ total 100) 1)) 714 (/ (+ (/ total 200) (1- pos)) (max (/ total 100) 1))
715 (/ (+ (/ total 2) (* 100 (1- pos))) (max total 1)))) 715 (/ (+ (/ total 2) (* 100 (1- pos))) (max total 1))))
716 (hscroll (if (= (window-hscroll) 0) 716 (hscroll (if (= (window-hscroll) 0)
717 "" 717 ""
718 (format " Hscroll=%d" (window-hscroll)))) 718 (format " Hscroll=%d" (window-hscroll))))
719 (col (current-column))) 719 (col (+ (current-column) (if column-number-start-at-one 1 0))))
720 (if (= pos end) 720 (if (= pos end)
721 (if (or (/= beg 1) (/= end (1+ total))) 721 (if (or (/= beg 1) (/= end (1+ total)))
722 (message "point=%d of %d(%d%%) <%d - %d> column %d %s" 722 (message "point=%d of %d(%d%%) <%d - %d> column %d %s"
723 pos total percent beg end col hscroll) 723 pos total percent beg end col hscroll)
724 (message "point=%d of %d(%d%%) column %d %s" 724 (message "point=%d of %d(%d%%) column %d %s"