;;; Time-stamp: <93/02/04 14:12:44 john>

(defun first-line-of-buffer ()
  "Return as a string the first line in the current buffer."
  (save-excursion
    (goto-char (point-min))
    (end-of-line)
    (buffer-substring (point-min) (point))))

(defun count-buffers (&optional display-anyway)
  "Display or return the number of buffers."
  (interactive)
  (let
      (
       (buf-count (length (buffer-list)))
       )
    (if (or (interactive-p) display-anyway)
        (message "%d buffers in this Emacs" buf-count))
    buf-count))

;;; end of buffer-misc.el