Doc fixes.

[gnu-emacs] / lisp / calc / calc-trail.el

diff --git a/lisp/calc/calc-trail.el b/lisp/calc/calc-trail.el
index e208140f99870c69c9a989f34afe19cc04da2d13..018851f76d896aae3717150b7d8d8007374d2d20 100644 (file)
--- a/lisp/calc/calc-trail.el
+++ b/lisp/calc/calc-trail.el
@@ -1,6 +1,9 @@
-;; Calculator for GNU Emacs, part II [calc-trail.el]
-;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
-;; Written by Dave Gillespie, daveg@synaptics.com.
+;;; calc-trail.el --- functions for manipulating the Calc "trail"
+
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
+
+;; Author: David Gillespie <daveg@synaptics.com>
+;; Maintainer: Colin Walters <walters@debian.org>
 
 ;; This file is part of GNU Emacs.
 
@@ -19,7 +22,9 @@
 ;; file named COPYING.  Among other things, the copyright notice
 ;; and this notice must be preserved on all copies.
 
+;;; Commentary:
 
+;;; Code:
 
 ;; This file is autoloaded from calc-ext.el.
 (require 'calc-ext)
@@ -34,8 +39,7 @@
 (defun calc-trail-in ()
   (interactive)
   (let ((win (get-buffer-window (calc-trail-display t))))
-    (and win (select-window win)))
-)
+    (and win (select-window win))))
 
 (defun calc-trail-out ()
   (interactive)
@@ -45,38 +49,33 @@
        (progn
          (select-window win)
          (calc-align-stack-window))
-      (calc)))
-)
+      (calc))))
 
 (defun calc-trail-next (n)
   (interactive "p")
   (calc-with-trail-buffer
    (forward-line n)
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-previous (n)
   (interactive "p")
   (calc-with-trail-buffer
    (forward-line (- n))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-first (n)
   (interactive "p")
   (calc-with-trail-buffer
    (goto-char (point-min))
    (forward-line n)
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-last (n)
   (interactive "p")
   (calc-with-trail-buffer
    (goto-char (point-max))
    (forward-line (- n))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-scroll-left (n)
   (interactive "P")
@@ -86,8 +85,7 @@
         (progn
           (select-window (get-buffer-window (current-buffer)))
           (calc-scroll-left n))
-       (select-window curwin))))
-)
+       (select-window curwin)))))
 
 (defun calc-trail-scroll-right (n)
   (interactive "P")
@@ -97,22 +95,19 @@
         (progn
           (select-window (get-buffer-window (current-buffer)))
           (calc-scroll-right n))
-       (select-window curwin))))
-)
+       (select-window curwin)))))
 
 (defun calc-trail-forward (n)
   (interactive "p")
   (calc-with-trail-buffer
    (forward-line (* n (1- (window-height))))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-backward (n)
   (interactive "p")
   (calc-with-trail-buffer
    (forward-line (- (* n (1- (window-height)))))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-isearch-forward ()
   (interactive)
@@ -121,8 +116,7 @@
      (select-window (get-buffer-window (current-buffer)))
      (let ((search-exit-char ?\r))
        (isearch-forward)))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-isearch-backward ()
   (interactive)
@@ -131,8 +125,7 @@
      (select-window (get-buffer-window (current-buffer)))
      (let ((search-exit-char ?\r))
        (isearch-backward)))
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-yank (arg)
   (interactive "P")
@@ -158,8 +151,7 @@
                                     (math-read-plain-expr str))))
                         (if (eq (car-safe val) 'error)
                             (error "Can't yank that line: %s" (nth 2 val))
-                          val)))))
-)
+                          val))))))
 
 (defun calc-trail-marker (str)
   (interactive "sText to insert in trail: ")
@@ -168,8 +160,7 @@
    (let ((buffer-read-only nil))
      (insert "---- " str "\n"))
    (forward-line -1)
-   (calc-trail-here))
-)
+   (calc-trail-here)))
 
 (defun calc-trail-kill (n)
   (interactive "p")
@@ -183,8 +174,6 @@
          (point))
        (point-max))
        (kill-line n)))
-   (calc-trail-here))
-)
-
-
+   (calc-trail-here)))
 
+;;; calc-trail.el ends here