[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ruler-mode.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ruler-mode.el |
Date: |
Sat, 24 Nov 2001 19:10:04 -0500 |
Index: emacs/lisp/ruler-mode.el
diff -u emacs/lisp/ruler-mode.el:1.1 emacs/lisp/ruler-mode.el:1.2
--- emacs/lisp/ruler-mode.el:1.1 Tue Oct 9 08:10:17 2001
+++ emacs/lisp/ruler-mode.el Sat Nov 24 19:10:03 2001
@@ -98,7 +98,7 @@
;;; History:
;;
-
+
;;; Code:
(eval-when-compile
(require 'wid-edit))
@@ -180,7 +180,7 @@
(character :tag "Character")
(integer :tag "Integer char value"
:validate ruler-mode-character-validate)))
-
+
(defface ruler-mode-default-face
'((((type tty))
(:inherit default
@@ -242,7 +242,7 @@
)))
"Face used to highlight the `current-column' character."
:group 'ruler-mode)
-
+
(defun ruler-mode-mouse-set-left-margin (start-event)
"Set left margin to the graduation where the mouse pointer is on.
START-EVENT is the mouse click event."
@@ -302,7 +302,7 @@
(progn
(message "Fill column set to %d (was %d)" fc fill-column)
(setq fill-column fc)))))))
-
+
(defun ruler-mode-mouse-add-tab-stop (start-event)
"Add a tab stop to the graduation where the mouse pointer is on.
START-EVENT is the mouse click event."
@@ -357,10 +357,9 @@
(defun ruler-mode-toggle-show-tab-stops ()
"Toggle showing of tab stops on the ruler."
(interactive)
- (when ruler-mode
- (setq ruler-mode-show-tab-stops (not ruler-mode-show-tab-stops))
- (force-mode-line-update)))
-
+ (setq ruler-mode-show-tab-stops (not ruler-mode-show-tab-stops))
+ (force-mode-line-update))
+
(defvar ruler-mode-map
(let ((km (make-sparse-keymap)))
(define-key km [header-line down-mouse-1]
@@ -410,7 +409,7 @@
(setq header-line-format ruler-mode-header-line-format-old))
(remove-hook 'post-command-hook ; remove local hook
#'force-mode-line-update t)))
-
+
;; Add ruler-mode to the the minor mode menu in the mode line
(define-key mode-line-mode-menu [ruler-mode]
`(menu-item "Ruler" ruler-mode
@@ -490,7 +489,7 @@
f (list (cons 'vertical-scroll-bars vsb)
(cons 'ruler-mode-left-fringe-cols lfc)))))
(car lfc)))
-
+
(defun ruler-mode-ruler ()
"Return a string ruler."
(if ruler-mode
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ruler-mode.el,
Richard M. Stallman <=