From 630cc4634d27bf555ccbb2392143255b90ae0445 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Wed, 15 Jul 1992 21:31:44 +0000 Subject: [PATCH 1/1] *** empty log message *** --- lisp/play/spook.el | 6 ++++++ lisp/play/studly.el | 5 +++++ lisp/server.el | 10 ++++++++-- lisp/shell.el | 10 +++++++++- lisp/startup.el | 6 ++++++ lisp/subr.el | 7 +++++++ lisp/superyank.el | 12 +++++++++++- lisp/textmodes/scribe.el | 4 ++++ lisp/textmodes/spell.el | 4 ++++ 9 files changed, 60 insertions(+), 4 deletions(-) diff --git a/lisp/play/spook.el b/lisp/play/spook.el index 890441f4aa..98b22fc208 100644 --- a/lisp/play/spook.el +++ b/lisp/play/spook.el @@ -1,5 +1,8 @@ ;;; spook.el --- spook phrase utility for overloading the NSA line eater +;;; Maintainer: FSF +;;; Last-modified: 05 Dec 1991 + ;; Copyright (C) 1988 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. +;;; Commentary: ; Steve Strassmann (straz@media-lab.media.mit.edu) didn't write ; this, and even if he did, he really didn't mean for you to use it @@ -36,6 +40,8 @@ ; give your message that extra bit of attractiveness for automated ; keyword scanners. +;;; Code: + ; Variables (defvar spook-phrases-file (concat data-directory "spook.lines") "Keep your favorite phrases here.") diff --git a/lisp/play/studly.el b/lisp/play/studly.el index 6d97a31fef..704efe908d 100644 --- a/lisp/play/studly.el +++ b/lisp/play/studly.el @@ -1,7 +1,12 @@ ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) + +;; Maintainer: FSF + ;;; This is in the public domain, since it was distributed ;;; by its author without a copyright notice in 1986. +;;; Code: + (defun studlify-region (begin end) "Studlify-case the region" (interactive "*r") diff --git a/lisp/server.el b/lisp/server.el index 9273064a7c..8aaa836b99 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1,9 +1,12 @@ ;;; 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. +;; Author: William Sommerfeld +;; Last-Modified: 5 Dec 1991 + ;; Changes by peck@sun.com and by rms. +;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. + ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify @@ -20,6 +23,7 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Commentary: ;;; This Lisp code is run in Emacs when it is to operate as ;;; a server for other processes. @@ -66,6 +70,8 @@ ;;; the clients who are waiting for this buffer to be edited. ;;; The global variable "server-clients" lists all the waiting clients, ;;; and which files are yet to be edited for each. + +;;; Code: (defvar server-program "emacsserver" "*The program to use as the edit server") diff --git a/lisp/shell.el b/lisp/shell.el index 0473d364e4..3279c1dfc8 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -1,5 +1,8 @@ ;;; shell.el --- general command interpreter in a window stuff +;; Author: Olin Shivers +;; Last-Modified: 16 Mar 1992 + ;;; Copyright Olin Shivers (1988). ;;; This file is part of GNU Emacs. @@ -18,6 +21,8 @@ ;;; along with GNU Emacs; see the file COPYING. If not, write to ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; Commentary: + ;;; The changelog is at the end of file. ;;; Please send me bug reports, bug fixes, and extensions, so that I can @@ -44,7 +49,6 @@ ;;; Maybe I should ensure the process mark is in the window when I send ;;; text to the process? Switch selectable? -(require 'comint) ;; YOUR .EMACS FILE ;;============================================================================= ;; Some suggestions for your .emacs file. @@ -136,6 +140,10 @@ ;;; =========================================================================== ;;; +;;; Code: + +(require 'comint) + ;;;###autoload (defconst shell-prompt-pattern "^[^#$%>]*[#$%>] *" "Regexp to match prompts in the inferior shell. diff --git a/lisp/startup.el b/lisp/startup.el index 43d3e3c2ee..e8896ea01a 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1,5 +1,8 @@ ;;; startup.el --- process Emacs shell arguments +;; Maintainer: FSF +;; Last-Modified: 9 Jul 1992 + ;; Copyright (C) 1985, 1986, 1992 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. +;;; Commentary: ; These are processed only at the beginning of the argument list. ; -batch execute noninteractively (messages go to stdout, @@ -48,6 +52,8 @@ ; file visit file ; -kill kill (exit) emacs +;;; Code: + (setq top-level '(normal-top-level)) (defvar command-line-processed nil "t once command line has been processed") diff --git a/lisp/subr.el b/lisp/subr.el index ecb119cccf..9941fd7e32 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1,4 +1,8 @@ ;;; subr.el --- basic lisp subroutines for Emacs + +;; Maintainer: FSF +;; Last-Modified: 12 Aug 1991 + ;;; Copyright (C) 1985, 1986, 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 one-window-p (&optional nomini) "Returns non-nil if there is only one window. @@ -351,3 +356,5 @@ and then modifies one entry in it." instead of having to write (function (lambda ...)) or '(lambda ...), the latter of which won't get byte-compiled." (` (function (lambda (,@ cdr))))) + +;;; subr.el ends here diff --git a/lisp/superyank.el b/lisp/superyank.el index 6c4f0a0ee8..9746b22a45 100644 --- a/lisp/superyank.el +++ b/lisp/superyank.el @@ -1,4 +1,11 @@ -;;; superyank.el --- smart message-yanking code for GNUS (Version 1.1) +;;; superyank.el --- smart message-yanking code for GNUS + +;; Author: Barry A. Warsaw +;; Version: 1.1 +;; Last-Modified: 15 Jul 1992 +;; Adapted-By: ESR + +;;; Commentary: ;; Inserts the message being replied to with various user controlled ;; citation styles. @@ -83,6 +90,9 @@ ;; 2) reparse nested citations to try to recast as non-nested citations ;; perhaps by checking the References: line ;; + +;;; Code: + ;; ====================================================================== ;; ;; require and provide features diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el index 7cc1bc2605..d722989ebd 100644 --- a/lisp/textmodes/scribe.el +++ b/lisp/textmodes/scribe.el @@ -1,5 +1,8 @@ ;;; scribe.el --- scribe mode, and its idiosyncratic commands. +;; Maintainer: FSF +;; Last-Modified: 9 May 1991 + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file might become part of GNU Emacs. @@ -18,6 +21,7 @@ ;; It should be in a file named COPYING. Among other things, the ;; copyright notice and this notice must be preserved on all copies. +;;; Code: (defvar scribe-mode-syntax-table nil "Syntax table used while in scribe mode.") diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index 85adb6b415..63ef847b01 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el @@ -1,5 +1,8 @@ ;;; spell.el --- spelling correction interface for Emacs. +;; Maintainer: FSF +;; Last-Modified: 9 May 1991 + ;; Copyright (C) 1985 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: (defvar spell-command "spell" "*Command to run the spell program.") -- 2.20.1