Mercurial > emacs
changeset 38412:253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/ChangeLog Sun Jul 15 16:15:35 2001 +0000 @@ -1,3 +1,42 @@ +2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz> + + * abbrevlist.el, array.el, buff-menu.el, calendar/appt.el, + case-table.el, cdl.el, cmuscheme.el, compare-w.el, completion.el, + custom.el, derived.el, dired-aux.el, disp-table.el, dos-vars.el, + echistory.el, electric.el, emacs-lisp/authors.el, + emacs-lisp/backquote.el, emacs-lisp/byte-opt.el, + emacs-lisp/bytecomp.el, emacs-lisp/float.el, emacs-lisp/gulp.el, + emacs-lisp/helper.el, emacs-lisp/lisp-mode.el, + emacs-lisp/regexp-opt.el, emulation/mlconvert.el, + emulation/mlsupport.el, env.el, fast-lock.el, find-dired.el, + float-sup.el, frame.el, gnus/gnus-mule.el, gnus/pop3.el, gs.el, + gud.el, help-macro.el, hexl.el, imenu.el, info.el, informat.el, + international/codepage.el, international/iso-ascii.el, + international/iso-insert.el, international/iso-transl.el, + international/swedish.el, isearch.el, jka-compr.el, kermit.el, + lazy-lock.el, ledit.el, loadup.el, lpr.el, ls-lisp.el, macros.el, + mail/blessmail.el, mail/emacsbug.el, mail/mail-extr.el, + mail/mailabbrev.el, mail/mailpost.el, mail/rmail.el, + mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmsc.el, + mail/rmailout.el, mail/rmailsort.el, mail/rmailsum.el, + mail/vms-pmail.el, man.el, map-ynp.el, menu-bar.el, misc.el, + msb.el, net/ange-ftp.el, net/goto-addr.el, novice.el, + obsolete/auto-show.el, obsolete/hilit19.el, obsolete/ooutline.el, + obsolete/rnews.el, obsolete/rnewspost.el, options.el, paren.el, + paths.el, play/dissociate.el, play/doctor.el, play/hanoi.el, + play/meese.el, progmodes/compile.el, progmodes/ebrowse.el, + progmodes/hideif.el, progmodes/modula2.el, register.el, rot13.el, + saveplace.el, scroll-bar.el, server.el, sort.el, soundex.el, + term/bg-mouse.el, term/pc-win.el, term/sup-mouse.el, + term/tty-colors.el, terminal.el, textmodes/bib-mode.el, + textmodes/makeinfo.el, textmodes/page.el, textmodes/paragraphs.el, + textmodes/picture.el, textmodes/scribe.el, textmodes/spell.el, + textmodes/tex-mode.el, textmodes/text-mode.el, + textmodes/underline.el, thingatpt.el, time.el, timer.el, + unused.el, vcursor.el, version.el, vms-patch.el, vmsproc.el, + vt100-led.el, window.el: Some fixes to follow coding conventions in + files maintained by FSF. + 2001-07-13 Pavel Jan,Bm(Bk <Pavel@Janik.cz> * arc-mode.el: A fix to follow coding conventions.
--- a/lisp/abbrevlist.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/abbrevlist.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; abbrevlist.el --- list one abbrev table alphabetically ordered. +;;; abbrevlist.el --- list one abbrev table alphabetically ordered ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. ;; Suggested by a previous version by Gildea. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defun list-one-abbrev-table (abbrev-table output-buffer)
--- a/lisp/array.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/array.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; array.el --- array editing commands for Gnu Emacs +;;; array.el --- array editing commands for GNU Emacs ;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
--- a/lisp/buff-menu.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/buff-menu.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; buff-menu.el --- buffer menu main function and support functions. +;;; buff-menu.el --- buffer menu main function and support functions ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 2000 Free Software Foundation, Inc.
--- a/lisp/calendar/appt.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/calendar/appt.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; appt.el --- appointment notification functions. +;;; appt.el --- appointment notification functions ;; Copyright (C) 1989, 1990, 1994, 1998 Free Software Foundation, Inc.
--- a/lisp/case-table.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/case-table.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; case-table.el --- code to extend the character set and support case tables. +;;; case-table.el --- code to extend the character set and support case tables ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
--- a/lisp/cdl.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/cdl.el Sun Jul 15 16:15:35 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defun cdl-get-file (filename)
--- a/lisp/cmuscheme.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/cmuscheme.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el. +;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el ;; Copyright (C) 1988, 1994, 1997 Free Software Foundation, Inc.
--- a/lisp/compare-w.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/compare-w.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; compare-w.el --- compare text between windows for Emacs. +;;; compare-w.el --- compare text between windows for Emacs ;; Copyright (C) 1986, 1989, 1993, 1997 Free Software Foundation, Inc.
--- a/lisp/completion.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/completion.el Sun Jul 15 16:15:35 2001 +0000 @@ -1204,7 +1204,7 @@ (defun locate-completion-db-error () ;; recursive error: really scrod - (error "Completion database corrupted. Try M-x clear-all-completions. Send bug report.")) + (error "Completion database corrupted. Try M-x clear-all-completions. Send bug report")) ;; WRITES (defun add-completion-to-tail-if-new (string)
--- a/lisp/custom.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/custom.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; custom.el -- Tools for declaring and initializing options. +;;; custom.el --- tools for declaring and initializing options ;; ;; Copyright (C) 1996, 1997, 1999, 2001 Free Software Foundation, Inc. ;;
--- a/lisp/derived.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/derived.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; derived.el --- allow inheritance of major modes. +;;; derived.el --- allow inheritance of major modes ;;; (formerly mode-clone.el) ;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
--- a/lisp/dired-aux.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/dired-aux.el Sun Jul 15 16:15:35 2001 +0000 @@ -123,7 +123,7 @@ "Change the group of the marked (or next ARG) files." (interactive "P") (if (memq system-type '(ms-dos windows-nt)) - (error "chgrp not supported on this system.")) + (error "chgrp not supported on this system")) (dired-do-chxxx "Group" "chgrp" 'chgrp arg)) ;;;###autoload @@ -131,7 +131,7 @@ "Change the owner of the marked (or next ARG) files." (interactive "P") (if (memq system-type '(ms-dos windows-nt)) - (error "chown not supported on this system.")) + (error "chown not supported on this system")) (dired-do-chxxx "Owner" dired-chown-program 'chown arg)) ;; Process all the files in FILES in batches of a convenient size, @@ -452,7 +452,7 @@ (while (/= 0 arg) (setq file (dired-get-filename nil t)) (if (not file) - (error "Can only kill file lines.") + (error "Can only kill file lines") (save-excursion (and file (dired-goto-subdir file) (dired-kill-subdir))) @@ -1902,7 +1902,7 @@ dir (file-name-directory (directory-file-name dir)))) ;;(setq dir (expand-file-name dir)) (or (dired-goto-subdir dir) - (error "Cannot go up to %s - not in this tree." dir)))) + (error "Cannot go up to %s - not in this tree" dir)))) ;;;###autoload (defun dired-tree-down ()
--- a/lisp/disp-table.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/disp-table.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; disp-table.el --- functions for dealing with char tables. +;;; disp-table.el --- functions for dealing with char tables ;; Copyright (C) 1987, 1994, 1995, 1999 Free Software Foundation, Inc. @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (put 'display-table 'char-table-extra-slots 6)
--- a/lisp/dos-vars.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/dos-vars.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; dos-vars.el --- MS-Dos specific user options. +;;; dos-vars.el --- MS-Dos specific user options ;; Copyright (C) 1998 Free Software Foundation, Inc. @@ -22,6 +22,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (defgroup dos-fns nil "MS-DOS specific functions." :group 'environment)
--- a/lisp/echistory.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/echistory.el Sun Jul 15 16:15:35 2001 +0000 @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'electric) ; command loop
--- a/lisp/electric.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/electric.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; electric.el --- window maker and Command loop for `electric' modes. +;;; electric.el --- window maker and Command loop for `electric' modes ;; Copyright (C) 1985, 1986, 1995 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/authors.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/authors.el Sun Jul 15 16:15:35 2001 +0000 @@ -468,4 +468,4 @@ (authors root) (write-file file))) -;; authors.el ends here +;;; authors.el ends here
--- a/lisp/emacs-lisp/backquote.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/backquote.el Sun Jul 15 16:15:35 2001 +0000 @@ -210,4 +210,4 @@ tail)) (t (cons 'list heads))))) -;; backquote.el ends here +;;; backquote.el ends here
--- a/lisp/emacs-lisp/byte-opt.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler. +;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler ;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc. @@ -188,7 +188,7 @@ (defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) - (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) + (error "The old version of the disassembler is loaded. Reload new-bytecomp as well")) (byte-compile-log-1 (apply 'format format (let (c a)
--- a/lisp/emacs-lisp/bytecomp.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; bytecomp.el --- compilation of Lisp code into byte code. +;;; bytecomp.el --- compilation of Lisp code into byte code ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000 ;; Free Software Foundation, Inc. @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.82 $") +(defconst byte-compile-version "$Revision: 2.83 $") ;; This file is part of GNU Emacs.
--- a/lisp/emacs-lisp/float.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/float.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; float.el --- obsolete floating point arithmetic package. +;;; float.el --- obsolete floating point arithmetic package ;; Copyright (C) 1986 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/gulp.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/gulp.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; gulp.el --- Ask for updates for Lisp packages +;;; gulp.el --- ask for updates for Lisp packages ;; Copyright (C) 1996 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/helper.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/helper.el Sun Jul 15 16:15:35 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; hey, here's a helping hand.
--- a/lisp/emacs-lisp/lisp-mode.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands. +;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands ;; Copyright (C) 1985, 1986, 1999, 2000, 2001 Free Software Foundation, Inc.
--- a/lisp/emacs-lisp/regexp-opt.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emacs-lisp/regexp-opt.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; regexp-opt.el --- generate efficient regexps to match strings. +;;; regexp-opt.el --- generate efficient regexps to match strings ;; Copyright (C) 1994,95,96,97,98,99,2000 Free Software Foundation, Inc.
--- a/lisp/emulation/mlconvert.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emulation/mlconvert.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp. +;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/emulation/mlsupport.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/emulation/mlsupport.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; mlsupport.el --- run-time support for mocklisp code. +;;; mlsupport.el --- run-time support for mocklisp code ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/env.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/env.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; env.el --- functions to manipulate environment variables. +;;; env.el --- functions to manipulate environment variables ;; Copyright (C) 1991, 1994 Free Software Foundation, Inc.
--- a/lisp/fast-lock.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/fast-lock.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; fast-lock.el --- Automagic text properties caching for fast Font Lock mode. +;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. @@ -7,7 +7,7 @@ ;; Keywords: faces files ;; Version: 3.14 -;;; This file is part of GNU Emacs. +;; 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
--- a/lisp/find-dired.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/find-dired.el Sun Jul 15 16:15:35 2001 +0000 @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'dired)
--- a/lisp/float-sup.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/float-sup.el Sun Jul 15 16:15:35 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Provide a meaningful error message if we are running on
--- a/lisp/frame.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/frame.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; frame.el --- multi-frame management independent of window systems. +;;; frame.el --- multi-frame management independent of window systems ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001 ;; Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar frame-creation-function nil
--- a/lisp/gnus/gnus-mule.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/gnus/gnus-mule.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; gnus-mule.el --- Provide backward compatibility function to GNUS +;;; gnus-mule.el --- provide backward compatibility function to GNUS ;; Copyright (C) 1995,1997 Free Software Foundation, Inc. ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. @@ -28,6 +28,8 @@ ;; This file provides the function `gnus-mule-add-group' for backward ;; compatibility with old version of Gnus included in Emacs 20. +;;; Code: + (require 'gnus-sum) ;;;###autoload @@ -69,4 +71,4 @@ (provide 'gnus-mule) -;; gnus-mule.el ends here +;;; gnus-mule.el ends here
--- a/lisp/gnus/pop3.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/gnus/pop3.el Sun Jul 15 16:15:35 2001 +0000 @@ -123,7 +123,7 @@ ((equal 'pass pop3-authentication-scheme) (pop3-user process pop3-maildrop) (pop3-pass process)) - (t (error "Invalid POP3 authentication scheme."))) + (t (error "Invalid POP3 authentication scheme"))) (setq message-count (car (pop3-stat process))) (pop3-quit process) message-count)) @@ -293,7 +293,7 @@ (pop3-send-command process (format "USER %s" user)) (let ((response (pop3-read-response process t))) (if (not (and response (string-match "+OK" response))) - (error (format "USER %s not valid." user))))) + (error (format "USER %s not valid" user))))) (defun pop3-pass (process) "Send authentication information to the server."
--- a/lisp/gs.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/gs.el Sun Jul 15 16:15:35 2001 +0000 @@ -173,4 +173,4 @@ (provide 'gs) -;; gs.el ends here. +;;; gs.el ends here
--- a/lisp/gud.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/gud.el Sun Jul 15 16:15:35 2001 +0000 @@ -289,13 +289,13 @@ 'speedbar-highlight-face (cond ((eq ff 'gud-gdb-find-file) 'gud-gdb-goto-stackframe) - (t (error "Should never be here."))) + (t (error "Should never be here"))) (car frames) t)) (setq frames (cdr frames))) ; (let ((selected-frame ; (cond ((eq ff 'gud-gdb-find-file) ; (gud-gdb-selected-frame-info buffer)) -; (t (error "Should never be here.")))))) +; (t (error "Should never be here")))))) ) (setq gud-last-speedbar-stackframe gud-last-last-frame))) @@ -464,7 +464,7 @@ (and gud-gdb-complete-list (string-match "^Undefined command: \"complete\"" (car gud-gdb-complete-list)) - (error "This version of GDB doesn't support the `complete' command.")) + (error "This version of GDB doesn't support the `complete' command")) ;; Sort the list like readline. (setq gud-gdb-complete-list (sort gud-gdb-complete-list (function string-lessp))) @@ -692,7 +692,7 @@ (not (and (boundp 'tags-file-name) (stringp tags-file-name) (file-exists-p tags-file-name)))) - (error "The sdb support requires a valid tags table to work.")) + (error "The sdb support requires a valid tags table to work")) (gud-common-init command-line 'gud-sdb-massage-args 'gud-sdb-marker-filter 'gud-sdb-find-file) @@ -1197,14 +1197,14 @@ ;; -e goes with the next arg, so shift one extra. (or (funcall shift) ;; -e as the last arg is an error in Perl. - (error "No code specified for -e.")) + (error "No code specified for -e")) (setq seen-e t)) (funcall shift)) (unless seen-e (if (or (not args) (string-match "^-" (car args))) - (error "Can't use stdin as the script to debug.")) + (error "Can't use stdin as the script to debug")) ;; This is the program name. (funcall shift))
--- a/lisp/help-macro.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/help-macro.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,10 +1,10 @@ -;;; help-macro.el --- Makes command line help such as help-for-help +;;; help-macro.el --- makes command line help such as help-for-help ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Lynn Slater <lrs@indetech.com> ;; Maintainer: FSF -;; Created: : Mon Oct 1 11:42:39 1990 +;; Created: Mon Oct 1 11:42:39 1990 ;; Adapted-By: ESR ;; This file is part of GNU Emacs. @@ -29,7 +29,7 @@ ;; This file supplies the macro make-help-screen which constructs ;; single character dispatching with browsable help such as that provided ;; by help-for-help. This can be used to make many modes easier to use; for -;; example, the Gnu Emacs Empire Tool uses this for every "nested" mode map +;; example, the GNU Emacs Empire Tool uses this for every "nested" mode map ;; called from the main mode map. ;; The name of this package was changed from help-screen.el to
--- a/lisp/hexl.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/hexl.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; hexl.el --- edit a file in a hex dump format using the hexl filter. +;;; hexl.el --- edit a file in a hex dump format using the hexl filter ;; Copyright (C) 1989, 1994, 1998, 2001 Free Software Foundation, Inc.
--- a/lisp/imenu.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/imenu.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; imenu.el --- Framework for mode-specific buffer indexes. +;;; imenu.el --- framework for mode-specific buffer indexes ;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. @@ -59,7 +59,7 @@ ;; [christian] - Christian Egli Christian.Egli@hcsd.hac.com ;; [karl] - Karl Fogel kfogel@floss.life.uiuc.edu -;;; Code +;;; Code: (eval-when-compile (require 'cl))
--- a/lisp/info.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/info.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; info.el --- info package for Emacs. +;;; info.el --- info package for Emacs ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/informat.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/informat.el Sun Jul 15 16:15:35 2001 +0000 @@ -439,7 +439,7 @@ Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\"" (if (not noninteractive) - (error "batch-info-validate may only be used -batch.")) + (error "batch-info-validate may only be used -batch")) (let ((version-control t) (auto-save-default nil) (find-file-run-dired nil)
--- a/lisp/international/codepage.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/international/codepage.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; codepage.el --- MS-DOS/MS-Windows specific coding systems. +;;; codepage.el --- MS-DOS/MS-Windows specific coding systems ;; Copyright (C) 1998 Free Software Foundation, Inc. @@ -665,4 +665,4 @@ (provide 'codepage) -;; codepage.el ends here +;;; codepage.el ends here
--- a/lisp/international/iso-ascii.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/international/iso-ascii.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals. +;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals ;; Copyright (C) 1987, 1995 Free Software Foundation, Inc.
--- a/lisp/international/iso-insert.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/international/iso-insert.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; iso-insert.el --- insert functions for ISO 8859/1. +;;; iso-insert.el --- insert functions for ISO 8859/1 ;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.
--- a/lisp/international/iso-transl.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/international/iso-transl.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; iso-transl.el --- keyboard input definitions for ISO 8859/1. +;;; iso-transl.el --- keyboard input definitions for ISO 8859/1 ;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
--- a/lisp/international/swedish.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/international/swedish.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; swedish.el --- miscellaneous functions for dealing with Swedish. +;;; swedish.el --- miscellaneous functions for dealing with Swedish ;; Copyright (C) 1988 Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Written by Howard Gayle. See case-table.el for details.
--- a/lisp/isearch.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/isearch.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; isearch.el --- incremental search minor mode. +;;; isearch.el --- incremental search minor mode ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1999, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/jka-compr.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/jka-compr.el Sun Jul 15 16:15:35 2001 +0000 @@ -23,7 +23,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Commentary: +;;; Commentary: ;; This package implements low-level support for reading, writing, ;; and loading compressed files. It hooks into the low-level file @@ -917,4 +917,4 @@ (provide 'jka-compr) -;; jka-compr.el ends here. +;;; jka-compr.el ends here
--- a/lisp/kermit.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/kermit.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; kermit.el --- additions to shell mode for use with kermit, etc. +;;; kermit.el --- additions to shell mode for use with kermit ;; Copyright (C) 1988 Free Software Foundation, Inc.
--- a/lisp/lazy-lock.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/lazy-lock.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; lazy-lock.el --- Lazy demand-driven fontification for fast Font Lock mode. +;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001 ;; Free Software Foundation, Inc. @@ -8,7 +8,7 @@ ;; Keywords: faces files ;; Version: 2.11 -;;; This file is part of GNU Emacs. +;; 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
--- a/lisp/ledit.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/ledit.el Sun Jul 15 16:15:35 2001 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; Maintainer: FSF -;; Keyword: languages +;; Keywords: languages ;; This file is part of GNU Emacs.
--- a/lisp/loadup.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/loadup.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; loadup.el --- load up standardly loaded Lisp files for Emacs. +;;; loadup.el --- load up standardly loaded Lisp files for Emacs ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
--- a/lisp/lpr.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/lpr.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,9 +1,9 @@ -;;; lpr.el --- print Emacs buffer on line printer. +;;; lpr.el --- print Emacs buffer on line printer ;; Copyright (C) 1985, 1988, 1992, 1994, 2001 Free Software Foundation, Inc. -;; Maintainer: FSF -;; Keywords: unix +;; Maintainer: FSF +;; Keywords: unix ;; This file is part of GNU Emacs.
--- a/lisp/ls-lisp.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/ls-lisp.el Sun Jul 15 16:15:35 2001 +0000 @@ -2,10 +2,10 @@ ;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc. -;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> -;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk> -;; Maintainer: FSF -;; Keywords: unix, dired +;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> +;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk> +;; Maintainer: FSF +;; Keywords: unix, dired ;; This file is part of GNU Emacs.
--- a/lisp/macros.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/macros.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; macros.el --- non-primitive commands for keyboard macros. +;;; macros.el --- non-primitive commands for keyboard macros ;; Copyright (C) 1985, 86, 87, 92, 94, 95 Free Software Foundation, Inc. @@ -43,7 +43,7 @@ (and (fboundp symbol) (not (stringp (symbol-function symbol))) (not (vectorp (symbol-function symbol))) - (error "Function %s is already defined and not a keyboard macro." + (error "Function %s is already defined and not a keyboard macro" symbol)) (if (string-equal symbol "") (error "No command name given")) @@ -281,7 +281,7 @@ (or macro (progn (if (null last-kbd-macro) - (error "No keyboard macro has been defined.")) + (error "No keyboard macro has been defined")) (setq macro last-kbd-macro))) (save-excursion (let ((end-marker (progn
--- a/lisp/mail/blessmail.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/blessmail.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; blessmail.el --- Decide whether movemail needs special privileges. +;;; blessmail.el --- decide whether movemail needs special privileges ;; Copyright (C) 1994 Free Software Foundation, Inc.
--- a/lisp/mail/emacsbug.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/emacsbug.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list. +;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list ;; Copyright (C) 1985, 1994, 1997, 1998 Free Software Foundation, Inc.
--- a/lisp/mail/mail-extr.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/mail-extr.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; mail-extr.el --- extract full name and address from RFC 822 mail header. +;;; mail-extr.el --- extract full name and address from RFC 822 mail header ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/mail/mailabbrev.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/mailabbrev.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; mailabbrev.el --- abbrev-expansion of mail aliases. +;;; mailabbrev.el --- abbrev-expansion of mail aliases ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000 ;; Free Software Foundation, Inc. @@ -638,4 +638,4 @@ (if mail-abbrevs-mode (mail-abbrevs-enable)) -;;; mailabbrev.el ends here. +;;; mailabbrev.el ends here
--- a/lisp/mail/mailpost.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/mailpost.el Sun Jul 15 16:15:35 2001 +0000 @@ -3,6 +3,8 @@ ;; This is in the public domain ;; since Delp distributed it without a copyright notice in 1986. +;; This file is part of GNU Emacs. + ;; Author: Gary Delp <delp@huey.Udel.Edu> ;; Maintainer: FSF ;; Created: 13 Jan 1986
--- a/lisp/mail/rmail.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmail.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rmail.el --- main code of "RMAIL" mail reader for Emacs. +;;; rmail.el --- main code of "RMAIL" mail reader for Emacs ;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001 ;; Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Souped up by shane@mit-ajax based on ideas of rlk@athena.mit.edu @@ -1875,7 +1877,7 @@ (goto-char beg) (forward-line 1) (if (/= (following-char) ?0) - (error "Bad format in RMAIL file.")) + (error "Bad format in RMAIL file")) (let ((inhibit-read-only t) (delta (- (buffer-size) end))) (delete-char 1)
--- a/lisp/mail/rmailedit.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailedit.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rmailedit.el --- "RMAIL edit mode" Edit the current message. +;;; rmailedit.el --- "RMAIL edit mode" Edit the current message ;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'rmail)
--- a/lisp/mail/rmailkwd.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailkwd.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs. +;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs ;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Global to all RMAIL buffers. It exists primarily for the sake of
--- a/lisp/mail/rmailmsc.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailmsc.el Sun Jul 15 16:15:35 2001 +0000 @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload
--- a/lisp/mail/rmailout.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailout.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rmailout.el --- "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, 1993, 1994, 2001 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'rmail)
--- a/lisp/mail/rmailsort.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailsort.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rmailsort.el --- Rmail: sort messages. +;;; rmailsort.el --- Rmail: sort messages ;; Copyright (C) 1990, 1993, 1994, 2001 Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'sort)
--- a/lisp/mail/rmailsum.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/rmailsum.el Sun Jul 15 16:15:35 2001 +0000 @@ -105,7 +105,7 @@ (interactive "sRegexp to summarize by: ") (if (string= regexp "") (setq regexp (or rmail-last-regexp - (error "No regexp specified.")))) + (error "No regexp specified")))) (setq rmail-last-regexp regexp) (rmail-new-summary (concat "regexp " regexp) (list 'rmail-summary-by-regexp regexp)
--- a/lisp/mail/vms-pmail.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/mail/vms-pmail.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; vms-pmail.el --- use Emacs as the editor within VMS mail. +;;; vms-pmail.el --- use Emacs as the editor within VMS mail ;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;
--- a/lisp/man.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/man.el Sun Jul 15 16:15:35 2001 +0000 @@ -2,10 +2,10 @@ ;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc. -;; Author: Barry A. Warsaw <bwarsaw@cen.com> +;; Author: Barry A. Warsaw <bwarsaw@cen.com> ;; Maintainer: FSF -;; Keywords: help -;; Adapted-By: ESR, pot +;; Keywords: help +;; Adapted-By: ESR, pot ;; This file is part of GNU Emacs.
--- a/lisp/map-ynp.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/map-ynp.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; map-ynp.el --- General-purpose boolean question-asker. +;;; map-ynp.el --- general-purpose boolean question-asker ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
--- a/lisp/menu-bar.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/menu-bar.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; menu-bar.el --- define a default menu bar. +;;; menu-bar.el --- define a default menu bar ;; Copyright (C) 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc. @@ -25,6 +25,8 @@ ;; Avishai Yacobi suggested some menu rearrangements. +;;; Commentary: + ;;; Code: ;;; User options:
--- a/lisp/misc.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/misc.el Sun Jul 15 16:15:35 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defun copy-from-above-command (&optional arg)
--- a/lisp/msb.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/msb.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; msb.el --- Customizable buffer-selection with multiple menus. +;;; msb.el --- customizable buffer-selection with multiple menus ;; Copyright (C) 1993, 94, 95, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/net/ange-ftp.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/net/ange-ftp.el Sun Jul 15 16:15:35 2001 +0000 @@ -4834,9 +4834,9 @@ ;; think so, because expand-filename should have already short-circuited ;; them. (cond ((string-equal dir-name "/") - (error "Cannot get listing for fictitious \"/\" directory.")) + (error "Cannot get listing for fictitious \"/\" directory")) ((string-match "^/[-A-Z0-9_$]+:/$" dir-name) - (error "Cannot get listing for device.")) + (error "Cannot get listing for device")) ((ange-ftp-fix-name-for-vms dir-name)))) (or (assq 'vms ange-ftp-fix-dir-name-func-alist) @@ -5353,7 +5353,7 @@ ;; Remember that there are no directories in MTS. (defun ange-ftp-fix-dir-name-for-mts (dir-name) (if (string-equal dir-name "/") - (error "Cannot get listing for fictitious \"/\" directory.") + (error "Cannot get listing for fictitious \"/\" directory") (let ((dir-name (ange-ftp-fix-name-for-mts dir-name))) (cond ((string-equal dir-name "") @@ -5542,7 +5542,7 @@ (defun ange-ftp-fix-dir-name-for-cms (dir-name) (cond ((string-equal "/" dir-name) - (error "Cannot get listing for fictitious \"/\" directory.")) + (error "Cannot get listing for fictitious \"/\" directory")) ((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name) (let* ((minidisk (substring dir-name (match-beginning 1) (match-end 1))) ;; host and user are bound in the call to ange-ftp-send-cmd
--- a/lisp/net/goto-addr.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/net/goto-addr.el Sun Jul 15 16:15:35 2001 +0000 @@ -239,4 +239,4 @@ (provide 'goto-addr) -;;; goto-addr.el ends here. +;;; goto-addr.el ends here
--- a/lisp/novice.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/novice.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; novice.el --- handling of disabled commands ("novice mode") for Emacs. +;;; novice.el --- handling of disabled commands ("novice mode") for Emacs ;; Copyright (C) 1985, 1986, 1987, 1994 Free Software Foundation, Inc.
--- a/lisp/obsolete/auto-show.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/obsolete/auto-show.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,9 +1,11 @@ ;;; auto-show.el --- perform automatic horizontal scrolling as point moves ;;; This file is in the public domain. -;;; Keywords: scroll display convenience -;;; Author: Pete Ware <ware@cis.ohio-state.edu> -;;; Maintainer: FSF +;; This file is part of GNU Emacs. + +;; Keywords: scroll display convenience +;; Author: Pete Ware <ware@cis.ohio-state.edu> +;; Maintainer: FSF ;;; Commentary: @@ -46,5 +48,4 @@ (provide 'auto-show) -;; auto-show.el ends here - +;;; auto-show.el ends here
--- a/lisp/obsolete/hilit19.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/obsolete/hilit19.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; hilit19.el --- customizable highlighting for Emacs19 +;;; hilit19.el --- customizable highlighting for Emacs 19 ;; Copyright (c) 1993, 1994 Free Software Foundation, Inc. @@ -26,7 +26,7 @@ ;;; Commentary: -;; Hilit19.el is a customizable highlighting package for Emacs19. It supports +;; Hilit19.el is a customizable highlighting package for Emacs 19. It supports ;; not only source code highlighting, but also Info, RMAIL, VM, gnus... ;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in ;; about 25 different modes. @@ -1512,4 +1512,4 @@ (provide 'hilit19) -;;; hilit19 ends here. +;;; hilit19.el ends here
--- a/lisp/obsolete/ooutline.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/obsolete/ooutline.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; outline.el --- outline mode commands for Emacs +;;; ooutline.el --- outline mode commands for Emacs ;; Copyright (C) 1986, 1993, 1994, 1997 Free Software Foundation, Inc. @@ -582,4 +582,4 @@ (provide 'outline) -;;; outline.el ends here +;;; ooutline.el ends here
--- a/lisp/obsolete/rnews.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/obsolete/rnews.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; rnews.el --- USENET news reader for gnu emacs +;;; rnews.el --- USENET news reader for GNU Emacs ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. @@ -51,6 +51,8 @@ ;; tower@gnu.org Nov 21 1986 ;; added tower@gnu.org 22 Apr 87 +;;; Commentary: + ;;; Code: (require 'mail-utils)
--- a/lisp/obsolete/rnewspost.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/obsolete/rnewspost.el Sun Jul 15 16:15:35 2001 +0000 @@ -52,6 +52,8 @@ ;;; >> Nuked by Mly to autoload those functions again, as the duplication of ;;; >> code was making maintenance too difficult. +;;; Commentary: + ;;; Code: (require 'sendmail)
--- a/lisp/options.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/options.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; options.el --- edit Options command for Emacs. +;;; options.el --- edit Options command for Emacs ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/paren.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/paren.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; paren.el --- highlight matching paren. +;;; paren.el --- highlight matching paren ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
--- a/lisp/paths.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/paths.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; paths.el --- define pathnames for use by various Emacs commands. +;;; paths.el --- define pathnames for use by various Emacs commands ;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc.
--- a/lisp/play/dissociate.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/play/dissociate.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; dissociate.el --- scramble text amusingly for Emacs. +;;; dissociate.el --- scramble text amusingly for Emacs ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/play/doctor.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/play/doctor.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; doctor.el --- psychological help for frustrated users. +;;; doctor.el --- psychological help for frustrated users ;; Copyright (C) 1985, 1987, 1994, 1996, 2000 Free Software Foundation, Inc.
--- a/lisp/play/hanoi.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/play/hanoi.el Sun Jul 15 16:15:35 2001 +0000 @@ -7,6 +7,7 @@ ; Author (a) 1985, Damon Anton Permezel ; This is in the public domain ; since he distributed it without copyright notice in 1985. +;; This file is part of GNU Emacs. ; ; Support for horizontal poles, large numbers of rings, real-time, ; faces, defcustom, and Towers of Unix added in 1999 by Alakazam
--- a/lisp/play/meese.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/play/meese.el Sun Jul 15 16:15:35 2001 +0000 @@ -3,6 +3,8 @@ ;; This is in the public domain on account of being distributed since ;; 1985 or 1986 without a copyright notice. +;; This file is part of GNU Emacs. + ;; Maintainer: FSF ;; Keywords: games
--- a/lisp/progmodes/compile.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/progmodes/compile.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; compile.el --- run compiler as inferior of Emacs, parse error messages. +;;; compile.el --- run compiler as inferior of Emacs, parse error messages ;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999 Free Software Foundation, Inc.
--- a/lisp/progmodes/ebrowse.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/progmodes/ebrowse.el Sun Jul 15 16:15:35 2001 +0000 @@ -4509,5 +4509,4 @@ ;;; eval:(put 'ebrowse-for-all-trees 'lisp-indent-hook 1) ;;; End: -;;; ebrowse.el ends here. - +;;; ebrowse.el ends here
--- a/lisp/progmodes/hideif.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/progmodes/hideif.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; hide-ifdef-mode.el --- hides selected code within ifdef. +;;; hideif.el --- hides selected code within ifdef ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc. @@ -1075,4 +1075,3 @@ (provide 'hideif) ;;; hideif.el ends here -
--- a/lisp/progmodes/modula2.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/progmodes/modula2.el Sun Jul 15 16:15:35 2001 +0000 @@ -5,6 +5,8 @@ ;; Maintainer: FSF ;; Keywords: languages +;; This file is part of GNU Emacs. + ;; The authors distributed this without a copyright notice ;; back in 1988, so it is in the public domain. The original included ;; the following credit:
--- a/lisp/register.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/register.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; register.el --- register commands for Emacs. +;;; register.el --- register commands for Emacs ;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc.
--- a/lisp/rot13.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/rot13.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,8 +1,8 @@ -;;; rot13.el --- display a buffer in rot13. +;;; rot13.el --- display a buffer in rot13 ;; Copyright (C) 1988 Free Software Foundation, Inc. -;; Author: Howard Gayle: +;; Author: Howard Gayle ;; Maintainer: FSF ;; This file is part of GNU Emacs.
--- a/lisp/saveplace.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/saveplace.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; saveplace.el --- automatically save place in files. +;;; saveplace.el --- automatically save place in files ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. @@ -238,4 +238,3 @@ (provide 'saveplace) ; why not... ;;; saveplace.el ends here -
--- a/lisp/scroll-bar.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/scroll-bar.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; scroll-bar.el --- window system-independent scroll bar support. +;;; scroll-bar.el --- window system-independent scroll bar support ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/server.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/server.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; server.el --- Lisp code for GNU Emacs running as server process. +;;; server.el --- Lisp code for GNU Emacs running as server process ;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/sort.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/sort.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; sort.el --- commands to sort text in an Emacs buffer. +;;; sort.el --- commands to sort text in an Emacs buffer ;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
--- a/lisp/soundex.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/soundex.el Sun Jul 15 16:15:35 2001 +0000 @@ -29,7 +29,7 @@ ;; The Soundex algorithm maps English words into representations of ;; how they sound. Words with vaguely similar sound map to the same string. -;;; Code: +;;; Code: (defvar soundex-alist '((?B . "1") (?F . "1") (?P . "1") (?V . "1") @@ -73,4 +73,4 @@ (provide 'soundex) -;; soundex.el ends here +;;; soundex.el ends here
--- a/lisp/term/bg-mouse.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/term/bg-mouse.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse. +;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse ;; Copyright (C) Free Software Foundation, Inc. Oct 1985. @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
--- a/lisp/term/pc-win.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/term/pc-win.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; pc-win.el --- setup support for `PC windows' (whatever that is). +;;; pc-win.el --- setup support for `PC windows' (whatever that is) ;; Copyright (C) 1994, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (load "term/internal" nil t)
--- a/lisp/term/sup-mouse.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/term/sup-mouse.el Sun Jul 15 16:15:35 2001 +0000 @@ -26,6 +26,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; User customization option:
--- a/lisp/term/tty-colors.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/term/tty-colors.el Sun Jul 15 16:15:35 2001 +0000 @@ -1008,3 +1008,5 @@ (setq count (1+ count))) (setq colors (cdr colors))) count)) + +;;; tty-colors.el ends here
--- a/lisp/terminal.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/terminal.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; terminal.el --- terminal emulator for GNU Emacs. +;;; terminal.el --- terminal emulator for GNU Emacs ;; Copyright (C) 1986,87,88,89,93,94 Free Software Foundation, Inc.
--- a/lisp/textmodes/bib-mode.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/bib-mode.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; bib-mode.el --- bib-mode, major mode for editing bib files. +;;; bib-mode.el --- major mode for editing bib files ;; Copyright (C) 1989 Free Software Foundation, Inc. @@ -30,6 +30,7 @@ ;; and appropriate keys are presented for various kinds of entries. ;;; Code: + (defgroup bib nil "Major mode for editing bib files." :prefix "bib-"
--- a/lisp/textmodes/makeinfo.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/makeinfo.el Sun Jul 15 16:15:35 2001 +0000 @@ -253,4 +253,3 @@ (provide 'makeinfo) ;;; makeinfo.el ends here -
--- a/lisp/textmodes/page.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/page.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; page.el --- page motion commands for emacs. +;;; page.el --- page motion commands for Emacs ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/textmodes/paragraphs.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/paragraphs.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; paragraphs.el --- paragraph and sentence parsing. +;;; paragraphs.el --- paragraph and sentence parsing ;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/textmodes/picture.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/picture.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model. +;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model ;; Copyright (C) 1985, 1994 Free Software Foundation, Inc. @@ -397,7 +397,7 @@ (skip-chars-forward " \t") (setq tabs (cons (current-column) tabs))) (if (null tabs) - (error "No characters in set %s on this line." + (error "No characters in set %s on this line" (regexp-quote picture-tab-chars)))))) (setq tab-stop-list tabs) (let ((blurb (make-string (1+ (nth (1- (length tabs)) tabs)) ?\ ))) @@ -486,7 +486,7 @@ point at the other (diagonally opposed) corner." (interactive "P") (if (not (consp picture-killed-rectangle)) - (error "No rectangle saved.") + (error "No rectangle saved") (picture-insert-rectangle picture-killed-rectangle insertp))) (defun picture-yank-at-click (click arg) @@ -508,7 +508,7 @@ (interactive "cRectangle from register: \nP") (let ((rectangle (get-register register))) (if (not (consp rectangle)) - (error "Register %c does not contain a rectangle." register) + (error "Register %c does not contain a rectangle" register) (picture-insert-rectangle rectangle insertp)))) (defun picture-insert-rectangle (rectangle &optional insertp) @@ -698,7 +698,7 @@ they are not defaultly assigned to keys." (interactive) (if (eq major-mode 'picture-mode) - (error "You are already editing a picture.") + (error "You are already editing a picture") (make-local-variable 'picture-mode-old-local-map) (setq picture-mode-old-local-map (current-local-map)) (use-local-map picture-mode-map) @@ -735,7 +735,7 @@ otherwise just return to previous mode." (interactive "P") (if (not (eq major-mode 'picture-mode)) - (error "You aren't editing a Picture.") + (error "You aren't editing a Picture") (if (not nostrip) (delete-trailing-whitespace)) (setq mode-name picture-mode-old-mode-name) (use-local-map picture-mode-old-local-map)
--- a/lisp/textmodes/scribe.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/scribe.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; scribe.el --- scribe mode, and its idiosyncratic commands. +;;; scribe.el --- scribe mode, and its idiosyncratic commands ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/textmodes/spell.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/spell.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; spell.el --- spelling correction interface for Emacs. +;;; spell.el --- spelling correction interface for Emacs ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/textmodes/tex-mode.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/tex-mode.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands. +;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands ;; Copyright (C) 1985, 86, 89, 92, 94, 95, 96, 97, 98, 1999 ;; Free Software Foundation, Inc. @@ -26,6 +26,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; Pacify the byte-compiler
--- a/lisp/textmodes/text-mode.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/text-mode.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; text-mode.el --- text mode, and its idiosyncratic commands. +;;; text-mode.el --- text mode, and its idiosyncratic commands ;; Copyright (C) 1985, 1992, 1994 Free Software Foundation, Inc.
--- a/lisp/textmodes/underline.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/textmodes/underline.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs. +;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs ;; Copyright (C) 1985 Free Software Foundation, Inc.
--- a/lisp/thingatpt.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/thingatpt.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; thingatpt.el --- Get the `thing' at point +;;; thingatpt.el --- get the `thing' at point ;; Copyright (C) 1991,92,93,94,95,96,97,1998,2000 ;; Free Software Foundation, Inc. @@ -395,4 +395,4 @@ ;;;###autoload (defun list-at-point () (form-at-point 'list 'listp)) -;; thingatpt.el ends here. +;;; thingatpt.el ends here
--- a/lisp/time.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/time.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; time.el --- display time, load and mail indicator in mode line of Emacs. +;;; time.el --- display time, load and mail indicator in mode line of Emacs ;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000, 2001 ;; Free Software Foundation, Inc.
--- a/lisp/timer.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/timer.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; timer.el --- run a function with args at some time in future. +;;; timer.el --- run a function with args at some time in future ;; Copyright (C) 1996 Free Software Foundation, Inc.
--- a/lisp/unused.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/unused.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,7 +1,9 @@ -;;; unused.el --- editing commands in GNU Emacs that turned out not to be used. +;;; unused.el --- editing commands in GNU Emacs that turned out not to be used ;;; This file is in the public domain, as it was distributed in ;;; 1985 or 1986 without a copyright notice. Written by RMS. +;; This file is part of GNU Emacs. + ;; Maintainer: FSF ;; Keywords: emulations
--- a/lisp/vcursor.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/vcursor.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; vcursor.el --- manipulate an alternative ("virtual") cursor. +;;; vcursor.el --- manipulate an alternative ("virtual") cursor ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc. @@ -808,7 +808,7 @@ ((and (overlayp vcursor-overlay) (overlay-start vcursor-overlay)) t) (arg nil) - (t (error "The virtual cursor is not active now."))) + (t (error "The virtual cursor is not active now"))) ) (defun vcursor-disable (&optional arg) @@ -1161,4 +1161,4 @@ (provide 'vcursor) -;; vcursor.el ends here +;;; vcursor.el ends here
--- a/lisp/version.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/version.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; version.el --- record version number of Emacs. +;;; version.el --- record version number of Emacs ;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001 ;;; Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defconst emacs-version "21.0.105" "\
--- a/lisp/vms-patch.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/vms-patch.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; vms-patch.el --- override parts of files.el for VMS. +;;; vms-patch.el --- override parts of files.el for VMS ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))
--- a/lisp/vmsproc.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/vmsproc.el Sun Jul 15 16:15:35 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar display-subprocess-window nil
--- a/lisp/vt100-led.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/vt100-led.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones. +;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones ;; Copyright (C) 1988 Free Software Foundation, Inc. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar led-state (make-vector 5 nil)
--- a/lisp/window.el Sat Jul 14 18:19:27 2001 +0000 +++ b/lisp/window.el Sun Jul 15 16:15:35 2001 +0000 @@ -1,4 +1,4 @@ -;;; window.el --- GNU Emacs window commands aside from those written in C. +;;; window.el --- GNU Emacs window commands aside from those written in C ;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001 ;; Free Software Foundation, Inc. @@ -22,7 +22,6 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. - ;;; Commentary: ;; Window tree functions.