Mercurial > emacs

comparison lisp/ruler-mode.el @ 75229:26181d6e6a87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ruler-mode-ruler): Fix typo in docstring.
author Juanma Barranquero <lekktu@gmail.com>
date Sun, 14 Jan 2007 03:49:17 +0000
parents 461d1ed79b75
children 5872a3a471bd 95d0cdf160ea
comparison
equal deleted inserted replaced
75228:d1295af1285f 75229:26181d6e6a87
1 ;;; ruler-mode.el --- display a ruler in the header line 1 ;;; ruler-mode.el --- display a ruler in the header line
2 2
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006,
4 ;; 2006 Free Software Foundation, Inc. 4 ;; 2007 Free Software Foundation, Inc.
5 5
6 ;; Author: David Ponce <david@dponce.com> 6 ;; Author: David Ponce <david@dponce.com>
7 ;; Maintainer: David Ponce <david@dponce.com> 7 ;; Maintainer: David Ponce <david@dponce.com>
8 ;; Created: 24 Mar 2001 8 ;; Created: 24 Mar 2001
9 ;; Version: 1.6 9 ;; Version: 1.6
629 "Return a single space string of WIDTH times the normal character width. 629 "Return a single space string of WIDTH times the normal character width.
630 Optional argument PROPS specifies other text properties to apply." 630 Optional argument PROPS specifies other text properties to apply."
631 (apply 'propertize " " 'display (list 'space :width width) props)) 631 (apply 'propertize " " 'display (list 'space :width width) props))
632 632
633 (defun ruler-mode-ruler () 633 (defun ruler-mode-ruler ()
634 "Compute and return an header line ruler." 634 "Compute and return a header line ruler."
635 (let* ((w (window-width)) 635 (let* ((w (window-width))
636 (m (window-margins)) 636 (m (window-margins))
637 (f (window-fringes)) 637 (f (window-fringes))
638 (i 0) 638 (i 0)
639 (j (window-hscroll)) 639 (j (window-hscroll))