HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(flyspell-post-command-hook): Do nothing unless flyspell-mode is enabled.
[bpt/emacs.git]
/
lisp
/
ruler-mode.el
diff --git
a/lisp/ruler-mode.el
b/lisp/ruler-mode.el
index
56bb308
..
228ce63
100644
(file)
--- a/
lisp/ruler-mode.el
+++ b/
lisp/ruler-mode.el
@@
-1,7
+1,7
@@
;;; ruler-mode.el --- display a ruler in the header line
;;; ruler-mode.el --- display a ruler in the header line
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006,
-;; 200
7
Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006,
2007,
+;; 200
8, 2009
Free Software Foundation, Inc.
;; Author: David Ponce <david@dponce.com>
;; Maintainer: David Ponce <david@dponce.com>
;; Author: David Ponce <david@dponce.com>
;; Maintainer: David Ponce <david@dponce.com>
@@
-11,20
+11,18
@@
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
-;;
This program 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, or (at
-;; your option) any later version.
+;;
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, 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.
+;;
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
+;; G
NU G
eneral Public License for more details.
;; You should have received a copy of the GNU General Public License
;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING. If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Commentary:
@@
-121,7
+119,7
@@
:group 'convenience)
(defcustom ruler-mode-show-tab-stops nil
: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
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
@@
-143,7
+141,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
(defcustom ruler-mode-fill-column-char (if (char-displayable-p ?¶)
?\¶
?\|)
(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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-151,7
+149,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-comment-column-char ?\#
: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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-159,7
+157,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-goal-column-char ?G
: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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-169,7
+167,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
(defcustom ruler-mode-current-column-char (if (char-displayable-p ?¦)
?\¦
?\@)
(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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-177,7
+175,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-tab-stop-char ?\T
: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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-185,7
+183,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-basic-graduation-char ?\.
: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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-193,7
+191,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-inter-graduation-char ?\!
: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")
:group 'ruler-mode
:type '(choice
(character :tag "Character")
@@
-201,7
+199,7
@@
or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or
:validate ruler-mode-character-validate)))
(defcustom ruler-mode-set-goal-column-ding-flag t
: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
:group 'ruler-mode
:type 'boolean)
\f
@@
-666,7
+664,7
@@
Optional argument PROPS specifies other text properties to apply."
;; Create an "clean" ruler.
(ruler
(propertize
;; 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
(make-string w ruler-mode-basic-graduation-char))
'face 'ruler-mode-default
'local-map ruler-mode-map
@@
-763,5
+761,5
@@
Optional argument PROPS specifies other text properties to apply."
;; coding: iso-latin-1
;; End:
;; coding: iso-latin-1
;; End:
-;;
;
arch-tag: b2f24546-5605-44c4-b67b-c9a4eeba3ee8
+;; arch-tag: b2f24546-5605-44c4-b67b-c9a4eeba3ee8
;;; ruler-mode.el ends here
;;; ruler-mode.el ends here