X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6228c05b99ca80eb81689023b133f3dc9e40c604..5a9dffec384949ba250b159ca21b97e65586afdb:/lisp/textmodes/two-column.el diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el index da5fd523bf..2568b53fe3 100644 --- a/lisp/textmodes/two-column.el +++ b/lisp/textmodes/two-column.el @@ -1,6 +1,7 @@ ;;; two-column.el --- minor mode for editing of two-column text -;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 2001, 2002, 2003, 2004, +;; 2005, 2006, 2007 Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer ;; Adapted-By: ESR, Daniel Pfeiffer @@ -17,7 +18,7 @@ ;; ^gin sub la kondi^coj de la GNU under the terms of the GNU General ;; ^Generala Publika Licenco kiel pub- Public License as published by the ;; likigita far la Liberprogramara Fon- Free Software Foundation; either -;; da^jo; a^u eldono 2a, a^u (la^u via version 2, or (at your option) any +;; da^jo; a^u eldono 2a, a^u (la^u via version 3, or (at your option) any ;; elekto) ajna posta eldono. later version. ;; GNU Emacs estas disdonata en la GNU Emacs is distributed in the hope @@ -33,8 +34,8 @@ ;; GNU Emacs; vidu la dosieron COPYING. with GNU Emacs; see the file ;; Alikaze skribu al la COPYING. If not, write to the -;; Free Software Foundation, 59 Temple Place - Suite 330 -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, 51 Franklin Street, Fifth Floor +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -200,7 +201,7 @@ ;;;;; variable declarations ;;;;; (defgroup two-column nil - "Minor mode for editing of two-column text" + "Minor mode for editing of two-column text." :prefix "2C-" :group 'frames) @@ -223,7 +224,7 @@ (defcustom 2C-mode-line-format '("-%*- %15b --" (-3 . "%p") "--%[(" mode-name minor-mode-alist "%n" mode-line-process ")%]%-") - "*Value of mode-line-format for a buffer in two-column minor mode." + "*Value of `mode-line-format' for a buffer in two-column minor mode." :type 'sexp :group 'two-column) @@ -327,7 +328,6 @@ These keybindings can be customized in your ~/.emacs by `2C-mode-map', The appearance of the screen can be customized by the variables `2C-window-width', `2C-beyond-fill-column', `2C-mode-line-format' and `truncate-partial-width-windows'." - (make-local-hook 'post-command-hook) (add-hook 'post-command-hook '2C-autoscroll nil t) (setq fill-column (- 2C-window-width 2C-beyond-fill-column) @@ -340,9 +340,9 @@ The appearance of the screen can be customized by the variables ;;;###autoload (defun 2C-two-columns (&optional buffer) "Split current window vertically for two-column editing. -When called the first time, associates a buffer with the current -buffer in two-column minor mode (see \\[describe-mode] ). -Runs `2C-other-buffer-hook' in the new buffer. +\\When called the first time, associates a buffer with the current +buffer in two-column minor mode (use \\[describe-mode] once in the mode, +for details.). It runs `2C-other-buffer-hook' in the new buffer. When called again, restores the screen layout with the current buffer first and the associated buffer to its right." (interactive "P") @@ -640,4 +640,5 @@ When autoscrolling is turned on, this also realigns the two buffers." (provide 'two-column) +;;; arch-tag: 2021b5ab-d3a4-4a8c-a21c-1936b0f9e6b1 ;;; two-column.el ends here