mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

Add pagination.

Browse Source 
(ruler-mode-toggle-show-tab-stops): No need to test `ruler-mode' variable.
This commit is contained in:
Richard M. Stallman 2001-11-25 00:12:11 +00:00
parent 1d5d41231f
commit bfba6c0960
2 changed files with 27 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/ChangeLog
View File

@ -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

19
lisp/ruler-mode.el
View File

@ -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