Mercurial > emacs

changeset 658:7cbd4fcd8b0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 21:11:25 +0000
parents fec3f9a1e3e5
children 505130d1ddf8
files lisp/=sun-keys.el lisp/=superyank.el lisp/emacs-lisp/ring.el lisp/env.el lisp/frame.el lisp/international/swedish.el lisp/mail/rfc822.el lisp/mail/rmail.el lisp/mail/rmailedit.el lisp/mail/rmailkwd.el lisp/mail/rmailmsc.el lisp/mail/rmailout.el lisp/mail/rmailsort.el lisp/mail/rmailsum.el lisp/mail/rnews.el lisp/mail/rnewspost.el lisp/mail/sendmail.el lisp/play/spook.el lisp/play/studly.el lisp/progmodes/scheme.el lisp/register.el lisp/replace.el lisp/reposition.el lisp/resume.el lisp/rot13.el lisp/server.el lisp/shell.el lisp/simple.el lisp/sort.el lisp/startup.el lisp/subr.el lisp/sun-curs.el lisp/sun-fns.el lisp/tabify.el lisp/tar-mode.el lisp/telnet.el lisp/term/sun-mouse.el lisp/term/sup-mouse.el lisp/textmodes/scribe.el lisp/textmodes/spell.el
diffstat 40 files changed, 280 insertions(+), 120 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=sun-keys.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/=sun-keys.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;;
+;;; sun-keys.el --- support for Sun function keys
+
 ;;; Support (cleanly) for Sun function keys.  Provides help facilities,
 ;;; better diagnostics, etc.
 ;;;
@@ -69,3 +70,5 @@
 (global-set-key "\e*" 'sun-function-keys-dispatch)
 
 (make-variable-buffer-local 'sun-function-keys-command-list)
+
+;;; sun-keys.el ends here
--- a/lisp/=superyank.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/=superyank.el	Sat May 30 21:11:25 1992 +0000
@@ -1,5 +1,5 @@
-;; superyank.el -- Version 1.1
-;;
+;;; superyank.el --- smart message-yanking code for GNUS (Version 1.1)
+
 ;; Inserts the message being replied to with various user controlled
 ;; citation styles.
 ;;
@@ -1210,3 +1210,4 @@
 
 (provide 'superyank)
 
+;;; superyank.el ends here
--- a/lisp/emacs-lisp/ring.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/emacs-lisp/ring.el	Sat May 30 21:11:25 1992 +0000
@@ -1,5 +1,23 @@
-;;; Ring Code
-;;;============================================================================
+;;; ring.el --- handle rings of marks
+
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 ;;; This code defines a ring data structure. A ring is a 
 ;;;     (hd-index tl-index . vector) 
 ;;; list. You can insert to, remove from, and rotate a ring. When the ring
@@ -99,3 +117,5 @@
 	       (vec-index (comint-mod (+ index hd) 
 				      (length vec))))
 	  (aref vec vec-index)))))
+
+;;; ring.el ends here
--- a/lisp/env.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/env.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;; -*-Emacs-Lisp-*- Functions to manipulate environment variables.
+;;; setenv.el --- functions to manipulate environment variables.
+
 ;;; Copyright Free Software Foundation 1991
 
 ;;; This file is part of GNU Emacs.
@@ -36,3 +37,4 @@
 
 (provide 'setenv)
 
+;;; setenv.el ends here
--- a/lisp/frame.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/frame.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;;; Multi-screen management that is independent of window systems.
+;;; screen.el --- multi-screen management independent of window systems.
+
 ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
 
 ;;; This file is part of GNU Emacs.
@@ -270,3 +271,5 @@
 (define-key ctl-x-3-map "0" 'delete-screen)
 
 (provide 'screen)
+
+;;; screen.el ends here
--- a/lisp/international/swedish.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/international/swedish.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Miscellaneous functions for dealing with Swedish.
+;;; swedish.el --- miscellaneous functions for dealing with Swedish.
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -143,3 +144,5 @@
 ;   (run-hooks 'text-mode-hook))
 
 (provide 'swedish)
+
+;;; swedish.el ends here
--- a/lisp/mail/rfc822.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rfc822.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Hairy rfc822 parser for mail and news and suchlike
+;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike
+
 ;; Copyright (C) 1986-1990 Free Software Foundation, Inc.
 ;; Author Richard Mlynarik.
 
@@ -304,3 +305,4 @@
 
 (provide 'rfc822)
 
+;;; rfc822.el ends here
--- a/lisp/mail/rmail.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmail.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; "RMAIL" mail reader for Emacs.
+;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
+
 ;; Copyright (C) 1985, 1986, 1987, 1988, 1991, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -1611,3 +1612,4 @@
 
 (provide 'rmail)
 
+;;; rmail.el ends here
--- a/lisp/mail/rmailedit.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailedit.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; "RMAIL edit mode"  Edit the current message.
+;;; rmailedit.el --- "RMAIL edit mode"  Edit the current message.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -103,3 +104,4 @@
   (insert rmail-old-text)
   (rmail-cease-edit))
 
+;;; rmailedit.el ends here
--- a/lisp/mail/rmailkwd.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailkwd.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; "RMAIL" mail reader for Emacs.
+;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs.
+
 ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -262,3 +263,5 @@
 	    (narrow-to-region (- (buffer-size) omin)
 			      (- (buffer-size) omax)))))
     keyword))
+
+;;; rmailkwd.el ends here
--- a/lisp/mail/rmailmsc.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailmsc.el	Sat May 30 21:11:25 1992 +0000
@@ -1,3 +1,5 @@
+;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -43,3 +45,5 @@
 		(insert "Mail: " file-name "\n"))))))
   (setq rmail-inbox-list (rmail-parse-file-inboxes))
   (rmail-show-message rmail-current-message))
+
+;;; rmailmsc.el ends here
--- a/lisp/mail/rmailout.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailout.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; "RMAIL" mail reader for Emacs: output message to a file.
+;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
+
 ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -180,3 +181,5 @@
 	(rmail-delete-forward)
       (if (> count 0)
 	  (rmail-next-undeleted-message 1)))))
+
+;;; rmailout.el ends here
--- a/lisp/mail/rmailsort.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailsort.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;; Rmail: sort messages.
+;;; rmailsort.el --- Rmail: sort messages.
+
 ;; Copyright (C) 1990 Masanobu UMEDA
 ;; umerin@tc.Nagasaki.GO.JP?
 
@@ -202,3 +203,5 @@
     year-string))
 
 (provide 'rmailsort)
+
+;;; rmailsort.el ends here
--- a/lisp/mail/rmailsum.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rmailsum.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; "RMAIL" mail reader for Emacs.
+;;; rmailsum.el --- "RMAIL" mail reader for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -472,3 +473,5 @@
 		       (delete-window (selected-window))))
     ;; Switch to the rmail buffer in this window.
     (switch-to-buffer rmail-buffer)))
+
+;;; rmailsum.el ends here
--- a/lisp/mail/rnews.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rnews.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;; USENET news reader for gnu emacs
+;;; rnews.el --- USENET news reader for gnu emacs
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -977,4 +978,6 @@
       (caesar-region rotnum)
       (setq buffer-read-only buffer-status))))
 
-(provide 'rnews)	(provide 'rnews)
+(provide 'rnews)
+
+;;; rnews.el ends here
--- a/lisp/mail/rnewspost.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/rnewspost.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;; USENET news poster/mailer for GNU Emacs
+;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs
+
 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -388,3 +389,5 @@
 original message into it."
   (interactive)
   (mail-other-window nil nil nil nil nil (current-buffer)))
+
+;;; rnewspost.el ends here
--- a/lisp/mail/sendmail.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/mail/sendmail.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Mail sending commands for Emacs.
+;;; sendmail.el --- mail sending commands for Emacs.
+
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -662,3 +663,4 @@
 
 (provide 'sendmail)
 
+;;; sendmail.el ends here
--- a/lisp/play/spook.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/play/spook.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Spook phrase utility
+;;; spook.el --- spook phrase utility for overloading the NSA line eater
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -107,3 +108,5 @@
       (aset vector j temp)
       (setq i (1+ i))))
   vector)
+
+;;; spook.el ends here
--- a/lisp/play/studly.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/play/studly.el	Sat May 30 21:11:25 1992 +0000
@@ -1,5 +1,23 @@
 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx)
 
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 (defun studlify-region (begin end)
   "Studlify-case the region"
   (interactive "*r")
--- a/lisp/progmodes/scheme.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/progmodes/scheme.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Scheme mode, and its idiosyncratic commands.
+;;; scheme.el --- Scheme mode, and its idiosyncratic commands.
+
 ;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc.
 ;; Adapted from Lisp mode by Bill Rozas, jinx@prep.
 
@@ -499,3 +500,5 @@
 		       (indent-to this-indent)))))))))
 
 (provide 'scheme)
+
+;;; scheme.el ends here
--- a/lisp/register.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/register.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Register commands for Emacs.
+;;; register.el --- register commands for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -173,3 +174,5 @@
 		(if delete-flag
 		    (delete-extract-rectangle start end)
 		  (extract-rectangle start end))))
+
+;;; register.el ends here
--- a/lisp/replace.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/replace.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Replace commands for Emacs.
+;;; replace.el --- replace commands for Emacs.
+
 ;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -531,3 +532,4 @@
     (perform-replace regexp replacements t t nil arg))
   (message "Done"))
 
+;;; replace.el ends here
--- a/lisp/reposition.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/reposition.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;;; -*- Mode: Emacs-lisp -*-
+;;; reposition.el --- center a Lisp function or comment on the screen
+
 ;; Copyright (C) 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -187,3 +188,4 @@
 ;       (concat "Case " (, case-no) ": %s %s %s %s %s")
 ;       ht line comment-height defun-height defun-depth)))
 
+;;; reposition.el ends here
--- a/lisp/resume.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/resume.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Process command line arguments from within a suspended Emacs job
+;;; resume.el --- process command line args from within a suspended Emacs job
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is not yet part of GNU Emacs, but soon will be.
@@ -157,3 +158,5 @@
       (widen)
       (write-region (point-min) (point-max) file nil 'quiet))
     (set-buffer-modified-p nil)))
+
+;;; resume.el ends here
--- a/lisp/rot13.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/rot13.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Display a buffer in rot13.
+;;; rot13.el --- display a buffer in rot13.
+
 ;; Copyright (C) 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -39,3 +40,5 @@
     (set-window-display-table w rot13-display-table)))
 
 (provide 'rot13)
+
+;;; rot13.el ends here
--- a/lisp/server.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/server.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Lisp code for GNU Emacs running as server process.
+;;; server.el --- Lisp code for GNU Emacs running as server process.
+
 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
 ;; Author William Sommerfeld, wesommer@athena.mit.edu.
 ;; Changes by peck@sun.com and by rms.
@@ -296,3 +297,5 @@
       (switch-to-buffer (other-buffer)))))
 
 (global-set-key "\C-x#" 'server-edit)
+
+;;; server.el ends here
--- a/lisp/shell.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/shell.el	Sat May 30 21:11:25 1992 +0000
@@ -1,9 +1,22 @@
-;;; -*-Emacs-Lisp-*- General command interpreter in a window stuff
+;;; shell.el --- general command interpreter in a window stuff
+
 ;;; Copyright Olin Shivers (1988).
-;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright
-;;; notice appearing here to the effect that you may use this code any
-;;; way you like, as long as you don't charge money for it, remove this
-;;; notice, or hold me liable for its results.
+
+;;; This file is part of GNU Emacs.
+
+;;; GNU Emacs is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 1, or (at your option)
+;;; any later version.
+
+;;; GNU Emacs is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Emacs; see the file COPYING.  If not, write to
+;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;;; The changelog is at the end of file.
 
@@ -12,9 +25,9 @@
 ;;;     - Olin Shivers (shivers@cs.cmu.edu)
 
 ;;; This file defines a a shell-in-a-buffer package (shell mode) built
-;;; on top of comint mode.  This shell mode is similar to its
-;;; counterpart in the GNU Emacs 18 release, but is more featureful,
-;;; robust, and uniform than that version.
+;;; on top of comint mode.  This is actually cmushell with things
+;;; renamed to replace its counterpart in Emacs 18.  cmushell is more
+;;; featureful, robust, and uniform than the Emacs 18 version.
 
 ;;; Since this mode is built on top of the general command-interpreter-in-
 ;;; a-buffer mode (comint mode), it shares a common base functionality, 
@@ -32,25 +45,23 @@
 ;;; text to the process? Switch selectable?
 
 (require 'comint)
-(provide 'shell)
-
 ;; YOUR .EMACS FILE
 ;;=============================================================================
 ;; Some suggestions for your .emacs file.
 ;;
-;; ; If shell lives in some non-standard directory, you must tell emacs
+;; ; If cmushell lives in some non-standard directory, you must tell emacs
 ;; ; where to get it. This may or may not be necessary.
 ;; (setq load-path (cons (expand-file-name "~jones/lib/emacs") load-path))
 ;;
-;; ; Autoload shell from file shell.el
-;; (autoload 'shell "shell"
+;; ; Autoload cmushell from file cmushell.el
+;; (autoload 'cmushell "cmushell"
 ;;           "Run an inferior shell process."
 ;;           t)
 ;;
-;; ; Define C-c t to run my favorite command in shell mode:
-;; (setq shell-load-hook
+;; ; Define C-c t to run my favorite command in cmushell mode:
+;; (setq cmushell-load-hook
 ;;       '((lambda () 
-;;           (define-key shell-mode-map "\C-ct" 'favorite-cmd))))
+;;           (define-key cmushell-mode-map "\C-ct" 'favorite-cmd))))
 
 
 ;;; Brief Command Documentation:
@@ -89,23 +100,15 @@
 
 ;;; Read the rest of this file for more information.
 
-;;; Emacs 18 SHELL.EL COMPATIBILITY
-;;;
-;;; The below notes were written before this shell package became the
-;;; official shell mode of the standard Emacs distribution, and talk
-;;; about getting this package to work well with the old shell package
-;;; and its users.  This issue isn't quite as relevant now as it was
-;;; then, but the notes below should still be useful for people
-;;; modifying elisp packages that used the old shell mode to use this
-;;; one.  Note that some of the variables referred to have lost their
-;;; `cmu-' prefix.
-;;;
+;;; SHELL.EL COMPATIBILITY
+;;; Notes from when this was called cmushell, and was not the standard emacs
+;;; shell package.
 ;;;============================================================================
 ;;; In brief: this package should have no trouble coexisting with shell.el.
 ;;; 
 ;;; Most customising variables -- e.g., explicit-shell-file-name -- are the
 ;;; same, so the users shouldn't have much trouble. Hooks have different
-;;; names, however, so you can customise shell mode differently from shell
+;;; names, however, so you can customise shell mode differently from cmushell
 ;;; mode. You basically just have to remember to type M-x cmushell instead of
 ;;; M-x shell.
 ;;; 
@@ -133,12 +136,8 @@
 ;;; ===========================================================================
 ;;; 
 
-;In loaddefs.el now.
-;(defconst shell-prompt-pattern
-;  "^[^#$%>]*[#$%>] *"
-;  "*Regexp used by Newline command to match subshell prompts.
-;;; Change the doc string for shell-prompt-pattern:
-(put 'shell-prompt-pattern 'variable-documentation
+;;;###autoload
+(defconst shell-prompt-pattern "^[^#$%>]*[#$%>] *"
   "Regexp to match prompts in the inferior shell.
 Defaults to \"^[^#$%>]*[#$%>] *\", which works pretty well.
 This variable is used to initialise comint-prompt-regexp in the 
@@ -167,11 +166,12 @@
   "*Args passed to inferior shell by M-x shell, if the shell is csh.
 Value is a list of strings, which may be nil.")
 
-;;; All the above vars aren't prefixed "shell-" to make them
+;;; All the above vars aren't prefixed "cmushell-" to make them
 ;;; backwards compatible w/shell.el and old .emacs files.
 
 (defvar shell-dirstack nil
-  "List of directories saved by pushd in this buffer's shell.")
+  "List of directories saved by pushd in this buffer's shell.
+Thus, this does not include the shell's current directory.")
 
 (defvar shell-dirstack-query "dirs"
   "Command used by shell-resync-dirlist to query shell.")
@@ -194,10 +194,10 @@
   "Major mode for interacting with an inferior shell.
 Return after the end of the process' output sends the text from the 
     end of process to the end of the current line.
-Return before end of process output copies rest of line to end (skipping
-    the prompt) and sends it.
+Return before end of process output copies the current line (except
+    for the prompt) to the end of the buffer and sends it.
 M-x send-invisible reads a line of text without echoing it, and sends it to
-    the shell.
+    the shell.  This is useful for entering passwords.
 
 If you accidentally suspend your process, use \\[comint-continue-subjob]
 to continue it.
@@ -228,6 +228,7 @@
   (run-hooks 'shell-mode-hook))
 
 
+;;;###autoload
 (defun shell ()
   "Run an inferior shell, with I/O through buffer *shell*.
 If buffer exists but shell process is not running, make new shell.
@@ -509,6 +510,8 @@
 
 
 ;;; Interfacing to client packages (and converting them)
+;;; Notes from when this was called cmushell, and was not the standard emacs
+;;; shell package.  Many of the conversions discussed here have been done.
 ;;;============================================================================
 ;;; Several gnu packages (tex-mode, background, dbx, gdb, kermit, prolog, 
 ;;; telnet are some) use the shell package as clients. Most of them would
@@ -598,3 +601,11 @@
 ;;;
 ;;; Olin 3/12/91
 ;;; - Moved comint-dynamic-complete (filename completion) from M-tab to tab.
+;;;
+;;; Jim Blandy 10/30/91
+;;; - Removed the "cmu" prefix from names, renamed file to shell.el,
+;;;   to become the standard shell package.
+
+(provide 'shell)
+
+;;; shell.el ends here
--- a/lisp/simple.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/simple.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Basic editing commands for Emacs
+;;; simple.el --- basic editing commands for Emacs
+
 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -704,6 +705,17 @@
 	      (concat string (car kill-ring))
 	      (concat (car kill-ring) string))))
 
+(defvar interprogram-cut-function nil
+  "Function to call to make a killed region available to other programs.
+
+Most window systems provide some sort of facility for cutting and
+pasting text between the windows of different programs.  On startup,
+this variable is set to a function which emacs will call to make the
+most recently killed text available to other programs.
+
+The function takes one argument, TEXT, which is a string containing
+the text which should be made available.")
+
 (defun kill-region (beg end)
   "Kill between point and mark.
 The text is deleted but saved in the kill ring.
@@ -728,6 +740,8 @@
 	;; Take the same string recorded for undo
 	;; and put it in the kill-ring.
 	(setq kill-ring (cons (car (car buffer-undo-list)) kill-ring))
+	(if interprogram-cut-function
+	    (funcall interprogram-cut-function (car kill-ring)))
 	(if (> (length kill-ring) kill-ring-max)
 	    (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
 	(setq this-command 'kill-region)
@@ -735,17 +749,6 @@
     (copy-region-as-kill beg end)
     (or buffer-read-only (delete-region beg end))))
 
-(defvar interprogram-cut-function nil
-  "Function to call to make a killed region available to other programs.
-
-Most window systems provide some sort of facility for cutting and
-pasting text between the windows of different programs.  On startup,
-this variable is set to a function which emacs will call to make the
-most recently killed text available to other programs.
-
-The function takes one argument, TEXT, which is a string containing
-the text which should be made available.")
-
 (defun copy-region-as-kill (beg end)
   "Save the region as if killed, but don't kill it.
 If `interprogram-cut-function' is non-nil, also save the text for a window
@@ -1408,11 +1411,16 @@
 
 (defconst comment-multi-line nil
   "*Non-nil means \\[indent-new-comment-line] should continue same comment
-on new line, with no new terminator or starter.")
+on new line, with no new terminator or starter.
+This is obsolete because you might as well use \\[newline-and-indent].")
 
 (defun indent-new-comment-line ()
   "Break line at point and indent, continuing comment if presently within one.
-The body of the continued comment is indented under the previous comment line."
+The body of the continued comment is indented under the previous comment line.
+
+This command is intended for styles where you write a comment per line,
+starting a new comment (and terminating it if necessary) on each line.
+If you want to continue one comment across several lines, use \\[newline-and-indent]."
   (interactive "*")
   (let (comcol comstart)
     (skip-chars-backward " \t")
@@ -1420,39 +1428,42 @@
 		   (progn (skip-chars-forward " \t")
 			  (point)))
     (insert ?\n)
-    (save-excursion
-      (if (and comment-start-skip
-	       (let ((opoint (point)))
-		 (forward-line -1)
-		 (re-search-forward comment-start-skip opoint t)))
-	  ;; The old line is a comment.
-	  ;; Set WIN to the pos of the comment-start.
-	  ;; But if the comment is empty, look at preceding lines
-	  ;; to find one that has a nonempty comment.
-	  (let ((win (match-beginning 0)))
-	    (while (and (eolp) (not (bobp))
-			(let (opoint)
-			  (beginning-of-line)
-			  (setq opoint (point))
-			  (forward-line -1)
-			  (re-search-forward comment-start-skip opoint t)))
-	      (setq win (match-beginning 0)))
-	    ;; Indent this line like what we found.
-	    (goto-char win)
-	    (setq comcol (current-column))
-	    (setq comstart (buffer-substring (point) (match-end 0))))))
+    (if (not comment-multi-line)
+	(save-excursion
+	  (if (and comment-start-skip
+		   (let ((opoint (point)))
+		     (forward-line -1)
+		     (re-search-forward comment-start-skip opoint t)))
+	      ;; The old line is a comment.
+	      ;; Set WIN to the pos of the comment-start.
+	      ;; But if the comment is empty, look at preceding lines
+	      ;; to find one that has a nonempty comment.
+	      (let ((win (match-beginning 0)))
+		(while (and (eolp) (not (bobp))
+			    (let (opoint)
+			      (beginning-of-line)
+			      (setq opoint (point))
+			      (forward-line -1)
+			      (re-search-forward comment-start-skip opoint t)))
+		  (setq win (match-beginning 0)))
+		;; Indent this line like what we found.
+		(goto-char win)
+		(setq comcol (current-column))
+		(setq comstart (buffer-substring (point) (match-end 0)))))))
     (if comcol
 	(let ((comment-column comcol)
 	      (comment-start comstart)
 	      (comment-end comment-end))
 	  (and comment-end (not (equal comment-end ""))
-	       (if (not comment-multi-line)
+;	       (if (not comment-multi-line)
 		   (progn
 		     (forward-char -1)
 		     (insert comment-end)
 		     (forward-char 1))
-		 (setq comment-column (+ comment-column (length comment-start))
-		       comment-start "")))
+;		 (setq comment-column (+ comment-column (length comment-start))
+;		       comment-start "")
+;		   )
+	       )
 	  (if (not (eolp))
 	      (setq comment-end ""))
 	  (insert ?\n)
@@ -1500,8 +1511,14 @@
   (interactive "P")
   (if (eq selective-display t)
       (error "selective-display already in use for marked lines"))
-  (setq selective-display
-	(and arg (prefix-numeric-value arg)))
+  (let ((current-vpos
+	 (save-restriction
+	   (narrow-to-region (point-min) (point))
+	   (goto-char (window-start))
+	   (vertical-motion (window-height)))))
+    (setq selective-display
+	  (and arg (prefix-numeric-value arg)))
+    (recenter current-vpos))
   (set-window-start (selected-window) (window-start (selected-window)))
   (princ "selective-display set to " t)
   (prin1 selective-display t)
@@ -1694,3 +1711,5 @@
 (defconst mode-specific-map (symbol-function 'mode-specific-command-prefix)
   "Keymap for characters following C-c.")
 (define-key global-map "\C-c" 'mode-specific-command-prefix)
+
+;;; simple.el ends here
--- a/lisp/sort.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/sort.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Commands to sort text in an Emacs buffer.
+;;; sort.el --- commands to sort text in an Emacs buffer.
+
 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -445,3 +446,4 @@
 
 (provide 'sort)
 
+;;; sort.el ends here
--- a/lisp/startup.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/startup.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Process Emacs shell arguments
+;;; startup.el --- process Emacs shell arguments
+
 ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -368,3 +369,5 @@
 	  (or (get-buffer-window first-file-buffer)
 	      (progn (other-window)
 		     (buffer-menu)))))))
+
+;;; startup.el ends here
--- a/lisp/subr.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/subr.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Basic lisp subroutines for Emacs
+;;; subr.el --- basic lisp subroutines for Emacs
+
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -344,3 +345,5 @@
 
 (defmacro lambda (&rest cdr)
   (` (function (lambda (,@ cdr)))))
+
+;;; subr.el ends here
--- a/lisp/sun-curs.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/sun-curs.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Cursor definitions for Sun windows
+;;; sun-cursors.el --- cursor definitions for Sun windows
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -205,3 +206,4 @@
 
 (provide 'sm-cursors)
 
+;;; sun-cursors.el ends here
--- a/lisp/sun-fns.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/sun-fns.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Subroutines of Mouse handling for Sun windows
+;;; sun-fns.el --- subroutines of Mouse handling for Sun windows
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -628,3 +629,5 @@
 (global-set-mouse '(minibuffer double control meta right)  'mouse-help-region)
 
 (provide 'sun-fns)
+
+;;; sun-fns.el ends here
--- a/lisp/tabify.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/tabify.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Tab conversion commands for Emacs
+;;; tabify.el --- tab conversion commands for Emacs
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -51,3 +52,5 @@
 	      (indent-tabs-mode t))
 	  (delete-region (match-beginning 0) (point))
 	  (indent-to column))))))
+
+;;; tabify.el ends here
--- a/lisp/tar-mode.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/tar-mode.el	Sat May 30 21:11:25 1992 +0000
@@ -1,7 +1,5 @@
-;;; -*- Mode: Emacs-Lisp -*-
+;;; tar-mode.el --- simple editing of tar files from GNU emacs
 
-;;; File:		tar-mode.el
-;;; Description:	simple editing of tar files from GNU emacs
 ;;; Author:		Jamie Zawinski <jwz@lucid.com>
 ;;; Created:		4 Apr 1990
 ;;; Version:		1.21, 10 Mar 91
@@ -1108,3 +1106,4 @@
 
 (provide 'tar-mode)
 
+;;; tar-mode.el ends here
--- a/lisp/telnet.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/telnet.el	Sat May 30 21:11:25 1992 +0000
@@ -1,3 +1,5 @@
+;;; telnet.el --- run a telnet session from within an Emacs buffer
+
 ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -180,3 +182,4 @@
 
 (provide 'telnet)
 
+;;; telnet.el ends here
--- a/lisp/term/sun-mouse.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/term/sun-mouse.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Mouse handling for Sun windows
+;;; sun-mouse.el --- mouse handling for Sun windows
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -667,3 +668,4 @@
 
 (provide 'sun-mouse)
 
+;;; sun-mouse.el ends here
--- a/lisp/term/sup-mouse.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/term/sup-mouse.el	Sat May 30 21:11:25 1992 +0000
@@ -1,3 +1,5 @@
+;;; sup-mouse.el --- GNU Emacs code for lambda/supdup mouse
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;									     ;;
 ;;	File:     sup-mouse.el						     ;;
@@ -7,10 +9,8 @@
 ;;									     ;;
 ;;     (from code originally written by John Robinson@bbn for the bitgraph)  ;;
 ;;									     ;;
-;;	$Log$								     ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; GNU Emacs code for lambda/supdup mouse
 ;; Copyright (C) Free Software Foundation 1985, 1986
 
 ;; This file is part of GNU Emacs.
@@ -205,3 +205,5 @@
     (or window (selected-window))
     )
   )
+
+;;; sup-mouse.el ends here
--- a/lisp/textmodes/scribe.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/textmodes/scribe.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; scribe mode, and its ideosyncratic commands.
+;;; scribe.el --- scribe mode, and its idiosyncratic commands.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file might become part of GNU Emacs.
@@ -306,3 +307,5 @@
 				   scribe-open-parentheses)))
 	  (save-excursion
 	    (insert (aref scribe-close-parentheses paren-char)))))))
+
+;;; scribe.el ends here
--- a/lisp/textmodes/spell.el	Sat May 30 20:24:49 1992 +0000
+++ b/lisp/textmodes/spell.el	Sat May 30 21:11:25 1992 +0000
@@ -1,4 +1,5 @@
-;; Spelling correction interface for Emacs.
+;;; spell.el --- spelling correction interface for Emacs.
+
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -134,3 +135,5 @@
        (while (search-forward "\n" nil t)
 	 (replace-match " "))
        (message "%sincorrect" (buffer-substring 1 (point-max)))))))
+
+;;; spell.el ends here