diff options
| -rw-r--r-- | lisp/ChangeLog | 18 | ||||
| -rw-r--r-- | lisp/ruler-mode.el | 19 |
2 files changed, 27 insertions, 10 deletions
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 |