From e8af40eed41d6c61ea6a0649512c4b09afcb1bfa Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 16 Jul 2001 12:23:00 +0000 Subject: [PATCH] Some fixes to follow coding conventions. --- lisp/ChangeLog | 52 +++++++++++++++++++++++++++++++++ lisp/align.el | 2 +- lisp/apropos.el | 2 +- lisp/autorevert.el | 4 +-- lisp/battery.el | 2 +- lisp/bookmark.el | 4 +-- lisp/calculator.el | 4 +-- lisp/calendar/todo-mode.el | 6 ++-- lisp/complete.el | 2 +- lisp/cus-dep.el | 4 ++- lisp/cus-edit.el | 2 +- lisp/cus-face.el | 2 +- lisp/delim-col.el | 14 ++++----- lisp/dos-fns.el | 4 +-- lisp/double.el | 3 +- lisp/edmacro.el | 1 - lisp/elide-head.el | 2 +- lisp/emacs-lisp/autoload.el | 2 +- lisp/emacs-lisp/checkdoc.el | 2 +- lisp/emacs-lisp/cl-compat.el | 1 - lisp/emacs-lisp/cl-specs.el | 7 +++-- lisp/emacs-lisp/copyright.el | 2 +- lisp/emacs-lisp/cust-print.el | 3 +- lisp/emacs-lisp/easy-mmode.el | 2 +- lisp/emacs-lisp/elint.el | 3 +- lisp/emacs-lisp/ewoc.el | 2 +- lisp/emacs-lisp/find-func.el | 2 +- lisp/emacs-lisp/pp.el | 5 +++- lisp/emacs-lisp/re-builder.el | 2 +- lisp/emacs-lisp/shadow.el | 2 +- lisp/emacs-lisp/sregex.el | 1 - lisp/emerge.el | 4 +++ lisp/emulation/edt-lk201.el | 9 ++++-- lisp/emulation/edt-mapper.el | 2 +- lisp/emulation/edt-pc.el | 9 ++++-- lisp/emulation/edt-vt100.el | 9 ++++-- lisp/emulation/edt.el | 2 +- lisp/emulation/pc-select.el | 2 ++ lisp/emulation/tpu-edt.el | 18 ++++++------ lisp/emulation/tpu-extras.el | 2 +- lisp/emulation/tpu-mapper.el | 2 +- lisp/emulation/vip.el | 12 ++++---- lisp/expand.el | 2 +- lisp/finder.el | 1 + lisp/foldout.el | 3 +- lisp/follow.el | 2 +- lisp/format.el | 2 +- lisp/forms-d2.el | 8 +++++ lisp/forms.el | 8 ++--- lisp/generic.el | 2 +- lisp/hi-lock.el | 4 +-- lisp/hilit-chg.el | 4 +-- lisp/hippie-exp.el | 2 +- lisp/info-look.el | 2 +- lisp/international/isearch-x.el | 2 ++ lisp/international/iso-cvt.el | 2 +- lisp/international/ogonek.el | 4 +-- lisp/international/quail.el | 2 +- lisp/international/utf-8.el | 4 ++- lisp/jit-lock.el | 4 +-- lisp/language/devan-util.el | 6 ++-- lisp/language/devanagari.el | 3 +- lisp/language/ethio-util.el | 6 ++-- lisp/language/ethiopic.el | 4 ++- lisp/language/european.el | 2 +- lisp/language/indian.el | 2 +- lisp/language/romanian.el | 5 ++-- lisp/language/tibet-util.el | 6 ++-- lisp/language/tibetan.el | 6 ++-- lisp/mail/feedmail.el | 3 ++ lisp/mail/footnote.el | 4 +-- lisp/mail/mail-hist.el | 6 ++-- lisp/mail/mailheader.el | 2 +- lisp/mail/mspools.el | 4 +-- lisp/mail/supercite.el | 6 ++-- lisp/mouse-sel.el | 4 +-- lisp/net/browse-url.el | 6 ++-- lisp/net/net-utils.el | 4 +-- lisp/net/quickurl.el | 4 +-- lisp/net/snmp-mode.el | 8 +++-- lisp/net/webjump.el | 12 ++++---- lisp/net/zone-mode.el | 6 ++-- lisp/pcomplete.el | 2 +- lisp/progmodes/antlr-mode.el | 6 ++-- lisp/progmodes/autoconf.el | 4 +-- lisp/progmodes/cmacexp.el | 3 ++ lisp/progmodes/cperl-mode.el | 2 +- lisp/progmodes/cpp.el | 2 +- lisp/progmodes/cwarn.el | 2 +- lisp/progmodes/delphi.el | 10 +++++-- lisp/progmodes/ebnf-bnf.el | 30 +++++++++---------- lisp/progmodes/ebnf-iso.el | 30 +++++++++---------- lisp/progmodes/ebnf-otz.el | 6 ++-- lisp/progmodes/ebnf-yac.el | 30 +++++++++---------- lisp/progmodes/ebnf2ps.el | 11 ++++--- lisp/progmodes/executable.el | 2 +- lisp/progmodes/fortran.el | 2 +- lisp/progmodes/idlw-shell.el | 4 +-- lisp/progmodes/idlw-toolbar.el | 6 ++-- lisp/progmodes/idlwave.el | 22 +++++++------- lisp/progmodes/m4-mode.el | 2 +- lisp/progmodes/mantemp.el | 2 +- lisp/progmodes/meta-mode.el | 2 +- lisp/progmodes/octave-inf.el | 2 ++ lisp/progmodes/ps-mode.el | 2 +- lisp/progmodes/scheme.el | 2 +- lisp/progmodes/simula.el | 2 +- lisp/progmodes/tcl.el | 6 ++-- lisp/ps-bdf.el | 6 ++-- lisp/ps-mule.el | 12 ++++---- lisp/ps-print.el | 6 ++-- lisp/recentf.el | 2 +- lisp/rect.el | 2 +- lisp/regi.el | 3 ++ lisp/rsz-mini.el | 4 +-- lisp/s-region.el | 4 +-- lisp/scroll-all.el | 8 +++-- lisp/shadowfile.el | 1 - lisp/speedbar.el | 5 ++-- lisp/term/AT386.el | 2 +- lisp/term/internal.el | 3 +- lisp/term/iris-ansi.el | 8 +++-- lisp/term/mac-win.el | 5 ++-- lisp/term/tvi970.el | 2 +- lisp/textmodes/artist.el | 2 +- lisp/textmodes/flyspell.el | 5 ++-- lisp/textmodes/ispell.el | 8 ++--- lisp/textmodes/page-ext.el | 5 ++-- lisp/textmodes/refer.el | 5 ++-- lisp/textmodes/texinfmt.el | 20 +++++++------ lisp/textmodes/texinfo.el | 2 ++ lisp/textmodes/texnfo-upd.el | 16 +++++----- lisp/textmodes/two-column.el | 7 +++-- lisp/time-stamp.el | 4 ++- lisp/timezone.el | 2 ++ lisp/toolbar/tool-bar.el | 2 +- lisp/vc-rcs.el | 6 ++-- lisp/vc-sccs.el | 5 +--- lisp/view.el | 2 +- lisp/w32-fns.el | 2 +- lisp/which-func.el | 4 +-- lisp/whitespace.el | 4 +-- lisp/wid-browse.el | 6 ++-- lisp/widget.el | 4 +-- lisp/windmove.el | 2 +- lisp/woman.el | 12 ++++---- lisp/xt-mouse.el | 2 +- 147 files changed, 455 insertions(+), 323 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5b409cdc7..3947c23938 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,55 @@ +2001-07-16 Pavel Jan,Bm(Bk + + * align.el, apropos.el, autorevert.el, battery.el, bookmark.el, + calculator.el, calendar/todo-mode.el, complete.el, cus-dep.el, + cus-edit.el, cus-face.el, delim-col.el, dos-fns.el, double.el, + edmacro.el, elide-head.el, emacs-lisp/autoload.el, + emacs-lisp/checkdoc.el, emacs-lisp/cl-compat.el, + emacs-lisp/cl-specs.el, emacs-lisp/copyright.el, + emacs-lisp/cust-print.el, emacs-lisp/easy-mmode.el, + emacs-lisp/elint.el, emacs-lisp/ewoc.el, emacs-lisp/find-func.el, + emacs-lisp/pp.el, emacs-lisp/re-builder.el, emacs-lisp/shadow.el, + emacs-lisp/sregex.el, emerge.el, emulation/edt-lk201.el, + emulation/edt-mapper.el, emulation/edt-pc.el, + emulation/edt-vt100.el, emulation/edt.el, emulation/pc-select.el, + emulation/tpu-edt.el, emulation/tpu-extras.el, + emulation/tpu-mapper.el, emulation/vip.el, expand.el, finder.el, + foldout.el, follow.el, format.el, forms-d2.el, forms.el, + generic.el, hi-lock.el, hilit-chg.el, hippie-exp.el, info-look.el, + international/isearch-x.el, international/iso-cvt.el, + international/ogonek.el, international/quail.el, + international/utf-8.el, jit-lock.el, language/devan-util.el, + language/devanagari.el, language/ethio-util.el, + language/ethiopic.el, language/european.el, language/indian.el, + language/romanian.el, language/tibet-util.el, language/tibetan.el, + mail/feedmail.el, mail/footnote.el, mail/mail-hist.el, + mail/mailheader.el, mail/mspools.el, mail/supercite.el, + mouse-sel.el, net/browse-url.el, net/net-utils.el, + net/quickurl.el, net/snmp-mode.el, net/webjump.el, + net/zone-mode.el, pcomplete.el, progmodes/antlr-mode.el, + progmodes/autoconf.el, progmodes/cmacexp.el, + progmodes/cperl-mode.el, progmodes/cpp.el, progmodes/cwarn.el, + progmodes/delphi.el, progmodes/ebnf-bnf.el, progmodes/ebnf-iso.el, + progmodes/ebnf-otz.el, progmodes/ebnf-yac.el, + progmodes/ebnf2ps.el, progmodes/executable.el, + progmodes/fortran.el, progmodes/idlw-shell.el, + progmodes/idlw-toolbar.el, progmodes/idlwave.el, + progmodes/m4-mode.el, progmodes/mantemp.el, + progmodes/meta-mode.el, progmodes/octave-inf.el, + progmodes/ps-mode.el, progmodes/scheme.el, progmodes/simula.el, + progmodes/tcl.el, ps-bdf.el, ps-mule.el, ps-print.el, recentf.el, + rect.el, regi.el, rsz-mini.el, s-region.el, scroll-all.el, + shadowfile.el, speedbar.el, term/AT386.el, term/internal.el, + term/iris-ansi.el, term/mac-win.el, term/tvi970.el, + textmodes/artist.el, textmodes/flyspell.el, textmodes/ispell.el, + textmodes/page-ext.el, textmodes/refer.el, textmodes/texinfmt.el, + textmodes/texinfo.el, textmodes/texnfo-upd.el, + textmodes/two-column.el, time-stamp.el, timezone.el, + toolbar/tool-bar.el, vc-rcs.el, vc-sccs.el, view.el, w32-fns.el, + which-func.el, whitespace.el, wid-browse.el, widget.el, + windmove.el, woman.el, xt-mouse.el: Some fixes to follow coding + conventions. + 2001-07-16 Gerd Moellmann * simple.el (set-variable): Require 'cus-edit' instead of diff --git a/lisp/align.el b/lisp/align.el index 7c8ad919ba..ad4bd03966 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1,4 +1,4 @@ -;;; align --- align text to a specific column, by regexp +;;; align.el --- align text to a specific column, by regexp ;; Copyright (C) 1999, 2000 Free Sofware Foundation diff --git a/lisp/apropos.el b/lisp/apropos.el index f284b18b19..553b54057d 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -1,4 +1,4 @@ -;;; apropos.el --- apropos commands for users and programmers. +;;; apropos.el --- apropos commands for users and programmers ;; Copyright (C) 1989, 1994, 1995 Free Software Foundation, Inc. diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 9ac33c30f6..de07345f21 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -1,4 +1,4 @@ -;;; autorevert --- revert buffers when files on disk change +;;; autorevert.el --- revert buffers when files on disk change ;; Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc. @@ -373,4 +373,4 @@ the timer when no buffers need to be checked." (if global-auto-revert-mode (global-auto-revert-mode 1)) -;; autorevert.el ends here. +;;; autorevert.el ends here diff --git a/lisp/battery.el b/lisp/battery.el index 9ab5d20d0a..0d81e1debb 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -1,4 +1,4 @@ -;;; battery.el --- display battery status information. +;;; battery.el --- display battery status information ;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc. diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 4582a55f94..be0406610c 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1,4 +1,4 @@ -;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later. +;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation @@ -77,7 +77,7 @@ ;; Boy, that's a tough one. Probably Hong Min, or maybe Emperor's ;; Choice (both in Chicago's Chinatown). Well, both. How about you? -;;;; Code: +;;; Code: (require 'pp) diff --git a/lisp/calculator.el b/lisp/calculator.el index b337f4c302..7d6ec11430 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -1,10 +1,10 @@ -;;; calculator.el --- A [not so] simple calculator for Emacs. +;;; calculator.el --- a [not so] simple calculator for Emacs ;; Copyright (C) 1998, 2000 by Free Software Foundation, Inc. ;; Author: Eli Barzilay ;; Keywords: tools, convenience -;; Time-stamp: <2000-11-19 20:59:59 eli> +;; Time-stamp: <2001-07-15 11:04:11 pavel> ;; This file is part of GNU Emacs. diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 397cc4f515..772157adbc 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -1,11 +1,11 @@ -;; todo-mode.el -- Major mode for editing TODO list files +;;; todo-mode.el --- major mode for editing TODO list files ;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc. ;; Author: Oliver Seidel ;; [Not clear the above works, July 2000] ;; Created: 2 Aug 1997 -;; Version: $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $ +;; Version: $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $ ;; Keywords: calendar, todo ;; This file is part of GNU Emacs. @@ -97,7 +97,7 @@ ;; ;; Which version of todo-mode.el does this documentation refer to? ;; -;; $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $ +;; $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $ ;; ;; Pre-Requisites ;; diff --git a/lisp/complete.el b/lisp/complete.el index 2759c2380f..de58752b63 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -946,4 +946,4 @@ absolute rather than relative to some directory on the SEARCH-PATH." (provide 'complete) -;;; End. +;;; complete.el ends here diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index 466f9b5be0..4cb856cc04 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -1,4 +1,4 @@ -;;; cus-dep.el --- Find customization dependencies. +;;; cus-dep.el --- find customization dependencies ;; ;; Copyright (C) 1997 Free Software Foundation, Inc. ;; @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (eval-when-compile (require 'cl)) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 862cbf7d5d..11c85882f2 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1,4 +1,4 @@ -;;; cus-edit.el --- Tools for customizing Emacs and Lisp packages. +;;; cus-edit.el --- tools for customizing Emacs and Lisp packages ;; ;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc. ;; diff --git a/lisp/cus-face.el b/lisp/cus-face.el index dc2461c0e1..2a2693c5f1 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -1,4 +1,4 @@ -;;; cus-face.el -- customization support for faces. +;;; cus-face.el --- customization support for faces ;; ;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc. ;; diff --git a/lisp/delim-col.el b/lisp/delim-col.el index f24e187ba3..3f7ca7ecee 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el @@ -1,13 +1,13 @@ -;;; delim-col.el --- Prettify all columns in a region or rectangle. +;;; delim-col.el --- prettify all columns in a region or rectangle ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. -;; Author: Vinicius Jose Latorre -;; Maintainer: Vinicius Jose Latorre -;; Time-stamp: <2000/10/28 09:34:15 Vinicius> -;; Version: 2.1 -;; Keywords: internal -;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ +;; Author: Vinicius Jose Latorre +;; Maintainer: Vinicius Jose Latorre +;; Time-stamp: <2001-07-15 11:12:35 pavel> +;; Version: 2.1 +;; Keywords: internal +;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ ;; This file is part of GNU Emacs. diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 09267c28c1..1a727f139d 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -1,4 +1,4 @@ -;;; dos-fns.el --- MS-Dos specific functions. +;;; dos-fns.el --- MS-Dos specific functions ;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc. @@ -244,4 +244,4 @@ that your video hardware might not support 50-line mode." (provide 'dos-fns) -; dos-fns.el ends here +;;; dos-fns.el ends here diff --git a/lisp/double.el b/lisp/double.el index 84a66d29e4..9287aa7f90 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -1,4 +1,4 @@ -;;; double.el --- Support for keyboard remapping with double clicking +;;; double.el --- support for keyboard remapping with double clicking ;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc. @@ -208,4 +208,3 @@ when pressed twice. See variable `double-map' for details." (provide 'double) ;;; double.el ends here - diff --git a/lisp/edmacro.el b/lisp/edmacro.el index d53bdb1135..8a3201567c 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -722,4 +722,3 @@ If START or END is negative, it counts from the end." (provide 'edmacro) ;;; edmacro.el ends here - diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 9cd592057d..9a23e622c4 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el @@ -1,4 +1,4 @@ -;;; elid-head.el --- hide headers in files +;;; elide-head.el --- hide headers in files ;; Copyright (C) 1999 Free Software Foundation, Inc. diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 8af5da987a..37bc21fab1 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -1,4 +1,4 @@ -;;; autoload.el --- maintain autoloads in loaddefs.el. +;;; autoload.el --- maintain autoloads in loaddefs.el ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 ;; Free Software Foundation, Inc. diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 5bc22cc19d..947fcb3ab9 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1,4 +1,4 @@ -;;; checkdoc --- Check documentation strings for style requirements +;;; checkdoc.el --- check documentation strings for style requirements ;;; Copyright (C) 1997, 1998, 2001 Free Software Foundation diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el index 01cf288ea7..9afe4fe426 100644 --- a/lisp/emacs-lisp/cl-compat.el +++ b/lisp/emacs-lisp/cl-compat.el @@ -186,4 +186,3 @@ (provide 'cl-compat) ;;; cl-compat.el ends here - diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el index 9894c994c0..94af9c988b 100644 --- a/lisp/emacs-lisp/cl-specs.el +++ b/lisp/emacs-lisp/cl-specs.el @@ -7,7 +7,7 @@ ;; LCD Archive Entry: ;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org ;; |Edebug specs for cl.el -;; |$Date: 2000/04/13 19:10:09 $|1.1| +;; |$Date: 2000/08/15 12:39:03 $|1.1| ;; This file is part of GNU Emacs. @@ -26,13 +26,15 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;;; Commentary: +;;; Commentary: ;; These specs are to be used with edebug.el version 3.3 or later and ;; cl.el version 2.03 or later, by Dave Gillespie . ;; This file need not be byte-compiled, but it shouldn't hurt. +;;; Code: + (provide 'cl-specs) ;; Do the above provide before the following require. ;; Otherwise if you load this before edebug if cl is already loaded @@ -468,3 +470,4 @@ (def-edebug-spec loop-d-type-spec (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec)) +;;; cl-specs.el ends here diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index 7c06b97269..2289813646 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -165,4 +165,4 @@ copyright, if any, are updated as well." ;; coding: emacs-mule ;; End: -;; copyright.el ends here +;;; copyright.el ends here diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el index 16f8b5479b..435465f427 100644 --- a/lisp/emacs-lisp/cust-print.el +++ b/lisp/emacs-lisp/cust-print.el @@ -1,4 +1,4 @@ -;;; cust-print.el --- handles print-level and print-circle. +;;; cust-print.el --- handles print-level and print-circle ;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -689,4 +689,3 @@ See `custom-format' for the details." (provide 'cust-print) ;;; cust-print.el ends here - diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 9d99e5fe09..8d7f185709 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -1,4 +1,4 @@ -;;; easy-mmode.el --- easy definition for major and minor modes. +;;; easy-mmode.el --- easy definition for major and minor modes ;; Copyright (C) 1997,2000 Free Software Foundation, Inc. diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index d6c5ed3a29..32538c4558 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -1,4 +1,4 @@ -;;; elint.el -- Lint Emacs Lisp +;;; elint.el --- Lint Emacs Lisp ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -806,4 +806,3 @@ If no documentation could be found args will be `unknown'." (provide 'elint) ;;; elint.el ends here - diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index a83dc0415b..6bb26507ec 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el @@ -1,4 +1,4 @@ -;;; ewoc.el -- Utility to maintain a view of a list of objects in a buffer +;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index fa6007d585..f15b92d150 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -43,7 +43,7 @@ ;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's ;; "fff.el"). -;;;; Code: +;;; Code: (require 'loadhist) diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 926706a730..8c51c2f6d7 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -21,7 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: + (defgroup pp nil "Pretty printer for Emacs Lisp." :prefix "pp-" @@ -162,4 +165,4 @@ Ignores leading comment characters." (provide 'pp) ; so (require 'pp) works -;;; pp.el ends here. +;;; pp.el ends here diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index e3667cbc78..11cf0f6ab2 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -1,4 +1,4 @@ -;;; re-builder.el --- Building Regexps with visual feedback +;;; re-builder.el --- building Regexps with visual feedback ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 159036b7bf..4d7477cb69 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -1,4 +1,4 @@ -;;; shadow.el --- Locate Emacs Lisp file shadowings. +;;; shadow.el --- locate Emacs Lisp file shadowings ;; Copyright (C) 1995 Free Software Foundation, Inc. diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el index d19689817c..1200e7b3c3 100644 --- a/lisp/emacs-lisp/sregex.el +++ b/lisp/emacs-lisp/sregex.el @@ -606,4 +606,3 @@ has one of the following forms: (provide 'sregex) ;;; sregex.el ends here - diff --git a/lisp/emerge.el b/lisp/emerge.el index 332c8b4699..551ba3503e 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -2,6 +2,8 @@ ;;; The author has placed this file in the public domain. +;; This file is part of GNU Emacs. + ;; Author: Dale R. Worley ;; Version: 5fsf ;; Keywords: unix, tools @@ -19,6 +21,8 @@ ;; LOST DATA OR LOST PROFITS, OR FOR ANY SPECIAL, INCIDENTAL OR CONSEQUENTIAL ;; DAMAGES. +;;; Commentary: + ;;; Code: ;;;###autoload diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el index 2aeb6aac74..cdbe34060a 100644 --- a/lisp/emulation/edt-lk201.el +++ b/lisp/emulation/edt-lk201.el @@ -1,4 +1,4 @@ -;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards +;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc. @@ -23,7 +23,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Usage: +;;; Commentary: ;; See edt-user.doc in the Emacs etc directory. @@ -39,6 +39,9 @@ ;; F1 - F5 are not available on many DEC VT series terminals. ;; However, this is not always the case. So support for F1 - F5 is ;; provided here and in lisp/term/lk201.el. + +;;; Code: + (defconst *EDT-keys* '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) @@ -53,3 +56,5 @@ ("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14]) ("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18]) ("F19" . [f19]) ("F20" . [f20]))) + +;;; edt-lk201.el ends here diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el index 9b60f9f1fd..7f74ab60f9 100644 --- a/lisp/emulation/edt-mapper.el +++ b/lisp/emulation/edt-mapper.el @@ -1,4 +1,4 @@ -;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs +;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs ;; Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc. diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el index 0cd9ece449..2b6aa25b06 100644 --- a/lisp/emulation/edt-pc.el +++ b/lisp/emulation/edt-pc.el @@ -1,4 +1,4 @@ -;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards +;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards ;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc. @@ -23,7 +23,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Usage: +;;; Commentary: ;; See edt-user.doc in the Emacs etc directory. @@ -68,6 +68,9 @@ ;; and F17 through F20 do not exist on the PC, so the EDT emulation is ;; configured below to ignore attempts to bind functions to those keys. ;; + +;;; Code: + (defconst *EDT-keys* '(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3]) ("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7]) @@ -83,3 +86,5 @@ ("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" ) ("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" ) ("F19" . "" ) ("F20" . "" ))) + +;;; edt-pc.el ends here diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el index 42f81cd6f5..283b7827c7 100644 --- a/lisp/emulation/edt-vt100.el +++ b/lisp/emulation/edt-vt100.el @@ -1,4 +1,4 @@ -;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals +;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals ;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc. @@ -23,12 +23,15 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Usage: +;;; Commentary: ;; See edt-user.doc in the Emacs etc directory. ;; ==================================================================== + +;;; Code: + ;; Get keyboard function key mapping to EDT keys. (load "edt-lk201" nil t) @@ -42,3 +45,5 @@ (defun edt-set-term-width-132 () "Set terminal width to 132 columns." (vt100-wide-mode 1)) + +;;; edt-vt100.el ends here diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 2912da5df2..d54c0bba8c 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -1,4 +1,4 @@ -;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19 +;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19 ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001 ;; Free Software Foundation, Inc. diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el index fde3672f3a..c8c3331ba3 100644 --- a/lisp/emulation/pc-select.el +++ b/lisp/emulation/pc-select.el @@ -77,6 +77,8 @@ ;; other programs. ;; +;;; Code: + ;;;; Customization: (defgroup pc-select nil "Emulate pc bindings." diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 21891d2486..f17ff95388 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -1071,7 +1071,7 @@ kills modified buffers without asking." (interactive) (let ((list (tpu-make-file-buffer-list (buffer-list)))) (setq list (delq (current-buffer) list)) - (if (not list) (error "No other buffers.")) + (if (not list) (error "No other buffers")) (switch-to-buffer (car (reverse list))))) (defun tpu-make-file-buffer-list (buffer-list) @@ -1343,7 +1343,7 @@ The text is saved for the tpu-paste command." (delete-region beg end) (tpu-unset-match))) (t - (error "No selection active.")))) + (error "No selection active")))) (defun tpu-store-text nil "Copy the selected region to the cut buffer without deleting it. @@ -1365,7 +1365,7 @@ The text is saved for the tpu-paste command." (buffer-substring (tpu-match-beginning) (tpu-match-end))) (tpu-unset-match)) (t - (error "No selection active.")))) + (error "No selection active")))) (defun tpu-cut (arg) "Copy selected region to the cut buffer. In the absence of an @@ -1392,7 +1392,7 @@ argument, delete the selected region too." (if (not arg) (delete-region beg end)) (tpu-unset-match))) (t - (error "No selection active.")))) + (error "No selection active")))) (defun tpu-delete-current-line (num) "Delete one or specified number of lines after point. @@ -1532,7 +1532,7 @@ With argument reinserts the character that many times." (not case-replace) (not tpu-regexp-p)) (tpu-unset-match))) (t - (error "No selection active.")))) + (error "No selection active")))) (defun tpu-substitute (num) "Replace the selected region with the contents of the cut buffer, and @@ -1548,7 +1548,7 @@ A negative argument means replace all occurrences of the search string." (tpu-search-internal-core tpu-search-last-string))) (setq num (1- num)))) (t - (error "No selection active.")))) + (error "No selection active")))) (defun tpu-lm-replace (from to) "Interactively search for OLD-string and substitute NEW-string." @@ -1558,7 +1558,7 @@ A negative argument means replace all occurrences of the search string." (let ((doit t) (strings 0)) ;; Can't replace null strings - (if (string= "" from) (error "No string to replace.")) + (if (string= "" from) (error "No string to replace")) ;; Find the first occurrence (tpu-set-search) @@ -1631,7 +1631,7 @@ are performed without asking. Only works in forward direction." or each line in the entire buffer if no region is selected." (interactive (list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist))) - (if (string= "" text) (error "No string specified.")) + (if (string= "" text) (error "No string specified")) (cond ((tpu-mark) (save-excursion (if (> (point) (tpu-mark)) (exchange-point-and-mark)) @@ -1649,7 +1649,7 @@ or each line in the entire buffer if no region is selected." or each line of the entire buffer if no region is selected." (interactive (list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist))) - (if (string= "" text) (error "No string specified.")) + (if (string= "" text) (error "No string specified")) (cond ((tpu-mark) (save-excursion (if (> (point) (tpu-mark)) (exchange-point-and-mark)) diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index 479af17652..465b923f89 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -1,4 +1,4 @@ -;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt +;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index ba6d032fd6..39aae2cf2a 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el @@ -1,4 +1,4 @@ -;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file +;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 588a6c6e31..6db67394ea 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -817,7 +817,7 @@ is the name of the register for COM." (com (car (cdr (cdr vip-d-com)))) (reg (nth 3 vip-d-com))) (if (null val) (setq val (car (cdr vip-d-com)))) - (if (null m-com) (error "No previous command to repeat.")) + (if (null m-com) (error "No previous command to repeat")) (setq vip-use-register reg) (funcall m-com (cons val com))))) @@ -1499,7 +1499,7 @@ used. This behaviour is controlled by the sign of prefix numeric value." (let ((com (vip-getcom arg))) (if (numberp arg) (if (or (> arg 99) (< arg 1)) - (error "Prefix must be between 1 and 99.") + (error "Prefix must be between 1 and 99") (goto-char (if (> (point-max) 80000) (* (/ (point-max) 100) arg) @@ -1693,7 +1693,7 @@ STRING. Search will be forward if FORWARD, otherwise backward." "Repeat previous search." (interactive "P") (let ((val (vip-p-val arg)) (com (vip-getcom arg))) - (if (null vip-s-string) (error "No previous search string.")) + (if (null vip-s-string) (error "No previous search string")) (vip-search vip-s-string vip-s-forward arg) (if com (vip-execute-com 'vip-search-next val com)))) @@ -1701,7 +1701,7 @@ STRING. Search will be forward if FORWARD, otherwise backward." "Repeat previous search in the reverse direction." (interactive "P") (let ((val (vip-p-val arg)) (com (vip-getcom arg))) - (if (null vip-s-string) (error "No previous search string.")) + (if (null vip-s-string) (error "No previous search string")) (vip-search vip-s-string (not vip-s-forward) arg) (if com (vip-execute-com 'vip-search-Next val com)))) @@ -1742,11 +1742,11 @@ STRING. Search will be forward if FORWARD, otherwise backward." (if (null buffer-name) (current-buffer) (get-buffer buffer-name))) - (if (null buffer) (error "Buffer %s nonexistent." buffer-name)) + (if (null buffer) (error "Buffer %s nonexistent" buffer-name)) (if (or (not (buffer-modified-p buffer)) (y-or-n-p "Buffer is modified, are you sure? ")) (kill-buffer buffer) - (error "Buffer not killed.")))) + (error "Buffer not killed")))) (defun vip-find-file () "Visit file in the current window." diff --git a/lisp/expand.el b/lisp/expand.el index deb4a5f857..0e700c1d2a 100644 --- a/lisp/expand.el +++ b/lisp/expand.el @@ -1,4 +1,4 @@ -;;; expand.el --- make abbreviations more usable. +;;; expand.el --- make abbreviations more usable ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. diff --git a/lisp/finder.el b/lisp/finder.el index a64e797a36..2d843e0fdf 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -116,6 +116,7 @@ no arguments compiles from `load-path'." (find-file "finder-inf.el") (erase-buffer) (insert ";;; finder-inf.el --- keyword-to-package mapping\n") + (insert ";; This file is part of GNU Emacs.\n") (insert ";; Keywords: help\n") (insert ";;; Commentary:\n") (insert ";; Don't edit this file. It's generated by finder.el\n\n") diff --git a/lisp/foldout.el b/lisp/foldout.el index 4a2aa2b06a..94d30467e5 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -1,4 +1,4 @@ -;;; foldout.el --- Folding extensions for outline-mode and outline-minor-mode. +;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode ;; Copyright (C) 1994 Free Software Foundation, Inc. @@ -568,4 +568,3 @@ Valid modifiers are shift, control, meta, alt, hyper and super.") (provide 'foldout) ;;; foldout.el ends here - diff --git a/lisp/follow.el b/lisp/follow.el index 92ad5829e4..8b62c62281 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -1,4 +1,4 @@ -;;; follow.el --- Minor mode, Synchronize windows showing the same buffer. +;;; follow.el --- synchronize windows showing the same buffer ;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. diff --git a/lisp/format.el b/lisp/format.el index 8309ec958b..561c5e4d78 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -462,7 +462,7 @@ the value of `foo'." (cdr list) (let ((p list)) (while (not (eq (cdr p) cons)) - (if (null p) (error "format-delq-cons: not an element.")) + (if (null p) (error "format-delq-cons: not an element")) (setq p (cdr p))) ;; Now (cdr p) is the cons to delete (setcdr p (cdr cons)) diff --git a/lisp/forms-d2.el b/lisp/forms-d2.el index 22331292e1..7cb8b0c77f 100644 --- a/lisp/forms-d2.el +++ b/lisp/forms-d2.el @@ -3,8 +3,14 @@ ;; Author: Johan Vromans ;; Created: 1989 +;; This file is part of GNU Emacs. + +;;; Commentary: + ;; This sample forms exploit most of the features of forms mode. +;;; Code: + ;; Set the name of the data file. (setq forms-file "forms-d2.dat") @@ -78,3 +84,5 @@ used to fill to the column." )) ;; That's all, folks! + +;;; forms-d2.el ends here diff --git a/lisp/forms.el b/lisp/forms.el index 27a9da3813..0a25e77bd7 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -301,10 +301,10 @@ (provide 'forms) ;;; official (provide 'forms-mode) ;;; for compatibility -(defconst forms-version (substring "$Revision: 2.40 $" 11 -2) +(defconst forms-version (substring "$Revision: 2.41 $" 11 -2) "The version number of forms-mode (as string). The complete RCS id is: - $Id: forms.el,v 2.40 1999/11/13 22:05:56 gerd Exp $") + $Id: forms.el,v 2.41 2001/02/07 23:40:52 fx Exp $") (defcustom forms-mode-hooks nil "Hook run upon entering Forms mode." @@ -1219,7 +1219,7 @@ Commands: Equivalent keys in read-only mode: ;; Need a file to do this. (if (not (file-exists-p forms-file)) - (error "Need existing file or explicit 'forms-number-of-records'.") + (error "Need existing file or explicit 'forms-number-of-records'") ;; Visit the file and extract the first record. (setq forms--file-buffer (find-file-noselect forms-file)) @@ -2090,4 +2090,4 @@ Usage: (setq forms-number-of-fields (goto-char (point-max)) (insert ret))))) -;;; forms.el ends here. +;;; forms.el ends here diff --git a/lisp/generic.el b/lisp/generic.el index fd2ac80afa..7f2051329c 100644 --- a/lisp/generic.el +++ b/lisp/generic.el @@ -1,4 +1,4 @@ -;;; generic.el --- Defining simple major modes with comment and font-lock. +;;; generic.el --- defining simple major modes with comment and font-lock ;; ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. ;; diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index e37cb94d1a..86e62eea05 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -1,4 +1,4 @@ -;;; hi-lock.el --- Minor mode for interactive automatic highlighting. +;;; hi-lock.el --- minor mode for interactive automatic highlighting ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Commentary +;;; Commentary: ;; ;; With the hi-lock commands text matching interactively entered ;; regexp's can be highlighted. For example, `M-x highlight-regexp diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index 5da5d729e6..c5fb972a7a 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -853,11 +853,11 @@ changes are made, so \\[highlight-changes-next-change] and (if (buffer-modified-p buf-a) (if (y-or-n-p (format "OK to save %s? " file-a)) (save-buffer buf-a) - (error "Buffer must be saved before comparing with a file."))) + (error "Buffer must be saved before comparing with a file"))) (if (and existing-buf (buffer-modified-p buf-b)) (if (y-or-n-p (format "OK to save %s? " file-b)) (save-buffer buf-b) - (error "Cannot compare with a file in an unsaved buffer."))) + (error "Cannot compare with a file in an unsaved buffer"))) (highlight-changes-mode 'active) (if existing-buf (with-current-buffer buf-b (highlight-changes-mode 'active))) diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index 830f648032..11aa65205e 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -1,4 +1,4 @@ -;;; hippie-exp.el --- expand text trying various ways to find its expansion. +;;; hippie-exp.el --- expand text trying various ways to find its expansion ;; Copyright (C) 1992 Free Software Foundation, Inc. diff --git a/lisp/info-look.el b/lisp/info-look.el index d790c3cf17..eccf7dcd6c 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -1,4 +1,4 @@ -;;; info-look.el --- major-mode-sensitive Info index lookup facility. +;;; info-look.el --- major-mode-sensitive Info index lookup facility ;; An older version of this was known as libc.el. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el index bd49321dd5..6f45540b29 100644 --- a/lisp/international/isearch-x.el +++ b/lisp/international/isearch-x.el @@ -25,6 +25,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el index 44821419a3..7374c7f5d4 100644 --- a/lisp/international/iso-cvt.el +++ b/lisp/international/iso-cvt.el @@ -1,4 +1,4 @@ -;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- +;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- ;; This file was formerly called gm-lingo.el. ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc. diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 43a051f9f7..6f8a30b8f0 100644 --- a/lisp/international/ogonek.el +++ b/lisp/international/ogonek.el @@ -318,7 +318,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix." (format "%s (default %s): " prompt (char-to-string (eval default-prefix-var)))))) (if (> (length prefix-string) 1) - (error "! Only one character expected.") + (error "! Only one character expected") ;; set the default prefix character to the one just read (set default-prefix-var (if (string= prefix-string "") @@ -333,7 +333,7 @@ Before returning a result test whether the string ENCODING is in the list `ogonek-name-encoding-alist'" (let ((code-list (assoc encoding ogonek-name-encoding-alist))) (if (null code-list) - (error "! Name `%s' not known in `ogonek-name-encoding-alist'." + (error "! Name `%s' not known in `ogonek-name-encoding-alist'" encoding) (cdr code-list)))) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 088fb84e8e..6a26b344bf 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1,4 +1,4 @@ -;;; quail.el --- Provides simple input method for multilingual text +;;; quail.el --- provides simple input method for multilingual text ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 1bb0c52d3d..85f6040956 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -1,4 +1,4 @@ -;;; utf-8.el --- Limited UTF-8 decoding/encoding support +;;; utf-8.el --- limited UTF-8 decoding/encoding support ;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -375,3 +375,5 @@ lower-casing commands won't work with them." (valid-codes (0 . 255)))) (define-coding-system-alias 'utf-8 'mule-utf-8) + +;;; utf-8.el ends here diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index d406189f68..cf97a44364 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -1,4 +1,4 @@ -;;; jit-lock.el --- just-in-time fontification. +;;; jit-lock.el --- just-in-time fontification ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. @@ -451,4 +451,4 @@ will take place when text is fontified stealthily." (provide 'jit-lock) -;; jit-lock.el ends here +;;; jit-lock.el ends here diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index be15f2d5b3..f77ac2d421 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el @@ -1,4 +1,4 @@ -;;; devan-util.el --- Support for Devanagari Script Composition +;;; devan-util.el --- support for Devanagari Script Composition ;; Copyright (C) 1996, 2001 Free Software Foundation, Inc. @@ -1281,8 +1281,8 @@ If there's no corresponding narrow character, return CHAR as is." ;; (provide 'devan-util) -;;; devan-util.el end here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; devan-util.el ends here diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el index 1be6e27003..e0f3e783b0 100644 --- a/lisp/language/devanagari.el +++ b/lisp/language/devanagari.el @@ -1,4 +1,4 @@ -;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; -*- +;;; devanagari.el --- support for Devanagari -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1996 Free Software Foundation, Inc. @@ -28,6 +28,7 @@ ;; History: ;; 1996.10.18 written by KAWABATA, Taichi ;; 1997.1.20 fixed some bugs. + ;;; Code: (make-coding-system diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 5dde78ec83..68bfc7b1c9 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -24,6 +24,8 @@ ;; Author: TAKAHASHI Naoto +;;; Commentary: + ;;; Code: ;; Information for exiting Ethiopic environment. @@ -1296,7 +1298,7 @@ The markers \"\" and \"\" themselves are not deleted." composite t)) ;; neither gemination nor fidel ((not (eq (char-charset ch) 'ethiopic)) - (error "Not a valid character."))) + (error "Not a valid character"))) ;; set frequently referred character features (setq ch (ethio-char-to-ethiocode ch) @@ -1306,7 +1308,7 @@ The markers \"\" and \"\" themselves are not deleted." (if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000 (and (>= ch 448) (<= ch 452)) ;; \~X - \~A (>= ch 458)) ;; private punctuations - (error "Not a valid character.")) + (error "Not a valid character")) (setq newch diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el index 15ad961167..27c7e77f4b 100644 --- a/lisp/language/ethiopic.el +++ b/lisp/language/ethiopic.el @@ -1,4 +1,4 @@ -;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*- +;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +24,8 @@ ;; Author: TAKAHASHI Naoto +;;; Commentary: + ;;; Code: (define-ccl-program ccl-encode-ethio-font diff --git a/lisp/language/european.el b/lisp/language/european.el index 9e9e10ae40..ad7353bae7 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -1,4 +1,4 @@ -;;; european.el --- European languages -*- coding: iso-2022-7bit; -*- +;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 190e3769f3..617c20123b 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el @@ -1,4 +1,4 @@ -;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*- +;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Free Software Foundation, Inc. diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el index 795876547d..2ca780dd1b 100644 --- a/lisp/language/romanian.el +++ b/lisp/language/romanian.el @@ -1,4 +1,4 @@ -;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*- +;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; -*- ;; Copyright (C) 1998 Free Software Foundation. @@ -43,5 +43,4 @@ (provide 'romanian) -;; romanian.el ends here - +;;; romanian.el ends here diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index af10e94d34..54938ffe63 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -26,11 +26,13 @@ ;; Created: Feb. 17. 1997 -;; History: +;;; History: ;; 1997.03.13 Modification in treatment of text properties; ;; Support for some special signs and punctuations. ;; 1999.10.25 Modification for a new composition way by K.Handa. +;;; Commentary: + ;;; Code: ;;;###autoload @@ -350,4 +352,4 @@ See also docstring of the function tibetan-compose-region." (provide 'tibet-util) -;;; language/tibet-util.el ends here. +;;; tibet-util.el ends here diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index a682488770..4f9068c026 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -1,4 +1,4 @@ -;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*- +;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -29,6 +29,8 @@ ;; History: ;; 1997.03.13 Modification for special signs and punctuations. +;;; Commentary: + ;;; Code: ;;; Tibetan Character set. @@ -625,4 +627,4 @@ This also matches some punctuation characters which need conversion.") (provide 'tibetan) -;;; language/tibetan.el ends here +;;; tibetan.el ends here diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 477a966a1e..2d21c9c45c 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1,6 +1,8 @@ ;;; feedmail.el --- assist other email packages to massage outgoing messages ;;; This file is in the public domain. +;; This file is part of GNU Emacs. + ;; Author: Bill Carpenter , ;; Version: 8 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft @@ -2667,4 +2669,5 @@ been weeded out." (point-marker)))) (provide 'feedmail) + ;;; feedmail.el ends here diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index 3a86a39b14..a10751b10c 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -1,4 +1,4 @@ -;;; footnote.el --- Footnote support for message mode -*- coding: iso-latin-1;-*- +;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- ;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc. @@ -670,7 +670,7 @@ specified, jump to the text of that footnote." (goto-char (point-max)) (re-search-backward (concat "^" footnote-section-tag-regexp)) (forward-line 1)) - (error "I don't see a footnote here."))))) + (error "I don't see a footnote here"))))) (defun Footnote-back-to-message (&optional arg) "Move cursor back to footnote referent. diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index 3cecbba0a5..8d48eeda51 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el @@ -1,4 +1,4 @@ -;;; mail-hist.el --- Headers and message body history for outgoing mail. +;;; mail-hist.el --- headers and message body history for outgoing mail ;; Copyright (C) 1994 Free Software Foundation, Inc. @@ -245,7 +245,7 @@ This function normally would be called when the message is sent." (ding) (message "No history for \"%s\"." header)) (if (ring-empty-p ring) - (error "\"%s\" ring is empty." header) + (error "\"%s\" ring is empty" header) (and repeat (delete-region (car mail-hist-last-bounds) (cdr mail-hist-last-bounds))) @@ -293,4 +293,4 @@ received mail." (provide 'mail-hist) -;; mail-hist.el ends here +;;; mail-hist.el ends here diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el index f378411ce4..163b2ecd5e 100644 --- a/lisp/mail/mailheader.el +++ b/lisp/mail/mailheader.el @@ -1,4 +1,4 @@ -;;; mailheader.el --- Mail header parsing, merging, formatting +;;; mailheader.el --- mail header parsing, merging, formatting ;; Copyright (C) 1996 by Free Software Foundation, Inc. diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index 5ddd4e3f9a..2075ca8b7a 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -1,4 +1,4 @@ -;;; mspools.el --- show mail spools waiting to be read. +;;; mspools.el --- show mail spools waiting to be read ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -403,5 +403,5 @@ nil." nil))) (provide 'mspools) -;;; mspools.el ends here +;;; mspools.el ends here diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 6b66f2843b..dd5ce02946 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -32,7 +32,9 @@ ;; |Mail and news reply citation package ;; |1993/09/22 18:58:46|3.1| -;; Code: +;;; Commentary: + +;;; Code: (require 'regi) @@ -2096,7 +2098,7 @@ cited." (looking-at "^[ \t]*$") (consp arg)) (insert (sc-mail-field "sc-citation")) - (error "Line is already cited.")))) + (error "Line is already cited")))) (defun sc-version (arg) "Echo the current version of Supercite in the minibuffer. diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index eed64d6c85..c77f1c63f5 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -1,4 +1,4 @@ -;;; mouse-sel.el --- Multi-click selection support for Emacs 19 +;;; mouse-sel.el --- multi-click selection support for Emacs 19 ;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. @@ -737,4 +737,4 @@ If `mouse-yank-at-point' is non-nil, insert at point instead." (provide 'mouse-sel) -;; mouse-sel.el ends here. +;;; mouse-sel.el ends here diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 3b516c2669..cebdb2fdcd 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -1,4 +1,4 @@ -;;; browse-url.el --- Pass a URL to a WWW browser +;;; browse-url.el --- pass a URL to a WWW browser ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 ;; Free Software Foundation, Inc. @@ -1012,13 +1012,13 @@ used instead of `browse-url-new-window-flag'." (switch-to-buffer buf))) (if (eq (following-char) ?_) (cond ((eq browse-url-lynx-input-field 'warn) - (error "Please move out of the input field first.")) + (error "Please move out of the input field first")) ((eq browse-url-lynx-input-field 'avoid) (while (and (eq (following-char) ?_) (> n 0)) (term-send-down) ; down arrow (sit-for browse-url-lynx-input-delay)) (if (eq (following-char) ?_) - (error "Cannot move out of the input field, sorry."))))) + (error "Cannot move out of the input field, sorry"))))) (term-send-string proc (concat "g" ; goto "\C-u" ; kill default url url diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index 579123a5dd..f0e091ccc7 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -1,11 +1,11 @@ -;;; net-utils.el --- Network functions +;;; net-utils.el --- network functions ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. ;; Author: Peter Breton ;; Created: Sun Mar 16 1997 ;; Keywords: network communications -;; Time-stamp: <2000-10-04 22:39:05 pbreton> +;; Time-stamp: <2001-07-15 00:34:52 pavel> ;; This file is part of GNU Emacs. diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index 4076c5ae7f..0751aec428 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -1,4 +1,4 @@ -;;; quickurl.el --- Insert an URL based on text at point in buffer. +;;; quickurl.el --- insert an URL based on text at point in buffer ;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc. @@ -7,7 +7,7 @@ ;; Created: 1999-05-28 ;; Keywords: hypermedia -;; 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 diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el index 8753cceda2..227eccd475 100644 --- a/lisp/net/snmp-mode.el +++ b/lisp/net/snmp-mode.el @@ -1,4 +1,4 @@ -;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode. +;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode ;; Copyright (C) 1995,1998 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;; INTRODUCTION ;; ------------ ;; This package provides a major mode for editing SNMP MIBs. It @@ -82,6 +84,8 @@ ;; Enabling global-font-lock-mode is also sufficient. ;; +;;; Code: + ;;;---------------------------------------------------------------------------- ;; ;; Customize these: @@ -713,4 +717,4 @@ controls whether case is significant." (provide 'snmp-mode) -;; snmp-mode.el ends here +;;; snmp-mode.el ends here diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el index c55a12c45e..53e97ae8f1 100644 --- a/lisp/net/webjump.el +++ b/lisp/net/webjump.el @@ -287,14 +287,14 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ((symbolp expr) (if (fboundp expr) (funcall expr name) - (error "WebJump URL function \"%s\" undefined." + (error "WebJump URL function \"%s\" undefined" expr))) - (t (error "WebJump URL expression for \"%s\" invalid." + (t (error "WebJump URL expression for \"%s\" invalid" name))))))) (defun webjump-builtin (expr name) (if (< (length expr) 1) - (error "WebJump URL builtin for \"%s\" empty." name)) + (error "WebJump URL builtin for \"%s\" empty" name)) (let ((builtin (aref expr 0))) (cond ((eq builtin 'mirrors) @@ -307,12 +307,12 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ((eq builtin 'simple-query) (webjump-builtin-check-args expr name 3) (webjump-do-simple-query name (aref expr 1) (aref expr 2) (aref expr 3))) - (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid." + (t (error "WebJump URL builtin \"%s\" for \"%s\" invalid" builtin name))))) (defun webjump-builtin-check-args (expr name count) (or (= (length expr) (1+ count)) - (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args." + (error "WebJump URL builtin \"%s\" for \"%s\" needs %d args" (aref expr 0) name count))) (defun webjump-choose-mirror (name urls) @@ -400,4 +400,4 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (provide 'webjump) -;; webjump.el ends here +;;; webjump.el ends here diff --git a/lisp/net/zone-mode.el b/lisp/net/zone-mode.el index 2a534d8a6d..d1528aa179 100644 --- a/lisp/net/zone-mode.el +++ b/lisp/net/zone-mode.el @@ -1,4 +1,4 @@ -;;; zone-mode.el -- major mode for editing DNS zone files. +;;; zone-mode.el --- major mode for editing DNS zone files ;; Copyright (C) 1998 Free Software Foundation, Inc. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; ;;; See the comments in ``define-derived-mode zone-mode'' ;;; (the last function in this file) @@ -52,7 +54,7 @@ ((not (string= old-date cur-date)) "00") ;; reset sequeence number ((>= old-seq-num 99) - (error "Serial number's sequenece cannot increment beyond 99.")) + (error "Serial number's sequenece cannot increment beyond 99")) (t (format "%02d" (1+ old-seq-num))))) (old-serial (concat old-date old-seq)) diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 0ef1cbd05c..521471a1da 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -1,4 +1,4 @@ -;;; pcomplete --- programmable completion +;;; pcomplete.el --- programmable completion ;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 8d2f3c6f96..1047ddf600 100644 --- a/lisp/progmodes/antlr-mode.el +++ b/lisp/progmodes/antlr-mode.el @@ -1,4 +1,4 @@ -;;; antlr-mode.el --- Major mode for ANTLR grammar files +;;; antlr-mode.el --- major mode for ANTLR grammar files ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. ;; @@ -1532,8 +1532,6 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'." indent-tabs-mode (cadddr elem) alist nil)))))) -;;; antlr-mode.el ends here - ; LocalWords: antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee ; LocalWords: Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev ; LocalWords: ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK @@ -1541,3 +1539,5 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'." ; LocalWords: VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen ; LocalWords: VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens ; LocalWords: sclass evocab ivocab importVocab deps glibs supers sep dep lang + +;;; antlr-mode.el ends here diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el index a90e9766d6..69bf7aab77 100644 --- a/lisp/progmodes/autoconf.el +++ b/lisp/progmodes/autoconf.el @@ -1,10 +1,10 @@ -;;; autoconf.el --- Mode for editing Autoconf configure.in files. +;;; autoconf.el --- mode for editing Autoconf configure.in files ;; Copyright (C) 2000 Free Software Foundation, Inc. ;; Author: Dave Love ;; Keywords: languages -;; $Revision: $ +;; $Revision: 1.1 $ ;; This file is part of GNU Emacs. diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el index 96aef6ad9d..a701da6e80 100644 --- a/lisp/progmodes/cmacexp.el +++ b/lisp/progmodes/cmacexp.el @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;; USAGE ============================================================= ;; In C mode C-C C-e is bound to c-macro-expand. The result of the @@ -84,6 +86,7 @@ ;; If the start point of the region is inside a macro definition the ;; macro expansion is often inaccurate. +;;; Code: (require 'cc-mode) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 395d3011c4..42377f5beb 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1001,7 +1001,7 @@ the faces: please specify bold, italic, underline, shadow and box.) (defmacro cperl-ps-extend-face-list (arg) `(ps-extend-face-list ,arg)) (defmacro cperl-ps-extend-face-list (arg) - `(error "This version of Emacs has no `ps-extend-face-list'."))) + `(error "This version of Emacs has no `ps-extend-face-list'"))) ;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs, ;; macros instead of defsubsts don't work on Emacs, so we do the ;; expansion manually. Any other suggestions? diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el index 590795a554..53105b43b2 100644 --- a/lisp/progmodes/cpp.el +++ b/lisp/progmodes/cpp.el @@ -1,4 +1,4 @@ -;;; cpp.el --- Highlight or hide text according to cpp conditionals. +;;; cpp.el --- highlight or hide text according to cpp conditionals ;; Copyright (C) 1994, 1995 Free Software Foundation diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el index bb6ac18355..b251487c9d 100644 --- a/lisp/progmodes/cwarn.el +++ b/lisp/progmodes/cwarn.el @@ -1,4 +1,4 @@ -;;; cwarn.el --- Highlight suspicious C and C++ constructions. +;;; cwarn.el --- highlight suspicious C and C++ constructions ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el index c3e9a9e264..8af7d07e2a 100644 --- a/lisp/progmodes/delphi.el +++ b/lisp/progmodes/delphi.el @@ -1,4 +1,4 @@ -;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs +;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc. @@ -65,11 +65,15 @@ (provide 'delphi) (defconst delphi-version - (let ((revision "$Revision: 3.4 $")) + (let ((revision "$Revision: 3.5 $")) (string-match ": \\([^ ]+\\)" revision) (match-string 1 revision)) "Version of this delphi mode.") ;;; $Log: delphi.el,v $ +;;; Revision 3.5 2001/01/26 20:54:03 fx +;;; (delphi-comment-face, delphi-string-face) +;;; (delphi-keyword-face, delphi-other-face): Fix :type. +;;; ;;; Revision 3.4 2000/02/09 07:04:15 blaak ;;; Make resourcestring a declaration region, like const and var. ;;; @@ -2029,3 +2033,5 @@ no args, if that value is non-nil." (delphi-progress-done)))) (run-hooks 'delphi-mode-hook)) + +;;; delphi.el ends here diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el index 436d4421ec..1b748b3b9c 100644 --- a/lisp/progmodes/ebnf-bnf.el +++ b/lisp/progmodes/ebnf-bnf.el @@ -1,11 +1,11 @@ -;;; ebnf-bnf --- Parser for EBNF +;;; ebnf-bnf.el --- parser for EBNF ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2000/12/19 15:29:04 vinicius> +;; Time-stamp: <2001-07-15 01:02:12 pavel> ;; Version: 1.5 ;; This file is part of GNU Emacs. @@ -107,7 +107,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ebnf-otz) @@ -132,7 +132,7 @@ (goto-char start) (setq token (ebnf-bnf-lex)) (and (eq token 'end-of-input) - (error "Invalid EBNF file format.")) + (error "Invalid EBNF file format")) (while (not (eq token 'end-of-input)) (ebnf-message-float "Parsing...%s%%" @@ -154,12 +154,12 @@ body) (setq ebnf-action nil) (or (eq token 'non-terminal) - (error "Invalid header production.")) + (error "Invalid header production")) (or (eq (ebnf-bnf-lex) 'equal) - (error "Invalid production: missing `='.")) + (error "Invalid production: missing `='")) (setq body (ebnf-body)) (or (eq (car body) 'period) - (error "Invalid production: missing `.'.")) + (error "Invalid production: missing `.'")) (setq body (cdr body)) (ebnf-eps-add-production header) (cons (ebnf-bnf-lex) @@ -217,7 +217,7 @@ (let ((kind (ebnf-node-kind node))) (cond ((eq kind 'ebnf-generate-non-terminal) - (error "Exception sequence should not contain a non-terminal.")) + (error "Exception sequence should not contain a non-terminal")) ((eq kind 'ebnf-generate-repeat) (ebnf-no-non-terminal (ebnf-node-separator node))) ((memq kind '(ebnf-generate-optional ebnf-generate-except)) @@ -240,7 +240,7 @@ (ebnf-term token) (let ((times ebnf-bnf-lex)) (or (eq (ebnf-bnf-lex) 'repeat) - (error "Missing `*'.")) + (error "Missing `*'")) (ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex)))))) @@ -314,13 +314,13 @@ ((eq token 'begin-group) (let ((body (ebnf-body))) (or (eq (car body) 'end-group) - (error "Missing `)'.")) + (error "Missing `)'")) (cdr body))) ;; optional ((eq token 'begin-optional) (let ((body (ebnf-body))) (or (eq (car body) 'end-optional) - (error "Missing `]'.")) + (error "Missing `]'")) (ebnf-token-optional (cdr body)))) ;; list ((eq token 'begin-list) @@ -341,7 +341,7 @@ ((eq token 'end-zero-or-more) (ebnf-make-zero-or-more list-part sep-part)) (t - (error "Missing `}+', `}*' or `}'.")) + (error "Missing `}+', `}*' or `}'")) ))) ;; no term (t @@ -441,7 +441,7 @@ See documentation for variable `ebnf-bnf-lex'." 'end-of-input) ;; error ((eq token 'error) - (error "Illegal character.")) + (error "Illegal character")) ;; default ((eq token 'default) (forward-char) @@ -450,7 +450,7 @@ See documentation for variable `ebnf-bnf-lex'." (prog1 (ebnf-bnf-lex) (setq ebnf-default-p t)) - (error "Illegal `default' element."))) + (error "Illegal `default' element"))) ;; integer ((eq token 'integer) (setq ebnf-bnf-lex (ebnf-buffer-substring "0-9")) @@ -533,7 +533,7 @@ See documentation for variable `ebnf-bnf-lex'." (forward-char) t) (t - (error "Illegal character.")) + (error "Illegal character")) )) diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el index c5716f4a6e..024063f19e 100644 --- a/lisp/progmodes/ebnf-iso.el +++ b/lisp/progmodes/ebnf-iso.el @@ -1,11 +1,11 @@ -;;; ebnf-iso --- Parser for ISO EBNF +;;; ebnf-iso.el --- parser for ISO EBNF ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2000/12/19 15:25:16 vinicius> +;; Time-stamp: <2001-07-15 01:03:20 pavel> ;; Version: 1.5 ;; This file is part of GNU Emacs. @@ -117,7 +117,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ebnf-otz) @@ -145,7 +145,7 @@ (goto-char start) (setq token (ebnf-iso-lex)) (and (eq token 'end-of-input) - (error "Invalid ISO EBNF file format.")) + (error "Invalid ISO EBNF file format")) (while (not (eq token 'end-of-input)) (ebnf-message-float "Parsing...%s%%" @@ -167,12 +167,12 @@ body) (setq ebnf-action nil) (or (eq token 'non-terminal) - (error "Invalid meta identifier syntax rule.")) + (error "Invalid meta identifier syntax rule")) (or (eq (ebnf-iso-lex) 'equal) - (error "Invalid syntax rule: missing `='.")) + (error "Invalid syntax rule: missing `='")) (setq body (ebnf-iso-definition-list)) (or (eq (car body) 'period) - (error "Invalid syntax rule: missing `;' or `.'.")) + (error "Invalid syntax rule: missing `;' or `.'")) (setq body (cdr body)) (ebnf-eps-add-production header) (cons (ebnf-iso-lex) @@ -233,7 +233,7 @@ (if (eq token 'integer) (let ((times ebnf-iso-lex)) (or (eq (ebnf-iso-lex) 'repeat) - (error "Missing `*'.")) + (error "Missing `*'")) (ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex)))) (ebnf-iso-primary token))) @@ -273,20 +273,20 @@ ((eq token 'begin-group) (let ((body (ebnf-iso-definition-list))) (or (eq (car body) 'end-group) - (error "Missing `)'.")) + (error "Missing `)'")) (cdr body))) ;; optional sequence ((eq token 'begin-optional) (let ((body (ebnf-iso-definition-list))) (or (eq (car body) 'end-optional) - (error "Missing `]' or `/)'.")) + (error "Missing `]' or `/)'")) (ebnf-token-optional (cdr body)))) ;; repeated sequence ((eq token 'begin-zero-or-more) (let* ((body (ebnf-iso-definition-list)) (repeat (cdr body))) (or (eq (car body) 'end-zero-or-more) - (error "Missing `}' or `:)'.")) + (error "Missing `}' or `:)'")) (ebnf-make-zero-or-more repeat))) ;; empty (t @@ -426,7 +426,7 @@ See documentation for variable `ebnf-iso-lex'." 'end-of-input) ;; error ((eq token 'error) - (error "Illegal character.")) + (error "Illegal character")) ;; integer ((eq token 'integer) (setq ebnf-iso-lex (ebnf-buffer-substring "0-9")) @@ -451,7 +451,7 @@ See documentation for variable `ebnf-iso-lex'." (ebnf-trim-right (ebnf-buffer-substring " 0-9A-Za-z\240-\377")))) (and ebnf-no-meta-identifier - (error "Exception sequence should not contain a meta identifier.")) + (error "Exception sequence should not contain a meta identifier")) 'non-terminal) ;; begin optional, begin list or begin group ((eq token 'left-parenthesis) @@ -511,7 +511,7 @@ See documentation for variable `ebnf-iso-lex'." (while (> pair 0) (skip-chars-forward ebnf-iso-comment-chars ebnf-limit) (cond ((>= (point) ebnf-limit) - (error "Missing end of comment: `*)'.")) + (error "Missing end of comment: `*)'")) ((= (following-char) ?*) (skip-chars-forward "*" ebnf-limit) (when (= (following-char) ?\)) @@ -525,7 +525,7 @@ See documentation for variable `ebnf-iso-lex'." (forward-char) (setq pair (1+ pair)))) (t - (error "Illegal character.")) + (error "Illegal character")) )))) diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el index 224ce9f643..0969f873bb 100644 --- a/lisp/progmodes/ebnf-otz.el +++ b/lisp/progmodes/ebnf-otz.el @@ -1,11 +1,11 @@ -;;; ebnf-otz --- Syntatic chart OpTimiZer +;;; ebnf-otz.el --- syntatic chart OpTimiZer ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2000/12/19 14:54:41 vinicius> +;; Time-stamp: <2001-07-15 01:03:33 pavel> ;; Version: 1.0 ;; This file is part of GNU Emacs. @@ -39,7 +39,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ebnf2ps) diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el index a0a7f7048b..317a193f39 100644 --- a/lisp/progmodes/ebnf-yac.el +++ b/lisp/progmodes/ebnf-yac.el @@ -1,11 +1,11 @@ -;;; ebnf-yac --- Parser for Yacc/Bison +;;; ebnf-yac.el --- parser for Yacc/Bison ;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2000/12/19 15:47:23 vinicius> +;; Time-stamp: <2001-07-15 01:04:02 pavel> ;; Version: 1.1 ;; This file is part of GNU Emacs. @@ -70,7 +70,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ebnf-otz) @@ -109,9 +109,9 @@ (goto-char start) (setq token (ebnf-yac-lex)) (and (eq token 'end-of-input) - (error "Invalid Yacc/Bison file format.")) + (error "Invalid Yacc/Bison file format")) (or (eq (ebnf-yac-definitions token) 'yac-separator) - (error "Missing `%%%%'.")) + (error "Missing `%%%%'")) (setq token (ebnf-yac-lex)) (while (not (memq token '(end-of-input yac-separator))) (ebnf-message-float @@ -140,9 +140,9 @@ (setq token (ebnf-yac-lex)) (when (eq token 'open-angle) (or (eq (ebnf-yac-lex) 'non-terminal) - (error "Missing type name.")) + (error "Missing type name")) (or (eq (ebnf-yac-lex) 'close-angle) - (error "Missing `>'.")) + (error "Missing `>'")) (setq token (ebnf-yac-lex))) (setq token (ebnf-yac-name-list token) ebnf-yac-token-list (nconc (cdr token) @@ -163,12 +163,12 @@ body) (setq ebnf-action nil) (or (eq token 'non-terminal) - (error "Invalid rule name.")) + (error "Invalid rule name")) (or (eq (ebnf-yac-lex) 'colon) - (error "Invalid rule: missing `:'.")) + (error "Invalid rule: missing `:'")) (setq body (ebnf-yac-alternative)) (or (eq (car body) 'period) - (error "Invalid rule: missing `;'.")) + (error "Invalid rule: missing `;'")) (setq body (cdr body)) (ebnf-eps-add-production header) (cons (ebnf-yac-lex) @@ -243,7 +243,7 @@ token (ebnf-yac-lex)) (eq token 'comma)) (or (eq (ebnf-yac-lex) 'non-terminal) - (error "Missing token name.")))) + (error "Missing token name")))) (cons token names))) @@ -332,7 +332,7 @@ See documentation for variable `ebnf-yac-lex'." 'end-of-input) ;; error ((eq token 'error) - (error "Illegal character.")) + (error "Illegal character")) ;; "string" ((eq token 'string) (setq ebnf-yac-lex (ebnf-get-string)) @@ -405,7 +405,7 @@ See documentation for variable `ebnf-yac-lex'." ((= (following-char) ?\') (ebnf-string " -&(-~" ?\' "character")) (t - (error "Illegal character.")) + (error "Illegal character")) ))) (ebnf-yac-skip-spaces)) @@ -448,7 +448,7 @@ See documentation for variable `ebnf-yac-lex'." (while not-end (skip-chars-forward ebnf-yac-comment-chars ebnf-limit) (cond ((>= (point) ebnf-limit) - (error "Missing end of comment: `*/'.")) + (error "Missing end of comment: `*/'")) ((= (following-char) ?*) (skip-chars-forward "*" ebnf-limit) (when (= (following-char) ?/) @@ -456,7 +456,7 @@ See documentation for variable `ebnf-yac-lex'." (forward-char) (setq not-end nil))) (t - (error "Illegal character.")) + (error "Illegal character")) )))) diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index 1eb251f49c..0ee3bda26f 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -1,11 +1,11 @@ -;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript +;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2001/02/02 15:23:39 vinicius> +;; Time-stamp: <2001-07-15 01:05:00 pavel> ;; Version: 3.5 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html @@ -1000,7 +1000,7 @@ Please send all bug fixes and enhancements to ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ps-print) @@ -4974,7 +4974,7 @@ end ;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit) (skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit) (if (or (eobp) (/= (following-char) eos-char)) - (error "Illegal %s: missing `%c'." kind eos-char) + (error "Illegal %s: missing `%c'" kind eos-char) (forward-char) (1- (point)))))) @@ -4992,7 +4992,7 @@ end (goto-char (+ (point) n 1)))) (if (= (preceding-char) ?\") (1- (point)) - (error "Missing `\"'."))) + (error "Missing `\"'"))) (defun ebnf-trim-right (str) @@ -5300,5 +5300,4 @@ end (provide 'ebnf2ps) - ;;; ebnf2ps.el ends here diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el index eecaab17e3..ce2b0b68cb 100644 --- a/lisp/progmodes/executable.el +++ b/lisp/progmodes/executable.el @@ -284,4 +284,4 @@ file modes." (provide 'executable) -;; executable.el ends here +;;; executable.el ends here diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 4618ab8ae8..f921e59782 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -813,7 +813,7 @@ See also `fortran-window-create-momentarily'." (other-window 1) (switch-to-buffer " fortran-window-extra" t) (select-window (previous-window)))) - (error (message "No room for Fortran window.") + (error (message "No room for Fortran window") 'error))) (defun fortran-window-create-momentarily (&optional arg) diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 3451610ce8..ec1729beca 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -1,10 +1,10 @@ -;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs. +;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs ;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Chris Chase ;; Maintainer: Carsten Dominik ;; Version: 4.7 -;; Date: $Date: 2000/12/11 12:44:44 $ +;; Date: $Date: 2000/12/19 11:13:34 $ ;; Keywords: processes ;; This file is part of GNU Emacs. diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el index 8ae95d772b..0247d037e6 100644 --- a/lisp/progmodes/idlw-toolbar.el +++ b/lisp/progmodes/idlw-toolbar.el @@ -1,9 +1,9 @@ -;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE +;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE ;; Copyright (c) 1999, 2000 Free Software Foundation ;; Author: Carsten Dominik ;; Version: 4.7 -;; Date: $Date: 2000/12/11 12:44:44 $ +;; Date: $Date: 2000/12/19 11:14:24 $ ;; Keywords: processes ;; This file is part of GNU Emacs. @@ -873,5 +873,3 @@ static char * file[] = { (provide 'idlwave-toolbar) ;;; idlw-toolbar.el ends here - - diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index f18189c948..03f78af3ac 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -4,10 +4,10 @@ ;; Author: Chris Chase ;; Maintainer: Carsten Dominik ;; Version: 4.7 -;; Date: $Date: 2000/12/11 12:44:44 $ +;; Date: $Date: 2000/12/19 11:12:40 $ ;; Keywords: languages -;; This file is part of the 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 @@ -4256,7 +4256,7 @@ will pop up." (file-name-directory idlwave-libinfo-file)) (not (string= "" (file-name-nondirectory idlwave-libinfo-file)))) - (error "`idlwave-libinfo-file' does not point to file in accessible directory.")) + (error "`idlwave-libinfo-file' does not point to file in accessible directory")) (cond ((and arg idlwave-path-alist @@ -5952,7 +5952,7 @@ The list is cashed in `idlwave-class-info' for faster access." (let* ((class (nth 2 (idlwave-current-routine)))) ;; Check if we are in a class routine (unless class - (error "Not in a method procedure or function.")) + (error "Not in a method procedure or function")) ;; Check if we need to update the "current" class (if (not (equal class idlwave-current-tags-class)) (idlwave-prepare-class-tag-completion class)) @@ -6200,7 +6200,7 @@ Works for system routines and keywords only." (if idlwave-help-is-loaded t ;; everything is OK. (let* ((dir (or (idlwave-help-directory) - (error "Online Help is not installed (idlwave-help-directory is unknown)."))) + (error "Online Help is not installed (idlwave-help-directory is unknown)"))) (lfile1 (expand-file-name "idlw-help.elc" dir)) (lfile2 (expand-file-name "idlw-help.el" dir)) (hfile (expand-file-name "idlw-help.txt" dir))) @@ -6260,7 +6260,7 @@ prefix arg, the class property is cleared out." (if (car module) (apply 'idlwave-display-calling-sequence (idlwave-fix-module-if-obj_new module)) - (error "Don't know which calling sequence to show."))))) + (error "Don't know which calling sequence to show"))))) (defun idlwave-resolve (&optional arg) "Call RESOLVE on the module name at point. @@ -6364,10 +6364,10 @@ use. With ARG force class query for object methods." ((null entry) (error "Nothing known about a module %s" name2)) ((eq (car source) 'system) - (error "Source code for system routine %s is not available." + (error "Source code for system routine %s is not available" name2)) ((equal (cdr source) "") - (error "Source code for routine %s is not available." + (error "Source code for routine %s is not available" name2)) ((memq (car source) '(buffer lib compiled)) (setq buf1 @@ -6663,7 +6663,7 @@ If we do not know about MODULE, just return KEYWORD literally." (error "No %s %s known %s" type name (if initial-class (concat "in class " initial-class) ""))) ((or (null name) (equal name "")) - (error "No function or procedure call at point.")) + (error "No function or procedure call at point")) ((null calling-seq) (error "Calling sequence of %s %s is not available" type name)) (t @@ -6945,7 +6945,7 @@ with this command." (not (idlwave-shell-is-running))) (error "Shell is not running")) ((null idlwave-compiled-routines) - (error "No compiled routines. Maybe you need to update with `C-c C-i'.")) + (error "No compiled routines. Maybe you need to update with `C-c C-i'")) (t (idlwave-list-load-path-shadows nil idlwave-compiled-routines "in the shell")))) @@ -7603,5 +7603,3 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode." (provide 'idlwave) ;;; idlwave.el ends here - - diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el index 78c32490e1..d16409092e 100644 --- a/lisp/progmodes/m4-mode.el +++ b/lisp/progmodes/m4-mode.el @@ -172,4 +172,4 @@ ;;; "m4_syscmd" "m4_sysval" "m4_traceoff" "m4_traceon" "m4_translit" ;;; "m4_m4_undefine" "m4_undivert")) -;;; m4.el ends here +;;; m4-mode.el ends here diff --git a/lisp/progmodes/mantemp.el b/lisp/progmodes/mantemp.el index 6c1ca3af27..9b8fa4a6ea 100644 --- a/lisp/progmodes/mantemp.el +++ b/lisp/progmodes/mantemp.el @@ -1,4 +1,4 @@ -;;; mantemp.el --- Create manual template instantiations from g++ 2.7.2 output. +;;; mantemp.el --- create manual template instantiations from g++ 2.7.2 output ;; Copyright (C) 1996 Free Software Foundation, Inc. diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el index fff1a39e7a..ec53cd1957 100644 --- a/lisp/progmodes/meta-mode.el +++ b/lisp/progmodes/meta-mode.el @@ -1,4 +1,4 @@ -;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources. +;;; meta-mode.el --- major mode for editing Metafont or MetaPost sources ;; Copyright (C) 1997 Free Software Foundation, Inc. diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el index dd26918e4e..1274c3eff3 100644 --- a/lisp/progmodes/octave-inf.el +++ b/lisp/progmodes/octave-inf.el @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'octave-mod) diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 3d011672d8..772374de6a 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -1,4 +1,4 @@ -;;; ps-mode.el --- PostScript mode for GNU Emacs. +;;; ps-mode.el --- PostScript mode for GNU Emacs ;; Copyright (C) 1999 Free Software Foundation, Inc. diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 78aed798e1..f4c8df155f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -1,4 +1,4 @@ -;;; scheme.el --- Scheme (and DSSSL) editing mode. +;;; scheme.el --- Scheme (and DSSSL) editing mode ;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc. diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index a7321711c9..1ed4983680 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -259,7 +259,7 @@ for SIMULA mode to function correctly." (match-beginning 2) (match-end 2))))) (if (not (and major minor)) - (error "Cannot figure out the major and minor version numbers.")) + (error "Cannot figure out the major and minor version numbers")) ;; calculate the major version (cond ((= major 18) (setq major 'v18)) ;Emacs 18 diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index 9e54726b81..f6e559ac8c 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -1,4 +1,4 @@ -;; tcl.el --- Tcl code editing commands for Emacs +;;; tcl.el --- Tcl code editing commands for Emacs ;; Copyright (C) 1994, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. @@ -6,7 +6,7 @@ ;; Author: Tom Tromey ;; Chris Lindblad ;; Keywords: languages tcl modes -;; Version: $Revision: 1.61 $ +;; Version: $Revision: 1.62 $ ;; This file is part of GNU Emacs. @@ -132,7 +132,7 @@ (require 'imenu)) ())) -(defconst tcl-version "$Revision: 1.61 $") +(defconst tcl-version "$Revision: 1.62 $") (defconst tcl-maintainer "Tom Tromey ") ;; diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 4e19eae6b9..66c3faf3cb 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el @@ -1,11 +1,11 @@ -;;; ps-bdf.el --- BDF font file handler for ps-print. +;;; ps-bdf.el --- BDF font file handler for ps-print ;; Copyright (C) 1998,99,2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: wp, BDF, font, PostScript -;; Maintainer: Kenichi Handa -;; Time-stamp: <2001/03/05 09:04:32 vinicius> +;; Maintainer: Kenichi Handa +;; Time-stamp: <2001-07-15 12:25:51 pavel> ;; This file is part of GNU Emacs. diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 43ddd180ec..e0c48db79f 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -1,13 +1,13 @@ -;;; ps-mule.el --- Provide multi-byte character facility to ps-print. +;;; ps-mule.el --- provide multi-byte character facility to ps-print ;; Copyright (C) 1998,99,00,2001 Free Software Foundation, Inc. -;; Author: Vinicius Jose Latorre -;; Author: Kenichi Handa (multi-byte characters) +;; Author: Vinicius Jose Latorre +;; Kenichi Handa (multi-byte characters) ;; Maintainer: Kenichi Handa (multi-byte characters) -;; Maintainer: Vinicius Jose Latorre -;; Keywords: wp, print, PostScript, multibyte, mule -;; Time-stamp: <2001/03/16 18:50:59 Handa> +;; Vinicius Jose Latorre +;; Keywords: wp, print, PostScript, multibyte, mule +;; Time-stamp: <2001/03/16 18:50:59 Handa> ;; This file is part of GNU Emacs. diff --git a/lisp/ps-print.el b/lisp/ps-print.el index dce8bda7e3..515bf13442 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3597,7 +3597,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." ((fboundp 'x-color-values) (ps-e-x-color-values x-color)) (t - (error "No available function to determine X color values.")))) + (error "No available function to determine X color values")))) (defalias 'ps-face-foreground-name 'face-foreground) (defalias 'ps-face-background-name 'face-background) @@ -3630,7 +3630,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." x-color (ps-x-make-color-instance color)))) (t - (error "No available function to determine X color values."))))) + (error "No available function to determine X color values"))))) (defun ps-face-foreground-name (face) (ps-xemacs-color-name (face-foreground face))) @@ -3676,7 +3676,7 @@ Note: No major/minor-mode is activated and no local variables are evaluated for (with-temp-buffer (insert-file-contents filename) (buffer-string)) - (error "ps-print PostScript prologue `%s' file was not found." + (error "ps-print PostScript prologue `%s' file was not found" filename)))) diff --git a/lisp/recentf.el b/lisp/recentf.el index b1a141eb7a..461edf069f 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -1,4 +1,4 @@ -;; recentf.el --- setup a menu of recently opened files +;;; recentf.el --- setup a menu of recently opened files ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. diff --git a/lisp/rect.el b/lisp/rect.el index 4d9f034d9b..3c71173d0f 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -1,4 +1,4 @@ -;;; rect.el --- rectangle functions for GNU Emacs. +;;; rect.el --- rectangle functions for GNU Emacs ;; Copyright (C) 1985, 1999, 2000, 2001 Free Software Foundation, Inc. diff --git a/lisp/regi.el b/lisp/regi.el index 81674d1998..c0cae5b577 100644 --- a/lisp/regi.el +++ b/lisp/regi.el @@ -26,6 +26,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: @@ -252,4 +254,5 @@ useful information: (provide 'regi) + ;;; regi.el ends here diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index 73f83a3fb5..1e046622e5 100644 --- a/lisp/rsz-mini.el +++ b/lisp/rsz-mini.el @@ -7,7 +7,7 @@ ;; Maintainer: Noah Friedman ;; Keywords: minibuffer, window, frame, display -;; $Id: rsz-mini.el,v 1.27 1999/09/13 20:49:05 gerd Exp $ +;; $Id: rsz-mini.el,v 1.28 2000/12/06 19:36:57 fx Exp $ ;; This file is part of GNU Emacs. @@ -81,4 +81,4 @@ (provide 'rsz-mini) -;; rsz-mini.el ends here +;;; rsz-mini.el ends here diff --git a/lisp/s-region.el b/lisp/s-region.el index 1e0dbadc48..f7cabf012b 100644 --- a/lisp/s-region.el +++ b/lisp/s-region.el @@ -1,4 +1,4 @@ -;;; s-region.el --- set region using shift key. +;;; s-region.el --- set region using shift key ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. @@ -121,4 +121,4 @@ to global keymap." (provide 's-region) -;; s-region.el ends here. +;;; s-region.el ends here diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 47c5efff8d..23e0848450 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -1,4 +1,4 @@ -;;; scroll-all.el -- scroll all buffers together minor mode +;;; scroll-all.el --- scroll all buffers together minor mode ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Commentary +;;; Commentary: ;; This mode allows multiple buffers to be 'locked' so that scrolling ;; up or down lines in any buffer causes all the buffers to mirror ;; the scrolling. It hooks into the post-command-hook to check for @@ -37,6 +37,8 @@ ;; Rick Macdonald ;; Anders Lindgren +;;; Code: + (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) ;;;###autoload @@ -132,4 +134,4 @@ use either M-x customize or the function `scroll-all-mode'." (provide 'scroll-all) -;; scroll-all.el ends here +;;; scroll-all.el ends here diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 4fc3243b0d..cc17568581 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -842,4 +842,3 @@ look for files that have been changed and need to be copied to other systems." (provide 'shadowfile) ;;; shadowfile.el ends here - diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 12f99e2801..122532362d 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -1,4 +1,4 @@ -;;; speedbar --- quick access to files and tags in a frame +;;; speedbar.el --- quick access to files and tags in a frame ;;; Copyright (C) 1996, 97, 98, 99, 2000, 01 Free Software Foundation @@ -4337,7 +4337,8 @@ If we have an image associated with it, use that image." (def-edebug-spec speedbar-with-writable def-body))) (provide 'speedbar) -;;; speedbar ends here ;; run load-time hooks (run-hooks 'speedbar-load-hook) + +;;; speedbar.el ends here diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el index d006450380..eae65d2fbd 100644 --- a/lisp/term/AT386.el +++ b/lisp/term/AT386.el @@ -33,7 +33,7 @@ ;; The terminal initialization should already have set up some keys (setq AT386-keypad-map (lookup-key function-key-map "\e[")) (if (not (keymapp AT386-keypad-map)) - (error "What? Your AT386 termcap/terminfo has no keycaps in it.")) + (error "What? Your AT386 termcap/terminfo has no keycaps in it")) ;; Equivalents of these are set up automatically by termcap/terminfo ;; (define-key AT386-keypad-map "A" [up]) diff --git a/lisp/term/internal.el b/lisp/term/internal.el index ba0199ae6f..aeda2b6c03 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; --------------------------------------------------------------------------- @@ -714,4 +716,3 @@ list. You can (and should) also run it whenever the value of (standard-display-8bit 127 255) ;;; internal.el ends here - diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el index e4da16f077..7a0df10ed1 100644 --- a/lisp/term/iris-ansi.el +++ b/lisp/term/iris-ansi.el @@ -1,4 +1,4 @@ -;; term/iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps +;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -21,6 +21,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (define-key function-key-map "\e[120q" [S-escape]) (define-key function-key-map "\e[121q" [C-escape]) @@ -318,4 +322,4 @@ (define-key function-key-map "\e[196q" [C-delete]) (define-key function-key-map "\e[197q" [M-delete]) -;;; term/iris-ansi.el ends here +;;; iris-ansi.el ends here diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 8a55ff2a13..2e1e43df81 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1,4 +1,4 @@ -;;; mac-win.el --- support for "Macintosh windows". +;;; mac-win.el --- support for "Macintosh windows" ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; --------------------------------------------------------------------------- @@ -966,4 +968,3 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") ;;; mac-win.el ends here - diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el index 200ba31553..23b507bef4 100644 --- a/lisp/term/tvi970.el +++ b/lisp/term/tvi970.el @@ -123,4 +123,4 @@ With a negative argument, select numeric keypad mode." (tvi970-set-keypad-mode 1) -;;; tv970 ends here +;;; tvi970.el ends here diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index d5670acb2d..a918e720b7 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -5493,4 +5493,4 @@ The event, EV, is the mouse event." ;; Don't hesitate to ask me any questions. -;; artist.el ends here +;;; artist.el ends here diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 0498820b4f..19d2b99bcf 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1,11 +1,11 @@ -;;; flyspell.el --- On-the-fly spell checker +;;; flyspell.el --- on-the-fly spell checker ;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. ;; Author: Manuel Serrano ;; Keywords: convenience -;;; 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 @@ -2096,4 +2096,5 @@ This function is meant to be added to 'flyspell-incorrect-hook'." (set (abbrev-symbol old table) new)) (provide 'flyspell) + ;;; flyspell.el ends here diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 9b9a5a632b..eebd32f2ec 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1,9 +1,9 @@ -;;; ispell.el --- Interface to International Ispell Versions 3.1 and 3.2 +;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. -;; Author: Ken Stevens -;; Maintainer: Ken Stevens +;; Author: Ken Stevens +;; Maintainer: Ken Stevens ;; Stevens Mod Date: Fri Aug 4 09:41:50 PDT 2000 ;; Stevens Revision: 3.4 ;; Status : Release with 3.1.12+ and 3.2.0+ ispell. @@ -1357,7 +1357,7 @@ quit spell session exited." (setq ispell-filter (cdr ispell-filter)) ; remove extra \n (if (and ispell-filter (listp ispell-filter)) (if (> (length ispell-filter) 1) - (error "Ispell and its process have different character maps.") + (error "Ispell and its process have different character maps") (setq poss (ispell-parse-output (car ispell-filter))))) (cond ((eq poss t) (or quietly diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index c5f50fe284..3b04d3787b 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -718,7 +718,7 @@ to the same line in the pages buffer." (progn (setq pages-buffer nil pages-pos-list nil) - (error "Buffer in which pages were found is deleted."))) + (error "Buffer in which pages were found is deleted"))) (beginning-of-line) (let* ((pages-number (1- (count-lines (point-min) (point)))) (pos (nth pages-number pages-pos-list)) @@ -806,5 +806,4 @@ to the same line in the pages buffer." ;;; Place `provide' at end of file. (provide 'page-ext) -;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;; - +;;; page-ext.el ends here diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 3a80efd981..9cb1091498 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -1,4 +1,4 @@ -;;; refer.el --- look up references in bibliography files. +;;; refer.el --- look up references in bibliography files ;; Copyright (C) 1992, 1996 Free Software Foundation, Inc. @@ -175,7 +175,7 @@ found on the last refer-find-entry or refer-find-next-entry." (if (looking-at "[ \t\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ \t\n,]+\\)\\s-*,") (buffer-substring (match-beginning 1) (match-end 1)) - (error "Cannot find key for entry in file %s." + (error "Cannot find key for entry in file %s" (car refer-saved-state)))))) (if (not (= (point) old-point)) (set-mark old-point)))) @@ -395,4 +395,3 @@ found on the last refer-find-entry or refer-find-next-entry." files)) ;;; refer.el ends here - diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 91caa8a985..01f49921b4 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -1,4 +1,4 @@ -;;; texinfmt.el --- format Texinfo files into Info files. +;;; texinfmt.el --- format Texinfo files into Info files ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, ;; 1994, 1995, 1996, 1997, 1998, 2000, 2001 @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;; Emacs lisp functions to convert Texinfo files to Info files. @@ -362,7 +364,7 @@ if large. You can use Info-split to do this manually." (save-excursion (goto-char (point-min)) (or (search-forward "@setfilename" nil t) - (error "Texinfo file needs an `@setfilename FILENAME' line.")) + (error "Texinfo file needs an `@setfilename FILENAME' line")) (setq texinfo-command-end (point)) (setq outfile (texinfo-parse-line-arg))) @@ -1105,10 +1107,10 @@ Leave point after argument." (goto-char texinfo-command-end) (skip-chars-forward " \t") (or (eolp) - (error "Extraneous text at end of command line.")) + (error "Extraneous text at end of command line")) (goto-char texinfo-command-start) (or (bolp) - (error "Extraneous text at beginning of command line.")) + (error "Extraneous text at beginning of command line")) (delete-region (point) (progn (forward-line 1) (point)))) (defun texinfo-discard-line-with-args () @@ -1670,7 +1672,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.") (texinfo-discard-line) (let ((next (1+ (car (cdr (car texinfo-stack)))))) (if (> next ?z) - (error "More than 26 items in @alphaenumerate; get a bigger alphabet.")) + (error "More than 26 items in @alphaenumerate; get a bigger alphabet")) (setcar (cdr (car texinfo-stack)) next) (insert "\b " next ". \n")) (forward-line -1)) @@ -1680,7 +1682,7 @@ Used by @refill indenting command to avoid indenting within lists, etc.") (texinfo-discard-line) (let ((next (1+ (car (cdr (car texinfo-stack)))))) (if (> next ?Z) - (error "More than 26 items in @capsenumerate; get a bigger alphabet.")) + (error "More than 26 items in @capsenumerate; get a bigger alphabet")) (setcar (cdr (car texinfo-stack)) next) (insert "\b " next ". \n")) (forward-line -1)) @@ -2045,7 +2047,7 @@ This command is executed when texinfmt sees @item inside @multitable." (while (search-forward "@tab" nil t) (setq tab-number (1+ tab-number))) (if (/= tab-number (length table-widths)) - (error "Wrong number of @tab's in a @multitable row."))) + (error "Wrong number of @tab's in a @multitable row"))) (goto-char (point-min)) ;; 2. Format each cell, and copy to a rectangle ;; buffer looks like this: A1 @tab A2 @tab A3 @@ -4131,7 +4133,7 @@ Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." (if (not noninteractive) - (error "batch-texinfo-format may only be used -batch.")) + (error "batch-texinfo-format may only be used -batch")) (let ((version-control t) (auto-save-default nil) (find-file-run-dired nil) @@ -4188,4 +4190,4 @@ For example, invoke ;;; Place `provide' at end of file. (provide 'texinfmt) -;;; texinfmt.el ends here. +;;; texinfmt.el ends here diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 3d470ffb78..04ae6fb5a8 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -25,6 +25,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (or (fboundp 'defgroup) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index c1df0a6fca..a474e4c716 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -538,7 +538,7 @@ Signal an error if not end of menu." (save-excursion (if (re-search-forward "^@end menu" nil t) (point) - (error "Menu does not have an end.")))) + (error "Menu does not have an end")))) (defun texinfo-delete-old-menu (beginning first) "Delete the old menu. Point must be in or after menu. @@ -626,7 +626,7 @@ complements the node name rather than repeats it as a title does." ;; "Double colon" entry line; menu entry and node name are the same, ((search-forward "::" (save-excursion (end-of-line) (point)) t) (if (looking-at "[ \t]*[^ \t\n]+") - (error "Descriptive text already exists.")) + (error "Descriptive text already exists")) (skip-chars-backward ": \t") (setq node-name (buffer-substring beginning (point)))) @@ -639,7 +639,7 @@ complements the node name rather than repeats it as a title does." (save-excursion (forward-line 1) (point)) t) (progn (if (looking-at "[ \t]*[^ \t\n]+") - (error "Descriptive text already exists.")) + (error "Descriptive text already exists")) (skip-chars-backward "., \t") (setq node-name (buffer-substring beginning (point)))) ;; Menu entry line ends in a return. @@ -648,9 +648,9 @@ complements the node name rather than repeats it as a title does." (skip-chars-backward " \t\n") (setq node-name (buffer-substring beginning (point))) (if (= 0 (length node-name)) - (error "No node name on this line.") + (error "No node name on this line") (insert ".")))) - (t (error "No node name on this line."))) + (t (error "No node name on this line"))) ;; Search for node that matches node name, and copy the section title. (if (re-search-forward (concat @@ -674,7 +674,7 @@ complements the node name rather than repeats it as a title does." (progn (end-of-line) (skip-chars-backward " \t") (point))))) - (error "Cannot find node to match node name in menu entry."))) + (error "Cannot find node to match node name in menu entry"))) ;; Return point to the menu and insert the title. (end-of-line) (delete-region @@ -990,7 +990,7 @@ and leave point on the line before the `@end menu' line." (goto-char end-of-menu) ;; handle multi-line description (if (not (re-search-backward "^\\* " nil t)) - (error "No entries in menu.")) + (error "No entries in menu")) (point)))) (while (< (point) last-entry) (if (re-search-forward "^\\* " end-of-menu t) @@ -1487,7 +1487,7 @@ Info `g*' command is inadequate." ;; update a single node (let ((auto-fill-function nil) (auto-fill-hook nil)) (if (not (re-search-backward "^@node" (point-min) t)) - (error "Node line not found before this position.")) + (error "Node line not found before this position")) (texinfo-sequentially-update-the-node) (message "Done...sequentially updated the node . You may save the buffer.")) diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el index a4c965a696..b231a28567 100644 --- a/lisp/textmodes/two-column.el +++ b/lisp/textmodes/two-column.el @@ -5,6 +5,8 @@ ;; Author: Daniel Pfeiffer ;; Adapted-By: ESR, Daniel Pfeiffer +;; This file is part of GNU Emacs. + ;; Esperanto: English: ;; ^Ci dosiero estas ero de GNU Emacs. This file is part of GNU Emacs. @@ -33,6 +35,7 @@ ;; Free Software Foundation, 59 Temple Place - Suite 330 ;; Boston, MA 02111-1307, USA. +;;; Commentary: ;;; Komentario: Commentary: @@ -284,7 +287,7 @@ minus this value." (kill-local-variable '2C-mode) (kill-local-variable 'mode-line-format) nil))) - (if req (error "You must first set two-column minor mode.")))) + (if req (error "You must first set two-column minor mode")))) @@ -385,7 +388,7 @@ accepting the proposed default buffer. (set-buffer b2) (and (2C-other) (not (eq b1 (2C-other))) - (error "Buffer already associated with buffer `%s'." + (error "Buffer already associated with buffer `%s'" (buffer-name (2C-other)))) (setq b1 (and (assq '2C-window-width (buffer-local-variables)) 2C-window-width))) diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index c5129f3b65..dba5062908 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -3,7 +3,9 @@ ;; Copyright 1989, 1993, 1994, 1995, 1997, 2000, 2001 ;;; Free Software Foundation, Inc. -;; Maintainer's Time-stamp: <2000-12-04 16:06:50 gildea> +;; This file is part of GNU Emacs. + +;; Maintainer's Time-stamp: <2001-07-15 12:35:58 pavel> ;; Maintainer: Stephen Gildea ;; Keywords: tools diff --git a/lisp/timezone.el b/lisp/timezone.el index 66e62b1af0..7e1fe70ee3 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar timezone-world-timezones diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el index 302f6f3d93..afba8aa17f 100644 --- a/lisp/toolbar/tool-bar.el +++ b/lisp/toolbar/tool-bar.el @@ -1,4 +1,4 @@ -;;; tool-bar.el --- Setting up the tool bar +;;; tool-bar.el --- setting up the tool bar ;; ;; Copyright (C) 2000 Free Software Foundation, Inc. ;; diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index 7eb3a7ca3f..e33a9c6fdd 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-rcs.el,v 1.18 2001/02/01 17:42:03 fx Exp $ +;; $Id: vc-rcs.el,v 1.19 2001/03/10 10:50:16 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -24,7 +24,9 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;;; Commentary: see vc.el +;;; Commentary: + +;; See vc.el ;;; Code: diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 2eb66b9f2e..49692cd072 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-sccs.el,v 1.10 2001/03/10 10:51:22 spiegel Exp $ +;; $Id: vc-sccs.el,v 1.11 2001/03/29 11:49:22 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -418,6 +418,3 @@ If NAME is nil or a version number string it's just passed through." (provide 'vc-sccs) ;;; vc-sccs.el ends here - - - diff --git a/lisp/view.el b/lisp/view.el index 32bd23b449..1b15bad443 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -1,4 +1,4 @@ -;;; view.el --- peruse file or buffer without editing. +;;; view.el --- peruse file or buffer without editing ;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000 ;; Free Software Foundation, Inc. diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 018390d4b4..71f1610646 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -1,4 +1,4 @@ -;;; w32-fns.el --- Lisp routines for Windows NT. +;;; w32-fns.el --- Lisp routines for Windows NT ;; Copyright (C) 1994 Free Software Foundation, Inc. diff --git a/lisp/which-func.el b/lisp/which-func.el index 1bcd0ea97c..8f58d396ba 100644 --- a/lisp/which-func.el +++ b/lisp/which-func.el @@ -1,4 +1,4 @@ -;;; which-func.el --- Print current function in mode line +;;; which-func.el --- print current function in mode line ;; Copyright (C) 1994, 1997, 1998, 2001 Free Software Foundation, Inc. @@ -219,4 +219,4 @@ If no function name is found, return nil." (provide 'which-func) -;; which-func.el ends here +;;; which-func.el ends here diff --git a/lisp/whitespace.el b/lisp/whitespace.el index c5b061dd58..184b199a53 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -1,11 +1,11 @@ -;;; whitespace.el --- Warn about and clean bogus whitespaces in the file. +;;; whitespace.el --- warn about and clean bogus whitespaces in the file ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. ;; Author: Rajesh Vaidheeswarran ;; Keywords: convenience -;; $Id: $ +;; $Id: whitespace.el,v 1.15 2001/03/22 21:31:51 rv Exp $ ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index fb573fe814..f93e1d9611 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el @@ -1,4 +1,4 @@ -;;; wid-browse.el --- Functions for browsing widgets. +;;; wid-browse.el --- functions for browsing widgets ;; ;; Copyright (C) 1997 Free Software Foundation, Inc. ;; @@ -122,7 +122,7 @@ if that value is non-nil." (get widget 'widget-type) (and (consp widget) (get (widget-type widget) 'widget-type))) - (error "Not a widget.")) + (error "Not a widget")) ;; Create the buffer. (if (symbolp widget) (let ((buffer (format "*Browse %s Widget*" widget))) @@ -299,4 +299,4 @@ With arg, turn widget mode on if and only if arg is positive." (provide 'wid-browse) -;; wid-browse.el ends here +;;; wid-browse.el ends here diff --git a/lisp/widget.el b/lisp/widget.el index 24198a9d6f..ffe8682b61 100644 --- a/lisp/widget.el +++ b/lisp/widget.el @@ -1,4 +1,4 @@ -;;; widget.el --- a library of user interface components. +;;; widget.el --- a library of user interface components ;; ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. ;; @@ -95,4 +95,4 @@ The third argument DOC is a documentation string for the widget." (provide 'widget) -;; widget.el ends here +;;; widget.el ends here diff --git a/lisp/windmove.el b/lisp/windmove.el index e171225409..e7c6b3daaa 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -1,4 +1,4 @@ -;;; windmove.el --- directional window-selection routines. +;;; windmove.el --- directional window-selection routines ;; ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. ;; diff --git a/lisp/woman.el b/lisp/woman.el index 21cd901f40..c837e5306d 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -2,12 +2,12 @@ ;; Copyright (C) 2000 Free Software Foundation, Inc. -;; Author: Francis J. Wright -;; Maintainer: Francis J. Wright -;; Keywords: help, man, UN*X, manual -;; Adapted-By: Eli Zaretskii -;; Version: see `woman-version' -;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/ +;; Author: Francis J. Wright +;; Maintainer: Francis J. Wright +;; Keywords: help, man, UN*X, manual +;; Adapted-By: Eli Zaretskii +;; Version: see `woman-version' +;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/ ;; This file is part of GNU Emacs. diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index ef32a802ad..863a3c9189 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -1,4 +1,4 @@ -;;; xt-mouse.el --- Support the mouse when emacs run in an xterm. +;;; xt-mouse.el --- support the mouse when emacs run in an xterm ;; Copyright (C) 1994, 2000 Free Software Foundation -- 2.20.1