From xemacs-m  Sat Feb 15 16:41:21 1997
Received: from mailhost.lanl.gov (mailhost.lanl.gov [128.165.3.12])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA08929
	for <xemacs-beta@xemacs.org>; Sat, 15 Feb 1997 16:41:20 -0600 (CST)
Received: from branagh.ta52.lanl.gov (branagh.ta52.lanl.gov [128.165.144.9]) by mailhost.lanl.gov (8.8.5/8.8.3) with SMTP id PAA00771 for <xemacs-beta@xemacs.org>; Sat, 15 Feb 1997 15:41:20 -0700 (MST)
Received: by branagh.ta52.lanl.gov (SMI-8.6/SMI-SVR4)
	id PAA05022; Sat, 15 Feb 1997 15:37:37 -0700
Date: Sat, 15 Feb 1997 15:37:37 -0700
Message-Id: <199702152237.PAA05022@branagh.ta52.lanl.gov>
From: "John A. Turner" <turner@branagh.ta52.lanl.gov>
To: xemacs-beta@xemacs.org
Subject: column.el
Reply-To: turner@lanl.gov

While poking around for packages, noticed I was using my own
column.el.  Turns out it was because the std. one used to number from
0.  That's fixed in recent XEmacsen, but there's still a tiny mistake
in that it initializes to 0/0.

Took the opportunity to change mode-line-format to modeline-format as
well, since the former seems to be obsolete.

-- 
John Turner
http://www.lanl.gov/home/turner


*** column.el.orig	Tue Dec 17 20:53:33 1996
--- column.el	Sat Feb 15 15:34:15 1997
***************
*** 47,54 ****
  ;;; Code:
  
  ;; String containing current column as last evaluated.
! (defvar current-column "0")
! (defvar current-line   "0")
  (make-variable-buffer-local 'current-column)
  (make-variable-buffer-local 'current-line)
  
--- 47,54 ----
  ;;; Code:
  
  ;; String containing current column as last evaluated.
! (defvar current-column "1")
! (defvar current-line   "1")
  (make-variable-buffer-local 'current-column)
  (make-variable-buffer-local 'current-line)
  
***************
*** 87,95 ****
  (defvar display-column-after ")%]----"
    "Display column after this element in the mode line.")
  
! ;; Add display-column-format to mode-line-format after display-column-after.
! (or (member display-column-entry mode-line-format)
!     (let ((entry (member display-column-after mode-line-format)))
        (setcdr entry (cons display-column-entry (cdr entry)))))
  
  (defun remove (it list)
--- 87,95 ----
  (defvar display-column-after ")%]----"
    "Display column after this element in the mode line.")
  
! ;; Add display-column-format to modeline-format after display-column-after.
! (or (member display-column-entry modeline-format)
!     (let ((entry (member display-column-after modeline-format)))
        (setcdr entry (cons display-column-entry (cdr entry)))))
  
  (defun remove (it list)

