Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mprvaxa.UUCP
Path: utzoo!utcsri!ubc-vision!mprvaxa!tbray
From: tbray@mprvaxa.UUCP (Tim Bray)
Newsgroups: net.emacs
Subject: The one vi feature I miss, now for GNUemacs
Message-ID: <695@mprvaxa.UUCP>
Date: Sun, 16-Feb-86 16:34:28 EST
Article-I.D.: mprvaxa.695
Posted: Sun Feb 16 16:34:28 1986
Date-Received: Sun, 16-Feb-86 19:42:43 EST
Organization: Microtel Pacific Research, Burnaby, B.C., Canada
Lines: 13

(defun buffer-stats () 
  "vi-style lines/chars"
  (interactive)
  (let ((chars (buffer-size)))
    (if (= chars 0)
	(message "%s: 0 lines, 0 characters" (buffer-name))
      (message "%s: %d lines, %d characters" 
	       (buffer-name)
	       (count-lines 1 chars) 
	       chars))))
(set 'find-file-hook 'buffer-stats)      ;;;look like vi
(define-key ctl-x-map "l" 'buffer-stats)