summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/=vmsx.el5
-rw-r--r--lisp/emulation/ws-mode.el6
-rw-r--r--lisp/play/yow.el3
-rw-r--r--lisp/vmsproc.el3
-rw-r--r--lisp/vt100-led.el5
-rw-r--r--lisp/window.el5
-rw-r--r--lisp/x-menu.el4
-rw-r--r--lisp/xscheme.el5
8 files changed, 29 insertions, 7 deletions
diff --git a/lisp/=vmsx.el b/lisp/=vmsx.el
index a68c6de3796..2d7fc89af7f 100644
--- a/lisp/=vmsx.el
+++ b/lisp/=vmsx.el
@@ -1,4 +1,5 @@
-;; Run asynchronous VMS subprocesses under Emacs
+;;; vmsx.el --- run asynchronous VMS subprocesses under Emacs
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -135,3 +136,5 @@ line to the last line for resubmission."
(kill-line))
(define-key esc-map "$" 'subprocess-command)
+
+;;; vmsx.el ends here
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 4094d309206..27c6b60ba99 100644
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -1,5 +1,5 @@
-;; File: ws-mode.el
-;; Description: WordStar emulation mode for GNU Emacs
+;;; ws-mode.el --- WordStar emulation mode for GNU Emacs
+
;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de>
;; Created: 13 Feb 1991
;; Version: 0.7
@@ -773,3 +773,5 @@ sWith: " )
(ws-error (cond (ws-block-begin-marker "Block end marker not set")
(ws-block-end-marker "Block begin marker not set")
(t "Block markers not set")))))
+
+;;; ws-mode.el ends here
diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 0f1c51b23fe..4f142d32647 100644
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -1,3 +1,5 @@
+yow.el --- generate random zippyisms
+
;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -86,3 +88,4 @@
(provide 'yow)
+;;; yow.el ends here
diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el
index b4451a40ad0..47c35ee4b14 100644
--- a/lisp/vmsproc.el
+++ b/lisp/vmsproc.el
@@ -1,4 +1,5 @@
-;; Run asynchronous VMS subprocesses under Emacs
+;; vmsx.el --- run asynchronous VMS subprocesses under Emacs
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
diff --git a/lisp/vt100-led.el b/lisp/vt100-led.el
index e8f370835f1..2a096a7311b 100644
--- a/lisp/vt100-led.el
+++ b/lisp/vt100-led.el
@@ -1,4 +1,5 @@
-;; Functions for controlling the LEDs on VT-100 terminals & clones.
+;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones.
+
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -59,3 +60,5 @@ Element 0 is not used.")
(send-string-to-terminal o)))
(provide 'vt100-led)
+
+;;; vt100-led.el ends here
diff --git a/lisp/window.el b/lisp/window.el
index fe36479ed4b..5101fa04eeb 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1,4 +1,5 @@
-;; GNU Emacs window commands aside from those written in C.
+;;; windows.el --- GNU Emacs window commands aside from those written in C.
+
;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -124,3 +125,5 @@ Use with a register previously set with \\[window-config-to-register]."
(define-key ctl-x-map "7" 'register-to-window-config)
(define-key ctl-x-map "}" 'enlarge-window-horizontally)
(define-key ctl-x-map "{" 'shrink-window-horizontally)
+
+;;; windows.el ends here
diff --git a/lisp/x-menu.el b/lisp/x-menu.el
index 878dde0dc5e..bc5c1aeda1d 100644
--- a/lisp/x-menu.el
+++ b/lisp/x-menu.el
@@ -1,3 +1,5 @@
+;;; x-menu.el --- menu support for X
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -143,3 +145,5 @@ This also creates the menu itself."
(litem (cdr (nth item x-menu-items-alist))))
(and litem (funcall litem event)))
(pop-to-buffer x-menu-assoc-buffer))
+
+;;; x-menu.el ends here
diff --git a/lisp/xscheme.el b/lisp/xscheme.el
index 0fb795dea2d..d2a2cceb2ae 100644
--- a/lisp/xscheme.el
+++ b/lisp/xscheme.el
@@ -1,4 +1,5 @@
-;; Run Scheme under Emacs
+;;; xscheme.el --- run Scheme under Emacs
+
;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -869,3 +870,5 @@ the remaining input.")
(let ((state (parse-partial-sexp start (nth 2 state))))
(if (nth 2 state) 'many 'one)))))
(set-syntax-table old-syntax-table)))))
+
+;;; xscheme.el ends here