From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Nov 2001 00:12:11 +0000 (+0000)
Subject: Add pagination.
X-Git-Tag: ttn-vms-21-2-B4~18218
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfba6c0960588288f33f1506182661af4c3964e0;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 128c512c5a7..ca5e9ce188b 100644
--- 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 a9612cc6a3e..83b9d2e7548 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -98,7 +98,7 @@
 
 ;;; History:
 ;;
-
+
 ;;; 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)))
-
+
 (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)
-
+
 (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)))))))
-
+
 (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))
+
 (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)))
-
+
 ;; 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)))
-
+
 (defun ruler-mode-ruler ()
   "Return a string ruler."
   (if ruler-mode