;;; ruler-mode.el --- display a ruler in the header line
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;; 2008 Free Software Foundation, Inc.
+;; 2008, 2009 Free Software Foundation, Inc.
;; Author: David Ponce <david@dponce.com>
;; Maintainer: David Ponce <david@dponce.com>
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
-;; This program is distributed in the hope that it will be useful,
+;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
:group 'convenience)
(defcustom ruler-mode-show-tab-stops nil
- "*If non-nil the ruler shows tab stop positions.
+ "If non-nil the ruler shows tab stop positions.
Also allowing to visually change `tab-stop-list' setting using
<C-down-mouse-1> and <C-down-mouse-3> on the ruler to respectively add
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
(defcustom ruler-mode-fill-column-char (if (char-displayable-p ?¶)
?\¶
?\|)
- "*Character used at the `fill-column' location."
+ "Character used at the `fill-column' location."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-comment-column-char ?\#
- "*Character used at the `comment-column' location."
+ "Character used at the `comment-column' location."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-goal-column-char ?G
- "*Character used at the `goal-column' location."
+ "Character used at the `goal-column' location."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
(defcustom ruler-mode-current-column-char (if (char-displayable-p ?¦)
?\¦
?\@)
- "*Character used at the `current-column' location."
+ "Character used at the `current-column' location."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-tab-stop-char ?\T
- "*Character used at `tab-stop-list' locations."
+ "Character used at `tab-stop-list' locations."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-basic-graduation-char ?\.
- "*Character used for basic graduations."
+ "Character used for basic graduations."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-inter-graduation-char ?\!
- "*Character used for intermediate graduations."
+ "Character used for intermediate graduations."
:group 'ruler-mode
:type '(choice
(character :tag "Character")
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-set-goal-column-ding-flag t
- "*Non-nil means do `ding' when `goal-column' is set."
+ "Non-nil means do `ding' when `goal-column' is set."
:group 'ruler-mode
:type 'boolean)
\f
;; Create an "clean" ruler.
(ruler
(propertize
- (string-to-multibyte
+ (string-to-multibyte
(make-string w ruler-mode-basic-graduation-char))
'face 'ruler-mode-default
'local-map ruler-mode-map