Mercurial > emacs
changeset 38436:b174db545cfd
Some fixes to follow coding conventions.
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/ChangeLog Mon Jul 16 12:23:00 2001 +0000 @@ -1,3 +1,55 @@ +2001-07-16 Pavel Jan,Bm(Bk <Pavel@Janik.cz> + + * 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 <gerd@gnu.org> * simple.el (set-variable): Require 'cus-edit' instead of
--- a/lisp/align.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/align.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/apropos.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/apropos.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/autorevert.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/autorevert.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (if global-auto-revert-mode (global-auto-revert-mode 1)) -;; autorevert.el ends here. +;;; autorevert.el ends here
--- a/lisp/battery.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/battery.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/bookmark.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/bookmark.el Mon Jul 16 12:23:00 2001 +0000 @@ -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)
--- a/lisp/calculator.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/calculator.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <eli@barzilay.org> ;; 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.
--- a/lisp/calendar/todo-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/calendar/todo-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <os10000@seidel-space.de> ;; [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 ;;
--- a/lisp/complete.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/complete.el Mon Jul 16 12:23:00 2001 +0000 @@ -946,4 +946,4 @@ (provide 'complete) -;;; End. +;;; complete.el ends here
--- a/lisp/cus-dep.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/cus-dep.el Mon Jul 16 12:23:00 2001 +0000 @@ -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))
--- a/lisp/cus-edit.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/cus-edit.el Mon Jul 16 12:23:00 2001 +0000 @@ -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. ;;
--- a/lisp/cus-face.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/cus-face.el Mon Jul 16 12:23:00 2001 +0000 @@ -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. ;;
--- a/lisp/delim-col.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/delim-col.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> -;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> -;; 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 <vinicius@cpqd.com.br> +;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> +;; 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.
--- a/lisp/dos-fns.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/dos-fns.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'dos-fns) -; dos-fns.el ends here +;;; dos-fns.el ends here
--- a/lisp/double.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/double.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'double) ;;; double.el ends here -
--- a/lisp/edmacro.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/edmacro.el Mon Jul 16 12:23:00 2001 +0000 @@ -722,4 +722,3 @@ (provide 'edmacro) ;;; edmacro.el ends here -
--- a/lisp/elide-head.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/elide-head.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emacs-lisp/autoload.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emacs-lisp/checkdoc.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/emacs-lisp/cl-compat.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/cl-compat.el Mon Jul 16 12:23:00 2001 +0000 @@ -186,4 +186,3 @@ (provide 'cl-compat) ;;; cl-compat.el ends here -
--- a/lisp/emacs-lisp/cl-specs.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/cl-specs.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <daveg@synaptics.com>. ;; 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
--- a/lisp/emacs-lisp/copyright.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/copyright.el Mon Jul 16 12:23:00 2001 +0000 @@ -165,4 +165,4 @@ ;; coding: emacs-mule ;; End: -;; copyright.el ends here +;;; copyright.el ends here
--- a/lisp/emacs-lisp/cust-print.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/cust-print.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'cust-print) ;;; cust-print.el ends here -
--- a/lisp/emacs-lisp/easy-mmode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/easy-mmode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emacs-lisp/elint.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/elint.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'elint) ;;; elint.el ends here -
--- a/lisp/emacs-lisp/ewoc.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/ewoc.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/emacs-lisp/find-func.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/find-func.el Mon Jul 16 12:23:00 2001 +0000 @@ -43,7 +43,7 @@ ;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's ;; "fff.el"). -;;;; Code: +;;; Code: (require 'loadhist)
--- a/lisp/emacs-lisp/pp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/pp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'pp) ; so (require 'pp) works -;;; pp.el ends here. +;;; pp.el ends here
--- a/lisp/emacs-lisp/re-builder.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/re-builder.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emacs-lisp/shadow.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/shadow.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emacs-lisp/sregex.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emacs-lisp/sregex.el Mon Jul 16 12:23:00 2001 +0000 @@ -606,4 +606,3 @@ (provide 'sregex) ;;; sregex.el ends here -
--- a/lisp/emerge.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emerge.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <worley@world.std.com> ;; 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
--- a/lisp/emulation/edt-lk201.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/edt-lk201.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/emulation/edt-mapper.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/edt-mapper.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emulation/edt-pc.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/edt-pc.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/emulation/edt-vt100.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/edt-vt100.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/emulation/edt.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/edt.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emulation/pc-select.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/pc-select.el Mon Jul 16 12:23:00 2001 +0000 @@ -77,6 +77,8 @@ ;; other programs. ;; +;;; Code: + ;;;; Customization: (defgroup pc-select nil "Emulate pc bindings."
--- a/lisp/emulation/tpu-edt.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/tpu-edt.el Mon Jul 16 12:23:00 2001 +0000 @@ -1071,7 +1071,7 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ 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 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))
--- a/lisp/emulation/tpu-extras.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/tpu-extras.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emulation/tpu-mapper.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/tpu-mapper.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/emulation/vip.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/emulation/vip.el Mon Jul 16 12:23:00 2001 +0000 @@ -817,7 +817,7 @@ (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 @@ (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 @@ "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 @@ "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 @@ (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."
--- a/lisp/expand.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/expand.el Mon Jul 16 12:23:00 2001 +0000 @@ -1,4 +1,4 @@ -;;; expand.el --- make abbreviations more usable. +;;; expand.el --- make abbreviations more usable ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
--- a/lisp/finder.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/finder.el Mon Jul 16 12:23:00 2001 +0000 @@ -116,6 +116,7 @@ (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")
--- a/lisp/foldout.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/foldout.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'foldout) ;;; foldout.el ends here -
--- a/lisp/follow.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/follow.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/format.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/format.el Mon Jul 16 12:23:00 2001 +0000 @@ -462,7 +462,7 @@ (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))
--- a/lisp/forms-d2.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/forms-d2.el Mon Jul 16 12:23:00 2001 +0000 @@ -3,8 +3,14 @@ ;; Author: Johan Vromans <jvromans@squirrel.nl> ;; 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 @@ )) ;; That's all, folks! + +;;; forms-d2.el ends here
--- a/lisp/forms.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/forms.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ ;; 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 @@ (goto-char (point-max)) (insert ret))))) -;;; forms.el ends here. +;;; forms.el ends here
--- a/lisp/generic.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/generic.el Mon Jul 16 12:23:00 2001 +0000 @@ -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. ;;
--- a/lisp/hi-lock.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/hi-lock.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/hilit-chg.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/hilit-chg.el Mon Jul 16 12:23:00 2001 +0000 @@ -853,11 +853,11 @@ (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)))
--- a/lisp/hippie-exp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/hippie-exp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/info-look.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/info-look.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/international/isearch-x.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/international/isearch-x.el Mon Jul 16 12:23:00 2001 +0000 @@ -25,6 +25,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload
--- a/lisp/international/iso-cvt.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/international/iso-cvt.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/international/ogonek.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/international/ogonek.el Mon Jul 16 12:23:00 2001 +0000 @@ -318,7 +318,7 @@ (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 @@ 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))))
--- a/lisp/international/quail.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/international/quail.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/international/utf-8.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/international/utf-8.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (valid-codes (0 . 255)))) (define-coding-system-alias 'utf-8 'mule-utf-8) + +;;; utf-8.el ends here
--- a/lisp/jit-lock.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/jit-lock.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'jit-lock) -;; jit-lock.el ends here +;;; jit-lock.el ends here
--- a/lisp/language/devan-util.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/devan-util.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ ;; (provide 'devan-util) -;;; devan-util.el end here - ;; Local Variables: ;; coding: iso-2022-7bit ;; End: + +;;; devan-util.el ends here
--- a/lisp/language/devanagari.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/devanagari.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <kawabata@is.s.u-tokyo.ac.jp> ;; 1997.1.20 fixed some bugs. + ;;; Code: (make-coding-system
--- a/lisp/language/ethio-util.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/ethio-util.el Mon Jul 16 12:23:00 2001 +0000 @@ -24,6 +24,8 @@ ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> +;;; Commentary: + ;;; Code: ;; Information for exiting Ethiopic environment. @@ -1296,7 +1298,7 @@ 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 @@ (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
--- a/lisp/language/ethiopic.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/ethiopic.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <ntakahas@m17n.org> +;;; Commentary: + ;;; Code: (define-ccl-program ccl-encode-ethio-font
--- a/lisp/language/european.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/european.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/language/indian.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/indian.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/language/romanian.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/romanian.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/language/tibet-util.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/tibet-util.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'tibet-util) -;;; language/tibet-util.el ends here. +;;; tibet-util.el ends here
--- a/lisp/language/tibetan.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/language/tibetan.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'tibetan) -;;; language/tibetan.el ends here +;;; tibetan.el ends here
--- a/lisp/mail/feedmail.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/feedmail.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <bill@bubblegum.net>, <bill@carpenter.ORG> ;; Version: 8 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft @@ -2667,4 +2669,5 @@ (point-marker)))) (provide 'feedmail) + ;;; feedmail.el ends here
--- a/lisp/mail/footnote.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/footnote.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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.
--- a/lisp/mail/mail-hist.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/mail-hist.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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 @@ (provide 'mail-hist) -;; mail-hist.el ends here +;;; mail-hist.el ends here
--- a/lisp/mail/mailheader.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/mailheader.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/mail/mspools.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/mspools.el Mon Jul 16 12:23:00 2001 +0000 @@ -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))) (provide 'mspools) + ;;; mspools.el ends here -
--- a/lisp/mail/supercite.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mail/supercite.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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.
--- a/lisp/mouse-sel.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/mouse-sel.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'mouse-sel) -;; mouse-sel.el ends here. +;;; mouse-sel.el ends here
--- a/lisp/net/browse-url.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/browse-url.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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
--- a/lisp/net/net-utils.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/net-utils.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <pbreton@cs.umb.edu> ;; 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.
--- a/lisp/net/quickurl.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/quickurl.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/net/snmp-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/snmp-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'snmp-mode) -;; snmp-mode.el ends here +;;; snmp-mode.el ends here
--- a/lisp/net/webjump.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/webjump.el Mon Jul 16 12:23:00 2001 +0000 @@ -287,14 +287,14 @@ ((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 @@ ((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 @@ (provide 'webjump) -;; webjump.el ends here +;;; webjump.el ends here
--- a/lisp/net/zone-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/net/zone-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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))
--- a/lisp/pcomplete.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/pcomplete.el Mon Jul 16 12:23:00 2001 +0000 @@ -1,4 +1,4 @@ -;;; pcomplete --- programmable completion +;;; pcomplete.el --- programmable completion ;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation
--- a/lisp/progmodes/antlr-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/antlr-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ 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 @@ ; 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
--- a/lisp/progmodes/autoconf.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/autoconf.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <fx@gnu.org> ;; Keywords: languages -;; $Revision: $ +;; $Revision: 1.1 $ ;; This file is part of GNU Emacs.
--- a/lisp/progmodes/cmacexp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/cmacexp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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)
--- a/lisp/progmodes/cperl-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/cperl-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -1001,7 +1001,7 @@ (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?
--- a/lisp/progmodes/cpp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/cpp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/progmodes/cwarn.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/cwarn.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/progmodes/delphi.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/delphi.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (delphi-progress-done)))) (run-hooks 'delphi-mode-hook)) + +;;; delphi.el ends here
--- a/lisp/progmodes/ebnf-bnf.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf-bnf.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; 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 @@ 'end-of-input) ;; error ((eq token 'error) - (error "Illegal character.")) + (error "Illegal character")) ;; default ((eq token 'default) (forward-char) @@ -450,7 +450,7 @@ (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 @@ (forward-char) t) (t - (error "Illegal character.")) + (error "Illegal character")) ))
--- a/lisp/progmodes/ebnf-iso.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf-iso.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; 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 @@ '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 @@ (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 @@ (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 @@ (forward-char) (setq pair (1+ pair)))) (t - (error "Illegal character.")) + (error "Illegal character")) ))))
--- a/lisp/progmodes/ebnf-otz.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf-otz.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; 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)
--- a/lisp/progmodes/ebnf-yac.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf-yac.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; 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 @@ '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 @@ ((= (following-char) ?\') (ebnf-string " -&(-~" ?\' "character")) (t - (error "Illegal character.")) + (error "Illegal character")) ))) (ebnf-yac-skip-spaces)) @@ -448,7 +448,7 @@ (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 @@ (forward-char) (setq not-end nil))) (t - (error "Illegal character.")) + (error "Illegal character")) ))))
--- a/lisp/progmodes/ebnf2ps.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf2ps.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; 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 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ps-print) @@ -4974,7 +4974,7 @@ ;;(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 @@ (goto-char (+ (point) n 1)))) (if (= (preceding-char) ?\") (1- (point)) - (error "Missing `\"'."))) + (error "Missing `\"'"))) (defun ebnf-trim-right (str) @@ -5300,5 +5300,4 @@ (provide 'ebnf2ps) - ;;; ebnf2ps.el ends here
--- a/lisp/progmodes/executable.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/executable.el Mon Jul 16 12:23:00 2001 +0000 @@ -284,4 +284,4 @@ (provide 'executable) -;; executable.el ends here +;;; executable.el ends here
--- a/lisp/progmodes/fortran.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/fortran.el Mon Jul 16 12:23:00 2001 +0000 @@ -813,7 +813,7 @@ (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)
--- a/lisp/progmodes/idlw-shell.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/idlw-shell.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <chase@att.com> ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> ;; 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.
--- a/lisp/progmodes/idlw-toolbar.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/idlw-toolbar.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <dominik@strw.leidenuniv.nl> ;; 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 @@ (provide 'idlwave-toolbar) ;;; idlw-toolbar.el ends here - -
--- a/lisp/progmodes/idlwave.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/idlwave.el Mon Jul 16 12:23:00 2001 +0000 @@ -4,10 +4,10 @@ ;; Author: Chris Chase <chase@att.com> ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> ;; 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 @@ (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 @@ (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 @@ (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 @@ (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 @@ ((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 @@ (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 @@ (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 @@ (provide 'idlwave) ;;; idlwave.el ends here - -
--- a/lisp/progmodes/m4-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/m4-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/progmodes/mantemp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/mantemp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/progmodes/meta-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/meta-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/progmodes/octave-inf.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/octave-inf.el Mon Jul 16 12:23:00 2001 +0000 @@ -24,6 +24,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'octave-mod)
--- a/lisp/progmodes/ps-mode.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ps-mode.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/progmodes/scheme.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/scheme.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/progmodes/simula.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/simula.el Mon Jul 16 12:23:00 2001 +0000 @@ -259,7 +259,7 @@ (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
--- a/lisp/progmodes/tcl.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/tcl.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <tromey@busco.lanl.gov> ;; Chris Lindblad <cjl@lcs.mit.edu> ;; 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 <tromey@drip.colorado.edu>") ;;
--- a/lisp/ps-bdf.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/ps-bdf.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <handa@etl.go.jp> -;; Time-stamp: <2001/03/05 09:04:32 vinicius> +;; Maintainer: Kenichi Handa <handa@etl.go.jp> +;; Time-stamp: <2001-07-15 12:25:51 pavel> ;; This file is part of GNU Emacs.
--- a/lisp/ps-mule.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/ps-mule.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <vinicius@cpqd.com.br> -;; Author: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) +;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> +;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) -;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> -;; Keywords: wp, print, PostScript, multibyte, mule -;; Time-stamp: <2001/03/16 18:50:59 Handa> +;; Vinicius Jose Latorre <vinicius@cpqd.com.br> +;; Keywords: wp, print, PostScript, multibyte, mule +;; Time-stamp: <2001/03/16 18:50:59 Handa> ;; This file is part of GNU Emacs.
--- a/lisp/ps-print.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/ps-print.el Mon Jul 16 12:23:00 2001 +0000 @@ -3597,7 +3597,7 @@ ((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 @@ 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 @@ (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))))
--- a/lisp/recentf.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/recentf.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/rect.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/rect.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/regi.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/regi.el Mon Jul 16 12:23:00 2001 +0000 @@ -26,6 +26,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: @@ -252,4 +254,5 @@ (provide 'regi) + ;;; regi.el ends here
--- a/lisp/rsz-mini.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/rsz-mini.el Mon Jul 16 12:23:00 2001 +0000 @@ -7,7 +7,7 @@ ;; Maintainer: Noah Friedman <friedman@splode.com> ;; 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
--- a/lisp/s-region.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/s-region.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 's-region) -;; s-region.el ends here. +;;; s-region.el ends here
--- a/lisp/scroll-all.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/scroll-all.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <rickm@vsl.com> ;; Anders Lindgren <andersl@csd.uu.se> +;;; Code: + (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) ;;;###autoload @@ -132,4 +134,4 @@ (provide 'scroll-all) -;; scroll-all.el ends here +;;; scroll-all.el ends here
--- a/lisp/shadowfile.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/shadowfile.el Mon Jul 16 12:23:00 2001 +0000 @@ -842,4 +842,3 @@ (provide 'shadowfile) ;;; shadowfile.el ends here -
--- a/lisp/speedbar.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/speedbar.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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
--- a/lisp/term/AT386.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/term/AT386.el Mon Jul 16 12:23:00 2001 +0000 @@ -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])
--- a/lisp/term/internal.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/term/internal.el Mon Jul 16 12:23:00 2001 +0000 @@ -21,6 +21,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;; --------------------------------------------------------------------------- @@ -714,4 +716,3 @@ (standard-display-8bit 127 255) ;;; internal.el ends here -
--- a/lisp/term/iris-ansi.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/term/iris-ansi.el Mon Jul 16 12:23:00 2001 +0000 @@ -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
--- a/lisp/term/mac-win.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/term/mac-win.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") ;;; mac-win.el ends here -
--- a/lisp/term/tvi970.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/term/tvi970.el Mon Jul 16 12:23:00 2001 +0000 @@ -123,4 +123,4 @@ (tvi970-set-keypad-mode 1) -;;; tv970 ends here +;;; tvi970.el ends here
--- a/lisp/textmodes/artist.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/artist.el Mon Jul 16 12:23:00 2001 +0000 @@ -5493,4 +5493,4 @@ ;; Don't hesitate to ask me any questions. -;; artist.el ends here +;;; artist.el ends here
--- a/lisp/textmodes/flyspell.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/flyspell.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <Manuel.Serrano@unice.fr> ;; 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 @@ (set (abbrev-symbol old table) new)) (provide 'flyspell) + ;;; flyspell.el ends here
--- a/lisp/textmodes/ispell.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/ispell.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <k.stevens@ieee.org> -;; Maintainer: Ken Stevens <k.stevens@ieee.org> +;; Author: Ken Stevens <k.stevens@ieee.org> +;; Maintainer: Ken Stevens <k.stevens@ieee.org> ;; 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 @@ (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
--- a/lisp/textmodes/page-ext.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/page-ext.el Mon Jul 16 12:23:00 2001 +0000 @@ -718,7 +718,7 @@ (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 @@ ;;; Place `provide' at end of file. (provide 'page-ext) -;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;; - +;;; page-ext.el ends here
--- a/lisp/textmodes/refer.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/refer.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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 @@ files)) ;;; refer.el ends here -
--- a/lisp/textmodes/texinfmt.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/texinfmt.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ 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 @@ ;;; Place `provide' at end of file. (provide 'texinfmt) -;;; texinfmt.el ends here. +;;; texinfmt.el ends here
--- a/lisp/textmodes/texinfo.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/texinfo.el Mon Jul 16 12:23:00 2001 +0000 @@ -25,6 +25,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (or (fboundp 'defgroup)
--- a/lisp/textmodes/texnfo-upd.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/texnfo-upd.el Mon Jul 16 12:23:00 2001 +0000 @@ -538,7 +538,7 @@ (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 @@ ;; "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 @@ (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 @@ (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 @@ (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 @@ (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 @@ ;; 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."))
--- a/lisp/textmodes/two-column.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/textmodes/two-column.el Mon Jul 16 12:23:00 2001 +0000 @@ -5,6 +5,8 @@ ;; Author: Daniel Pfeiffer <occitan@esperanto.org> ;; 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 @@ (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 @@ (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)))
--- a/lisp/time-stamp.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/time-stamp.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <gildea@alum.mit.edu> ;; Keywords: tools
--- a/lisp/timezone.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/timezone.el Mon Jul 16 12:23:00 2001 +0000 @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (defvar timezone-world-timezones
--- a/lisp/toolbar/tool-bar.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/toolbar/tool-bar.el Mon Jul 16 12:23:00 2001 +0000 @@ -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. ;;
--- a/lisp/vc-rcs.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/vc-rcs.el Mon Jul 16 12:23:00 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $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:
--- a/lisp/vc-sccs.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/vc-sccs.el Mon Jul 16 12:23:00 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $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 @@ (provide 'vc-sccs) ;;; vc-sccs.el ends here - - -
--- a/lisp/view.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/view.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/w32-fns.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/w32-fns.el Mon Jul 16 12:23:00 2001 +0000 @@ -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.
--- a/lisp/which-func.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/which-func.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'which-func) -;; which-func.el ends here +;;; which-func.el ends here
--- a/lisp/whitespace.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/whitespace.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 <rv@gnu.org> ;; 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
--- a/lisp/wid-browse.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/wid-browse.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (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 @@ (provide 'wid-browse) -;; wid-browse.el ends here +;;; wid-browse.el ends here
--- a/lisp/widget.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/widget.el Mon Jul 16 12:23:00 2001 +0000 @@ -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 @@ (provide 'widget) -;; widget.el ends here +;;; widget.el ends here
--- a/lisp/windmove.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/windmove.el Mon Jul 16 12:23:00 2001 +0000 @@ -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. ;;
--- a/lisp/woman.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/woman.el Mon Jul 16 12:23:00 2001 +0000 @@ -2,12 +2,12 @@ ;; Copyright (C) 2000 Free Software Foundation, Inc. -;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk> -;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk> -;; Keywords: help, man, UN*X, manual -;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il> -;; Version: see `woman-version' -;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/ +;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk> +;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk> +;; Keywords: help, man, UN*X, manual +;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il> +;; Version: see `woman-version' +;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/ ;; This file is part of GNU Emacs.
--- a/lisp/xt-mouse.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/xt-mouse.el Mon Jul 16 12:23:00 2001 +0000 @@ -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