Add pagination.

(ruler-mode-toggle-show-tab-stops): No need to test `ruler-mode' variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 128c512c5a7f658fe8c5322035207ae6f5356f05..ca5e9ce188b5d8e579f1083296854491b501b84d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2001-11-24  Richard M. Stallman  <rms@gnu.org>
+
+       * startup.el (command-line-1): Don't do startup screen
+       if a subprocess is running.
+
+       * net/browse-url.el (browse-url-galeon-new-window-is-tab): New var.
+       (browse-url-galeon): Use that variable.
+
+       * mail/supercite.el (sc-toggle-var): Don't use set-variable or
+       eval-expression.  Eval and set the variable simply.
+
+       * files.el (temporary-file-directory): Use defcustom.
+       (small-temporary-file-directory): Likewise.
+       (normal-backup-enable-predicate): Move down in file
+       after definition of temporary-file-directory.
+
+       * bindings.el (last-buffer, unbury-buffer): Doc fixes.
+
 2001-11-24  Colin Walters  <walters@debian.org>
 
        * calc/calc-ext.el (calc-init-extensions): Update the rest of the

diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index a9612cc6a3e09f814605ea076251d4e40b4ff0e7..83b9d2e7548958113fb1770e00d4f1737895dd40 100644 (file)
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -98,7 +98,7 @@
 
 ;;; History:
 ;;
-
+\f
 ;;; Code:
 (eval-when-compile
   (require 'wid-edit))
@@ -180,7 +180,7 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
           (character :tag "Character")
           (integer :tag "Integer char value"
                    :validate ruler-mode-character-validate)))
-
+\f
 (defface ruler-mode-default-face
   '((((type tty))
      (:inherit default
@@ -242,7 +242,7 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                )))
   "Face used to highlight the `current-column' character."
   :group 'ruler-mode)
-
+\f
 (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 @@ START-EVENT is the mouse click event."
                (progn
                  (message "Fill column set to %d (was %d)" fc fill-column)
                  (setq fill-column fc)))))))
-
+\f
 (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 @@ START-EVENT is the mouse click event."
 (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))
+\f
 (defvar ruler-mode-map
   (let ((km (make-sparse-keymap)))
     (define-key km [header-line down-mouse-1]
@@ -410,7 +409,7 @@ START-EVENT is the mouse click event."
         (setq header-line-format ruler-mode-header-line-format-old))
     (remove-hook 'post-command-hook     ; remove local hook
                  #'force-mode-line-update t)))
-
+\f
 ;; 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 @@ been changed the function re-computes the result."
            f (list (cons 'vertical-scroll-bars vsb)
                    (cons 'ruler-mode-left-fringe-cols lfc)))))
     (car lfc)))
-
+\f
 (defun ruler-mode-ruler ()
   "Return a string ruler."
   (if ruler-mode