*** empty log message ***

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 3d111ba..8b03a68 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -1,7 +1,9 @@
 ;;; upd-copyr.el --- update the copyright notice in a GNU Emacs elisp file
 
+;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
+;; Last-Modified: 03 Jun 1991
+
 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
-;;; Written by Roland McGrath.
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -18,6 +20,8 @@
 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
 ;;; 02139, USA.
 
+;;; Code:
+
 (defconst current-year (substring (current-time-string) -4)
   "String representing the current year.")
 

diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 37293e9..2901275 100644 (file)
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -1,5 +1,11 @@
 ;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
 
+;; Author: Neal Ziring <nz@rsch.wisc.edu>
+;;     Felix S. T. Wu <wu@crys.wisc.edu>
+;; Last-Modified: 7 Jan 1987
+
+;;; Commentary: 
+
 ; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
 ; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
 ; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)
@@ -26,6 +32,7 @@
 ; 2). In operator handling, should allow other point moving Emacs commands
 ;     (such as ESC <, ESC >) to be used as arguments.
 ;
+;;; Code:
 
 (defun vi-switch-mode (arg mode-char)
   "Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}"

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 0e3d700..4109314 100644 (file)
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -1,13 +1,21 @@
-;; VIP: A VI Package for GNU Emacs (version 3.5 of September 15, 1987)
+;;; vip.el --- a VI Package for GNU Emacs
 
-;; Author: Masahiko Sato (ms@sail.stanford.edu).  In Japan, the author's
-;; address is: masahiko@sato.riec.tohoku.junet
+;; Author: Masahiko Sato <ms@sail.stanford.edu>
+;; Version: 3.5
+;; Last-Modified: 15 Sep 1987
+
+;;; Commentary:
+
+;; In Japan, the author's address is: masahiko@sato.riec.tohoku.junet
+;;
 ;; Send suggestions and bug reports to one of the above addresses.
 ;; When you report a bug, be sure to include the version number of VIP and
 ;; Emacs you are using.
 
 ;; Execute info command by typing "M-x info" to get information on VIP.
 
+;;; Code:
+
 ;; external variables
 
 (defvar vip-emacs-local-map nil
@@ -1653,9 +1661,9 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   (let ((val (vip-p-val arg))
        (text (if vip-use-register
                  (if (and (<= ?1 vip-use-register) (<= vip-use-register ?9))
-                     (nth (- vip-use-register 49) kill-ring-yank-pointer)
+                     (current-kill (- vip-use-register ?1) 'do-not-rotate)
                    (get-register vip-use-register))
-               (car kill-ring-yank-pointer))))
+               (current-kill 0))))
     (if (null text)
        (if vip-use-register
            (let ((reg vip-use-register))
@@ -1677,9 +1685,9 @@ STRING.  Search will be forward if FORWARD, otherwise backward."
   (let ((val (vip-p-val arg))
        (text (if vip-use-register
                  (if (and (<= ?1 vip-use-register) (<= vip-use-register ?9))
-                     (nth (- vip-use-register 49) kill-ring-yank-pointer)
+                     (current-kill (- vip-use-register ?1) 'do-not-rotate)
                    (get-register vip-use-register))
-               (car kill-ring-yank-pointer))))
+               (current-kill 0))))
     (if (null text)
        (if vip-use-register
            (let ((reg vip-use-register))
@@ -2603,7 +2611,7 @@ a token has type \(command, address, end-mark\) and value."
 (defun ex-goto ()
   "ex goto command"
   (if (null ex-addresses)
-      (setq ex-addresses (cons (dot) nil)))
+      (setq ex-addresses (cons (point) nil)))
   (push-mark (point))
   (goto-char (car ex-addresses))
   (beginning-of-line))
@@ -2624,7 +2632,7 @@ a token has type \(command, address, end-mark\) and value."
            (with-output-to-temp-buffer "*copy text*"
              (princ
               (if (or del-flag ex-g-flag ex-g-variant)
-                  (car kill-ring-yank-pointer)
+                  (current-kill 0)
                 (buffer-substring (point) (mark)))))
            (condition-case nil
                (progn
@@ -2637,7 +2645,7 @@ a token has type \(command, address, end-mark\) and value."
          (goto-char (point-min))
        (goto-char address)
        (forward-line 1))
-      (insert (car kill-ring-yank-pointer))))
+      (insert (current-kill 0))))
 
 (defun ex-delete ()
   "ex delete"
@@ -2956,7 +2964,7 @@ vip-s-string"
          (goto-char (min (point) (mark)))
          (while (< (point) limit)
            (end-of-line)
-           (setq eol-mark (dot-marker))
+           (setq eol-mark (point-marker))
            (beginning-of-line)
            (if opt-g
                (progn
@@ -3072,4 +3080,4 @@ vip-s-string"
 
 (if (file-exists-p "~/.vip") (load "~/.vip"))
 
-;; End of VIP
+;;; vip.el ends here

diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 2dd39df..a37d5b7 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -1,7 +1,7 @@
 ;;; ws-mode.el --- WordStar emulation mode for GNU Emacs
 
 ;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de>
-;; Created: 13 Feb 1991
+;; Last-Modified: 13 Feb 1991
 ;; Version: 0.7
 
 ;; Copyright (C) 1991 Free Software Foundation, Inc.

diff --git a/lisp/unused.el b/lisp/unused.el
index 9b7eea4..88b7acf 100644 (file)
--- a/lisp/unused.el
+++ b/lisp/unused.el
@@ -1,8 +1,15 @@
 ;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
 
+;; Maintainer: FSF
+;; Last-Modified: 14 Dec 1985
+
+;;; Commentary:
+
 ;; These were added with an eye to making possible a more CCA-compatible
 ;; command set; but that turned out not to be interesting.
 
+;;; Code:
+
 (defun mark-beginning-of-buffer ()
   "Set mark at the beginning of the buffer."
   (interactive)

diff --git a/lisp/window.el b/lisp/window.el
index 25d90e7..8369789 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1,4 +1,8 @@
 ;;; windows.el --- GNU Emacs window commands aside from those written in C.
+
+;; Maintainer: FSF
+;; Last-Modified: 21 Dec 1987
+
 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -17,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defun count-windows (&optional minibuf)
    "Returns the number of visible windows.

diff --git a/lisp/x-menu.el b/lisp/x-menu.el
index bc5c1ae..a1d3fa7 100644 (file)
--- a/lisp/x-menu.el
+++ b/lisp/x-menu.el
@@ -1,5 +1,8 @@
 ;;; x-menu.el --- menu support for X 
 
+;; Maintainer: FSF
+;; Last-Modified: 15 Sep 1987
+
 ;; Copyright (C) 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -18,6 +21,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 (defmacro caar (conscell)
   (list 'car (list 'car conscell)))

diff --git a/lisp/xscheme.el b/lisp/xscheme.el
index dea0a6b..87ef6d6 100644 (file)
--- a/lisp/xscheme.el
+++ b/lisp/xscheme.el
@@ -1,7 +1,7 @@
 ;;; xscheme.el --- run Scheme under Emacs
 
-;;; Maintainer: FSF
-;;; Last-Modified: 21 Jan 1987
+;; Maintainer: FSF
+;; Last-Modified: 21 Jan 1987
 
 ;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc.